从多个其他变量创建变量

时间:2015-01-05 18:20:36

标签: vba variables ms-access-2010

我想使用变量来定义另一个变量,希望我能够很好地解释这个。我在MS Access 2010中使用VBA。

假设我有Var1,Var2,Var3和Var4,我从这个开始

Dim Var1 As String
Dim Var2 As String
Dim Var3 As String
Dim Var4 As String
Var1 = "Var"
Var2 = "4"
Var3 = "Hello"

现在我想设置Var4的值,但是我想使用Var1和Var2的值组合来生成Var4,所以不是

Var4 = "Hello"

我想要这样的东西导致Var4等于“你好”:

Var1 & Var2 = "Hello"

我还想通过使用Var1和Var2

来比较Var3和Var4的值
If Var1 & Var2 = Var3 Then
MsgBox ("Hello World!")
End If

在If语句中应该发生的是它应该将变量Var4的值与Var3的值进行比较并显示消息框。我意识到我输入的内容会将值“Var4”与“Hello”进行比较,但希望你明白这一点,因为我不确定如何更好地阐述它们。

[编辑] Barranka发布的链接看起来似乎可以做我想要的。我会看看我是否可以弄清楚如何使用它,但我是一个非常大的菜鸟,所以如果有人有一个更简单的解决方案,我仍然在听:)

[编辑] 我完全错了。经过足够的谷歌搜索,我偶然发现了阵列。我问的是错误的问题,因为我没有意识到还有其他东西可以做我需要的东西。

2 个答案:

答案 0 :(得分:2)

Eval Function可能是您正在寻找的内容。

Eval(Var1 & Var2 & " = Hello")

此外,您还需要在Hello周围添加一些转义引号。 This link可能有帮助。

答案 1 :(得分:0)

如果我理解你的问题,你几乎就在那里。你只需要添加Var4 = Var1& VAR2。你想让Variables的所有内容都来自excel表吗?让我知道这是否成功:

Private Sub Hello()

Dim Var1 As String
Dim Var2 As String
Dim Var3 As String
Dim Var4 As String
Var1 = "Var"
Var2 = "4"
Var3 = "Hello"

Var4 = Var1 & Var2

If Var1 & Var2 = Var3 Then
MsgBox ("Hello World!")
End If

End Sub