- 帖子
- 558
- 主題
- 58
- 精華
- 0
- 積分
- 625
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-5-18
|
回復 1# roeylin
雖然我不知道樓主的用意~ 但還是找到問題
點選入TextBox3的程式碼中,如下所示
Private Sub TextBox2_Change()
With Sheets("基本資料")
將AH改成A就可以了~
問題的原因:在於你用FIND的範圍,你的基本資料"E2"是A100000002~ 所以會帶B2的資料出來
若把AH改為FIND為A:A範圍~ 就沒有問題
建議樓主:想好資料要怎麼建成資料庫~ 這樣比較好撰寫程式碼
Set A = .Columns("A:AH").Find(TextBox2.Text, LookAt:=xlWhole)
'改這裡 Set K = .Columns("A:AL").Find(TextBox34, LookAt:=xlWhole)變更範圍
If Not A Is Nothing Then
TextBox3.Text = .Cells(A.Row, 2)
End If
End With
End Sub |
|
發表於 2011-4-6 15:52
| 
