VBA中的变量名称引用可以变化么？

琉璃舟

leirongqin 发表于 2022-12-27 10:54
没有附件，没有需求不知道怎么回答你啊，赋值之后你也要有什么动作啊，不然就按你那代码赋值了然后不了了 ...

我的需求就是给十个变量赋值啊……没有别的动作跟这个有关了，只要变量赋值了就行
如果动态变量不行，我同样的语句就要写10行……我就是为了节约这10行语句，改成一个循环，没有别的需求了

琉璃舟

蓝桥玄霜 发表于 2022-12-27 10:56
Dim BL(9)
for i=0 to ubound(BL)
     BL(i)=i+1

没看懂您的回复，能麻烦再解释一下么？
我的需求是十层嵌套，arr（0）~arr（10）的数值，都会在最后一个嵌套中使用
for arr（0 ）=1 to 10
for arr（1）=1 to 10
……
next arr(1)
next arr(0)

ivccav

琉璃舟 发表于 2022-12-27 10:49
我的场景比较奇怪，用数组有另一个问题，
我用十个数组做循环变量
for arr（0 ）=1 to 10

可以负责任的告诉你，你想的那种方法是错误且没有意义的，也是实现不了的。
定义变量要分配内存的，编译前连变量名称都不是确定的怎么运行代码

你直接说要做什么吧。你写的这代码，真看不懂是什么意思。for循环不是你这么写的。

琉璃舟

ivccav 发表于 2022-12-27 11:36
可以负责任的告诉你，你想的那种方法是错误且没有意义的，也是实现不了的。
定义变量要分配内存的 ...

我没有系统的学过……都是用到哪算哪
第一个问题，我也是看了几个回复发现确实解决不了。
我就是想在十层嵌套循环中使用，计数使用同一个变量，减少变量数和语句行数。就是这个需求啊……我描述的不清楚么。因为如果用for嵌套多个循环，我就要用
for i=1 to 10
for j=1 to 10
……
next j
next i
变量过多。

我用数组的问题后来解决了，刚刚使用
Do until（arr（0）>10）
Do until（arr（1）>10）
Do until（arr（2）>10）
……
Loop
Loop
Loop
解决了……

您说不是这么写的，指出应该怎么写就行……

ivccav

琉璃舟 发表于 2022-12-27 15:55
我没有系统的学过……都是用到哪算哪
第一个问题，我也是看了几个回复发现确实解决不了。
我就是想在十 ...

用do loop不会比for next减少变量和代码行数，只会增加，因为变量不能自增或者自减，需要自己控制。

do loop更适合循环次数不确定的场合。vba不需要花什么时间去学，有2天基本能掌握基础语法了

chis3

用不著這麼找自己麻煩吧,不要鑽牛角尖

琉璃舟

chis3 发表于 2022-12-28 09:20
用不著這麼找自己麻煩吧,不要鑽牛角尖

感谢回复
我就是自己编程想到一个场景，然后搜解决方案，我只能想到直观的思路，有一些功能不了解，就想不到。
这个问题在于
我知道可以用 窗体名称.Controls（“字符串1”&i）这种形式，去拼控件的名称，并给予赋值，想用同样的办法去给变量赋值，用数组的话产生了第二个不能再for循环中使用的问题，所以才会有此问题。
能解决当然最好，没有也希望各路大神能告知我VBA无此方案，让我死心，我再找其他解决方案。

MOY838840554

1.代码运行效率跟代码行数没有关系
2.你一直说的十层嵌套循环不知道什么意思

琉璃舟

MOY838840554 发表于 2022-12-28 10:04
1.代码运行效率跟代码行数没有关系
2.你一直说的十层嵌套循环不知道什么意思

确实，也不是为了节约效率……就是好看一点
嗯……我需要用Excel里十列数据的每一行，组合成一个字符。
例如第一列是A、B、C，第二列是1、2、3，第三列是A、B、C
最后要组合成A1A……A1B……A1C……A2A……A2B……A2C等

我不知道是否有其他做法，我的做法是用循环
for a=1 to 10
for b=1 to 10
for c=1 to 10
……
Total=cells(a,1)&cells(b,2)&cells(c,3)&……