我有两本不同的工作簿:
- 工作簿-1
- 工作簿-2
我希望工作簿 1 中的 msgbox 引用工作簿 2 中的值。
例如:
在工作簿 1 中:
| A |
| B |
| C |
在工作簿 2 中:
| A | 10 | 5 | 6 | 4 |
| B | 5 | 4 | 2 | 1 |
| C | 5 | 10 | 5 | 6 |
当我在工作簿 1 上输入键 (A) 时,它应该引用工作簿 2 中的值并显示为消息框。
信息框:
| A |
| 10 |
| 5 |
| 6 |
| 4 |
我目前拥有的代码是:
Sub Search()
Msg = “通话详情” & vbCr
昏暗的路径作为字符串
dim 文件作为字符串
dim sheet 作为字符串
路径 = “C:\Users\naresh.g\Desktop\vlookup\”
文件 = “工作簿2.xlsx”
sheet =“sheet2””
If (path & file & sheet) <> "" Then
'我在这里得到错误,因为下标超出范围错误代码 9
'有时我会得到对象要求
For Each cell In Sheets("sheet2").Range("B2:B" & Sheets("sheet2").Cells(Rows.Count, "B").End(xlUp).Row)
If LCase(cell.Value) = LCase(Selection.Value) Or InStr(1, LCase(cell.Value), _
LCase(Selection.Value)) > 0 Then
Msg = Msg & vbCr & cell.Offset(0, 1) & " / " & vbCr & cell.Offset(0, 2) & " / " & cell.Value
End If
Next
i = MsgBox(Msg, vbInformation)
End Sub