如何获取与 VBA 中的整数变量同名的文本变量的值？答案

【问题标题】：How can I get the value of a text variable that have the same name of a integer variable in VBA?如何获取与 VBA 中的整数变量同名的文本变量的值？
【发布时间】：2014-12-03 08:43:12
【问题描述】：

我有一个获取一些值的用户表单。我尝试使用循环来获取通过文本框获取的这些变量的值，因此我尝试通过其他变量（文本）获取变量的值具有相同名称的数字变量..任何人都可以帮我这样做吗？我的变量示例是：amountfra11a,amountfra12a...（这些是我的文本框的名称）

按照代码：

 Private Sub OKTESTE_Click()

  Dim b As Integer


For i = 1 To 1

    a = "amountfra1" & i & "a.value"
    b = CInt(a)


    If b = 10 Then
        c = d
    End If

Next

结束子

【问题讨论】：

标签： vba scope userform

【解决方案1】：

您可以通过 UserForm 的Controls 集合获取 texbox 值：

Private Sub OKTESTE_Click()
    Dim i, nm, a
    For i = 11 To 12 'for example
        nm = "amountfra" & i & "a"
        a = Me.Controls(nm).Text
        MsgBox nm & " = " & a
    Next

End Sub

【讨论】：