- 帖子
- 14
- 主題
- 5
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2007
- 閱讀權限
- 20
- 註冊時間
- 2010-5-3
- 最後登錄
- 2013-9-14

|
回復 2# hugh0620
Set A = .Columns("A:A").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
修改後確實已解決問題
VBA我是新手~~只能慢慢的架構出想要的東西
也沒有程式設計的基礎
謝謝大大解決目前問題 |
|