標題: [發問] 查詢資料 [打印本頁]

---

作者: jackysiu    時間: 2015-9-6 09:03     標題: 查詢資料

根據Column A的值查詢資料，Colume A是由1開始編號，如TextBox6的值等於Column A的值將相關資料顯示，但只能在編號1至9有效，10開始不能顯示相關資料；
相關程式碼如下，請各前輩指導！

Private Sub CommandButton1_Click()
Dim i&
For i = Sheets("Sheet1").Range("A65536").End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1).Value, 1) = TextBox6.Value Then
TextBox1.Text = Sheets("Sheet1").Cells(i, 2)
TextBox2.Text = Sheets("Sheet1").Cells(i, 3)
TextBox3.Text = Sheets("Sheet1").Cells(i, 4)
TextBox4.Text = Sheets("Sheet1").Cells(i, 5)
ComboBox1.Text = Sheets("Sheet1").Cells(i, 6)
ComboBox2.Text = Sheets("Sheet1").Cells(i, 7)
ComboBox3.Text = Sheets("Sheet1").Cells(i, 8)
TextBox5.Text = Sheets("Sheet1").Cells(i, 9)
ComboBox4.Text = Sheets("Sheet1").Cells(i, 10)
End If
Next
End Sub

---

作者: 准提部林    時間: 2015-9-7 12:34

回復 1# jackysiu


詢問VBA問題, 最好上傳檔案較好理解,
何況, 控制物件在工作表或USERFORM表單上的語法有時不太一樣的!

提問規則:
1.詳細問題
2.上傳檔案
3.模擬需求結果

這樣才能一步到位解決問題, 而不浪費大家的時間~~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)