如何通过字符串变量关联VBA中已定义的Range对象？

当然可行！在VBA里实现这种根据输入关键字动态关联对应Range对象的需求，有两种实用的方法，我给你详细拆解一下：

方法一：使用字典（Dictionary）建立映射（推荐） #

这种方法的核心是提前把所有r_前缀的Range对象和对应的关键字存入字典，后续直接通过关键字从字典里取对象，可读性和维护性都很强。

步骤1：定义模块级字典变量 #

在Database模块的最顶部（声明段）添加一个私有字典变量：

' Database模块声明段
Private rngMapping As New Dictionary

步骤2：在Allocation过程中填充字典 #

修改你的Allocation过程，把每个r_开头的Range对象和对应的关键字（去掉r_前缀）存入字典：

Sub Allocation()
    ' General accident information ...
    Set r_KINDACC = Worksheets("Database").Range("N4:N14")
    ' 将Range对象与关键字绑定存入字典
    rngMapping.Add Key:="KINDACC", Item:=r_KINDACC
    
    ' 如果还有其他类似的Range对象，按同样方式添加
    ' 示例：Set r_CLAIMTYPE = Worksheets("Database").Range("B2:B8")
    ' rngMapping.Add Key:="CLAIMTYPE", Item:=r_CLAIMTYPE
End Sub

步骤3：在SetKeyword过程中通过关键字获取Range #

现在就可以直接通过GUI输入的strKeyword从字典里取出对应的Range对象了，记得加个存在性检查避免报错：

Public Sub SetKeyword()
    Call Define_Variables.variables
    Call Database.Allocation
    
    ' 这里模拟GUI输入的关键字，实际替换为你的输入逻辑
    strKeyword = "KINDACC"
    
    ' 检查关键字是否存在于字典中
    If Database.rngMapping.Exists(strKeyword) Then
        Set rngKeyword = Database.rngMapping(strKeyword)
    Else
        MsgBox "关键字「" & strKeyword & "」未找到对应的Range对象！", vbExclamation
    End If
End Sub

方法二：使用CallByName函数动态获取变量 #

如果不想用字典，也可以用CallByName函数直接根据变量名（拼接r_前缀）获取模块中的Range对象，但这种方法依赖变量的作用域，且容错性稍弱。

前提条件 #

确保r_KINDACC这类变量是Public级别的模块变量（在Database模块声明段声明）：

' Database模块声明段
Public r_KINDACC As Range

实现代码 #

Public Sub SetKeyword()
    Call Define_Variables.variables
    Call Database.Allocation
    
    strKeyword = "KINDACC"
    
    ' 临时关闭错误捕获，防止关键字不存在时报错
    On Error Resume Next
    ' 拼接变量名，用vbGet参数获取变量值
    Set rngKeyword = CallByName(Database, "r_" & strKeyword, vbGet)
    On Error GoTo 0
    
    ' 检查是否成功获取到对象
    If rngKeyword Is Nothing Then
        MsgBox "关键字「" & strKeyword & "」未找到对应的Range对象！", vbExclamation
    End If
End Sub

两种方法对比 #

• 字典法：更直观，新增Range对象只需要在字典里加一行，容易维护，且能主动控制映射关系，推荐使用。
• CallByName法：无需额外维护字典，但依赖变量命名规则和作用域，出错概率稍高，适合简单场景。

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