如何通过循环调用增量命名公共常量为Combobox批量添加Item？

你当前的写法只是拼接出了常量名称的字符串，VBA并不会自动将该字符串解析为对应的公共常量取值，可通过以下两种方式解决：

方案1：无需修改现有常量定义，使用CallByName读取常量值 #

直接调用VBA内置的CallByName函数即可通过字符串形式的名称读取模块中的公共常量：

Dim i As Integer
For i = 0 To 1024
    ComboBoxCommand.AddItem CallByName(Module1, "Command" & i, VbGet)
Next

方案2：更易维护的数组实现（推荐） #

你的1024个有序常量更适合用数组存储，可减少大量重复的常量定义代码，后续修改选项也更方便：

1. 首先在Module1中定义公共数组和初始化逻辑：

' 全局存储命令选项的公共数组
Public CommandList(0 To 1024) As String

' 程序启动时调用一次完成数组初始化即可
Sub InitCommandList()
    CommandList(0) = "1-Enable I/O (1)"
    CommandList(1) = "2-Enable SNMP GET (119)"
    CommandList(2) = "3-Disable I/O (2)"
    CommandList(3) = "4-Disable SNMP GET (219)"
    ' 剩余选项依次赋值即可
End Sub

2. 填充Combobox的代码直接读取数组取值：

Dim i As Integer
For i = 0 To 1024
    ComboBoxCommand.AddItem CommandList(i)
Next

多窗体复用优化 #

因为你需要在4个窗体中使用相同的选项列表，可以直接在Module1中封装通用填充函数，避免每个窗体重复写循环逻辑：

' 传入目标Combobox对象即可完成填充
Sub FillCommandComboBox(cb As ComboBox)
    Dim i As Integer
    cb.Clear ' 清空原有选项避免重复
    For i = 0 To 1024
        ' 用方案1的常量写法就用下面这句
        cb.AddItem CallByName(Module1, "Command" & i, VbGet)
        ' 用方案2的数组写法就换成下面这句
        ' cb.AddItem CommandList(i)
    Next
End Sub

每个窗体的加载事件中直接调用即可：

Private Sub UserForm_Initialize()
    FillCommandComboBox Me.ComboBoxCommand
End Sub

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