返回列表下一主題上一主題發帖

[發問] 查詢資料

jackysiu

小學生 Rank: 1

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 10
性別: 男
註冊時間: 2015-8-17
最後登錄: 2015-9-6

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-9-6 09:03 | 只看該作者

[發問] 查詢資料

[版主管理留言]

GBKEE(2015/9/7 06:28): 丟程式碼上來,沒檔案,誰知曉.

根據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