关闭工作簿上的 Msgbox VBA

关闭工作簿上的 Msgbox VBA

我有两本不同的工作簿:

  • 工作簿-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 

相关内容