我還是 VBA 的新手。我正在處理一個 excel 表，我想使用 InputBox 查找資料并從我擁有的電子表格中獲取結果。這是一個例子：
作業表顯示：
| 名稱 | 職業 | 身份證 |
|---|---|---|
| 詹姆士 | 工程師 | e2134 |
| 琳達 | 程式員 | f2123 |
輸入框：
“輸入 ID：”
e2134
結果：
訊息框將顯示：
編號：e2134
姓名：詹姆斯
職業：工程師
我做了一些代碼，但我無法從家里訪問它（它在我的作業計算機上）。
我想知道我可以使用什么代碼，以便 VBA 可以在同一行（姓名和職業）上收集資料并將其顯示在 MessageBox 中。或者可能有更好的方法來做到這一點。
uj5u.com熱心網友回復：
您可以嘗試以下代碼-
Sub SearchNreturn()
Dim Rng As Range
Dim strID As String
strID = InputBox("Enter ID")
Set Rng = Sheets("Sheet1").Range("C:C").Find(What:=strID, _
After:=Cells(1, 3), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
MsgBox "ID: " & Rng.Value & vbNewLine & _
"Occupation: " & Rng.Offset(0, -1) & vbNewLine & _
"Name: " & Rng.Offset(0, -2)
Else
MsgBox "Nothing found."
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/407227.html
標籤：
上一篇：在作業簿之間翻轉并寫入資料
下一篇：如何識別串列中對應負數的數字？