Question

我有一个获取一些值的userform ...我尝试使用循环来获取通过文本框得到的这些变量的值，所以我尝试通过其他变量（文本）获取变量的值与数字变量具有相同名称..任何人都可以帮我这样做吗？我的变量示例是：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

End Sub

Answer 1

您可以通过UserForm的Controls集合获取文本框值：

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

如何获取VBA中具有相同整数变量名称的文本变量的值？

1 个答案: