如何转到其值在输入框中写入的单元格？ （VBA）

Question

我对编码很新，虽然这应该相对简单，但我很困难。

我有一堆列，每列显示一个由6位数代码命名的特定部门的数据。我想弹出一个输入框询问用户“你想看哪个部门？”然后跳转到具有相应数字的单元格。

任何帮助将不胜感激！

谢谢:)

Answer 1

按Alt + F11并在VBA编辑器中找到工作表的名称，其中包含您分析的数据。单击此工作表的名称两次，应打开一个窗口（模块）。粘贴以下代码：

Private Sub Worksheet_Activate()
    Dim str As Range
    ans = InputBox("Which Department would you like to see?")
    With Worksheets(1).Range("a1:m500") 'determine the range 
    Set c = .Find(ans, LookIn:=xlValues)
    If Not c Is Nothing Then
        Set str = Worksheets(1).Range(c.Address)
        str.Activate
        Exit Sub
    End If
    End With
End Sub

每次激活此工作表时，都会出现一个弹出窗口。