Excel VBA新手求助：如何将宏中固定查找值替换为用户输入值？

需求概述 #

你没有VBA使用经验，想要在Excel里用VBA实现：让用户输入一个值，点击查找后，在D列定位到该值的单元格，接着滚动到对应单元格关联的超链接并打开。目前你写的宏只能查找固定值，需要改成支持用户输入的版本。

现有代码问题 #

你现有的宏里，查找目标是固定的"BMS1244"，且最后打开的超链接单元格是固定的Range("N1468")，无法根据找到的动态位置调整，所以需要修改这两处核心内容。

修改后的完整代码 #

Sub 查找并打开超链接()
    Dim 查找值 As String
    Dim 找到的单元格 As Range
    
    ' 获取用户输入的查找值
    查找值 = InputBox("请输入要查找的值：", "输入查找内容")
    ' 用户取消输入则直接退出
    If 查找值 = "" Then Exit Sub
    
    ' 在D列精确查找用户输入的值
    Set 找到的单元格 = Columns("D:D").Find(What:=查找值, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    ' 判断是否找到目标单元格
    If Not 找到的单元格 Is Nothing Then
        ' 定位到找到的单元格
        找到的单元格.Activate
        ' 滚动到该单元格所在位置
        ActiveWindow.ScrollRow = 找到的单元格.Row
        ActiveWindow.ScrollColumn = 4 ' 滚动到D列
        
        ' 假设超链接在同一行的N列，可根据实际情况调整偏移量
        Dim 超链接单元格 As Range
        Set 超链接单元格 = 找到的单元格.Offset(0, 10) ' D列到N列偏移10列（D是第4列，N是第14列）
        
        ' 检查并打开超链接
        If 超链接单元格.Hyperlinks.Count > 0 Then
            超链接单元格.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Else
            MsgBox "该单元格没有关联的超链接！"
        End If
    Else
        MsgBox "未找到输入的查找值！"
    End If
End Sub

代码关键修改说明 #

• 用InputBox弹出输入框获取查找值，若用户取消输入则直接退出宏
• 限定在Columns("D:D")（D列）内查找，避免全表搜索，提升精准度
• 将固定超链接单元格改为找到的单元格.Offset(0,10)：找到D列目标单元格后，取同一行向右偏移10列的单元格（对应N列），如果你的超链接在其他列，修改偏移数字即可（比如M列就改9）
• 增加错误判断：未找到目标值、找到值但对应位置无超链接时，都会弹出提示框，避免宏运行报错

内容的提问来源于stack exchange，提问作者MS92