关于工作表变量求助

laterite

已将四个工作表分别赋值了sht



    Set sht1 = ActiveWorkbook.Worksheets("t_hy")
    Set sht2 = ActiveWorkbook.Worksheets("t_wbx")
    Set sht3 = ActiveWorkbook.Worksheets("t_xm")
    Set sht4 = ActiveWorkbook.Worksheets("t_gz")


再用 i 作为变量
for i = 1 to 4
    msgbox "sht" & i
next
可以显示正确的值

但是 "sht" & i .selcet 却不行，求解决方法，谢谢

kanqingwen

msgbox "sht"里面这个sht默认为文本内容了
如果你是要跳转到对应的工作表的话
应该是   sh & i .Activate

杨建营

sheets(i).select 楼主这样试试

ovxyz

非得用变量的话，得是数组 。
dim sht(1 to 4)   
    Set sht(1) = ActiveWorkbook.Worksheets("t_hy")
    Set sht(2) = ActiveWorkbook.Worksheets("t_wbx")
    Set sht(3) = ActiveWorkbook.Worksheets("t_xm")
    Set sht(4) = ActiveWorkbook.Worksheets("t_gz")
再用 i 作为变量
for i = 1 to 4
    msgbox shit(i)
next
为什么你有这个疑惑，是因为变量不能是一个计算结果。计算结果也无法作为一个变量。

laterite

ovxyz 发表于 2023-2-17 15:57
非得用变量的话，得是数组 。
dim sht(1 to 4)   
    Set sht(1) = ActiveWorkbook.Worksheets("t_hy")
...

非常感谢，经测试已解决问题

laterite

kanqingwen 发表于 2023-2-17 15:41
msgbox "sht"里面这个sht默认为文本内容了
如果你是要跳转到对应的工作表的话
应该是   sh & i .Activate

感谢帮助，问题已解决

laterite

杨建营 发表于 2023-2-17 15:50
sheets(i).select 楼主这样试试

感谢帮助，问题已解决