Excel 如何用VBA實現在sheet1!A1輸入一個數字，在sheet2!的A列尋找是否有相同的...

如題，想知道如何用VBA實現在sheet1!A1輸入一個數字，在sheet2!的A列尋找是否有相同的數字顯示效果為，如果有那麼游標停留在那個相同數字的單元格，如果沒有則彈出「沒有相符數字」

分享到新浪微博 倒序瀏覽 共有7條回復

本帖最後由 kingsky126 於 2015-4-23 20:56 編輯 附件如下

假設.zip(6.31 KB)(下載次數: 5, 2015-4-23 20:55 上傳)

引用: kingsky126 發表於 2015-4-23 20:55

附件如下

2. Private Sub Worksheet_Change(ByVal Target As Range)
3. Dim arr, i%, n%, j%
4. If Target.Address(0, 0) <> "A1" Then Exit Sub
5. arr = Sheets(2).Range("A1:A" & Sheets(2).Range("A65536").End(3).Row)
6. n = 0
7. For i = 1 To UBound(arr)
8. If arr(i, 1) = Target.Value Then
9. n = n + 1
10. Sheets(2).Activate
11. Sheets(2).Range("A" & i).Select
12. End If
13. Next
14. If n = 0 Then MsgBox "沒有相符數字!"
15. End Sub

詳見附件

1. Private Sub Worksheet_Change(ByVal Target As Range)
2. If Target.Row = 1 And Target.Column = 1 Then
3. Set x = Sheet2.Range("a1:a16").Find(Target.Value, , , xlWhole)
4. If x Is Nothing Then
5. MsgBox "沒有相符數字": Exit Sub
6. Else
7. Sheet2.Select
8. Sheet2.Range("a" & x.Row).Select
9. End If
10. End If
11. End Sub

副本Xl0000131.rar(8.36 KB)(下載次數: 4, 2015-4-23 23:07 上傳)

謝謝jpj123和朱榮興兩位大俠完美解答了我的問題，不過我想加一點點東西進去，兩位大俠的代碼都是開了表格以後在A1輸入數字就直接運行，如果我想控制這個宏的運行應該要怎麼做啊，就例如加一個按鈕，只有按下去才運行宏，不按就不運行。

假設.zip(6.75 KB)(下載次數: 2, 2015-4-23 23:36 上傳)

自己再頂一頂
推薦閱讀：