[已解决]EXCEL VBA，有没有办法将值转变成是变量名？

lan8930

Sub text()
dim a$,b$,张三李四 $

a = "张三"
b = "李四"
张三李四 = "dfdafdsf"
MsgBox a & b
End Sub

结果是 张三李四，而非dfdafdsf
如何通过a,b，得到dfdafdsf？
即如何能让程序，将a & b的结果“张三李四”，看成是变量，而非值
请教高手，谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-9-14 21:40

1. Sub text()
   
2.     Dim a$, b$, 张三李四$
   
3.    
   
4.     Dim obj As Object
   
5.     Set obj = CreateObject("scripting.dictionary")
   
6. 
   
7.     a = "张三"
   
8.     b = "李四"
   
9.     张三李四 = "dfdafdsf"
   
10.    
    
11.     obj.Add "a", a
    
12.     obj.Add "b", b
    
13.     obj.Add "张三李四", 张三李四
    
14. 
    
15.     MsgBox obj.Item(a & b)
    
16.     Set obj = Nothing
    
17. End Sub

复制代码

跳转到最佳答案楼层

我心飞翔410

这冒失不能吧 只有是你那个默认就是把A和b连接起来啊

hwc2ycy

想实现类似INDIRECT的想法？

hwc2ycy

换成字典是可以的，但没有多大的意义呀。

lan8930

hwc2ycy 发表于 2013-9-14 21:32
想实现类似INDIRECT的想法？

对呀，我这样做是有目的的。
a和b都有很多个选择，当a=张一，b=李一 时，C=AAA  
                                         a=张二，b=李二 时，C=BBB
                                          a=张三，b=李三 时，C=CCC
                  。。。   。。。
即a若有m个值，b有n个，就有m*n个组合。我不想一个个地用IF去赋值。于是就想把C变量的名称，改为a&b的值。不知道我这样地投机取巧，E是否能做得到。刚百度了一轮，也没有找到答案......

hwc2ycy

1. Sub text()
   
2.     Dim a$, b$, 张三李四$
   
3.    
   
4.     Dim obj As Object
   
5.     Set obj = CreateObject("scripting.dictionary")
   
6. 
   
7.     a = "张三"
   
8.     b = "李四"
   
9.     张三李四 = "dfdafdsf"
   
10.    
    
11.     obj.Add "a", a
    
12.     obj.Add "b", b
    
13.     obj.Add "张三李四", 张三李四
    
14. 
    
15.     MsgBox obj.Item(a & b)
    
16.     Set obj = Nothing
    
17. End Sub

复制代码

我心飞翔410

lan8930 发表于 2013-9-14 21:38
对呀，我这样做是有目的的。
a和b都有很多个选择，当a=张一，b=李一 时，C=AAA  
                     ...

也许其他办法也能达到 传个附件来看看

lan8930

hwc2ycy 发表于 2013-9-14 21:33
换成字典是可以的，但没有多大的意义呀。

我明白你的意思了。你是说，将a&b所有可能的组合，装进字典的keys里面，将C的值装进items里，对吧。谢谢你的思路。

我心飞翔410

hwc2ycy 发表于 2013-9-14 21:40

教我字典 师父 我不会字典

hwc2ycy

用集合也是可以的。

1. Sub text1()
   
2.     Dim a$, b$, 张三李四$
   
3.     Dim obj As New Collection
   
4. 
   
5.     a = "张三"
   
6.     b = "李四"
   
7.     张三李四 = "dfdafdsf"
   
8.     obj.Add Item:=a, Key:="a"
   
9.     obj.Add Item:=b, Key:="b"
   
10.     obj.Add Item:=张三李四, Key:="张三李四"
    
11.     MsgBox obj.Item(a & b)
    
12. End Sub

复制代码