标题: 各位大侠,如何对Sheet名称进行附值 [打印本页] 作者: libin9804 时间: 2009-1-21 20:22 标题: 各位大侠,如何对Sheet名称进行附值 如下表的Sheet名称分别为:
A01,A02...A0M,B01,B02...B0N,C01,C02...C0O
M,N,O为不定值;
如何进行对应sheet的名称进行引用。
Set CW_A01Sheet =Worksheets(1)
Set CW_A02Sheet =Worksheets(2)
...
Set CW_A0MSheet =Worksheets(m)
Set CW_B01Sheet =Worksheets(m+1)
Set CW_B02Sheet =Worksheets(m+2)
...
Set CW_B0NSheet =Worksheets(m+n)
Set CW_C01Sheet =Worksheets(m+n+1)
Set CW_C02Sheet =Worksheets(m+n+2)
...
Set CW_C0OSheet =Worksheets(m+n+o)
如何通过判断和循环来进行名称的引用了?谢谢!作者: pureshadow 时间: 2009-1-21 23:15
可以把这堆东西放在一组单元格或数组里,然后用循环来给工作表名称赋值。作者: libin9804 时间: 2009-1-22 00:10 标题: 能否提供一下代码参考,我有点晕。谢谢 能否提供一下代码参考,我有点晕。谢谢作者: pureshadow 时间: 2009-1-22 15:46
先把你那堆东东放单元格里,假设从A1开始吧,向下。
dim myrow as long
for myrow = 1 to range("a65536").end(xlup).row
sheets(myrow).name = cells(myrow,1)
next myrow
当然了,相应的工作表也要有那么多,如果不是的话要插入。
dim myrow as long
for myrow = 1 to range("a65536").end(xlup).row
sheets.add
activesheet.name = cells(myrow,1)
next myrow作者: seki 时间: 2009-2-2 15:45 4#pureshadow
应该还有别的方法.作者: ACMAIN_CHM 时间: 2009-2-2 17:38
没看懂楼主想实现什么功能。很少有见这么干的。定义这么多对象变量。