[已解决]Set iSheet = Sheets(Sheets(1).Cells(1, j).Value)是什么意思

wwj804

Set iSheet = Sheets(Sheets(1).Cells(1, j).Value)是什么意思

最佳答案

月排行榜 / 总排行榜

爱疯

2016-11-8 10:25

'1楼那句可拆成两句
Sub test()
    x = Sheets(1).Cells(1, j).Value
    Set iSheet = Sheets(x)
End Sub


第1句，要看实际数据中x是什么？
如果x是文本，那么x是工作表的名称
如果x非文本，那么x是工作表的索引


第2句，需了解工作表的三种表达：
1）用工作表名来表示
sheets("Sheet3").select
2）用工作表的索引来表示
sheets(3).select   '从左往右的第3个位置
3）用工作表代码名来表示
sheet3.select

跳转到最佳答案楼层

爱疯

'1楼那句可拆成两句
Sub test()
    x = Sheets(1).Cells(1, j).Value
    Set iSheet = Sheets(x)
End Sub


第1句，要看实际数据中x是什么？
如果x是文本，那么x是工作表的名称
如果x非文本，那么x是工作表的索引


第2句，需了解工作表的三种表达：
1）用工作表名来表示
sheets("Sheet3").select
2）用工作表的索引来表示
sheets(3).select   '从左往右的第3个位置
3）用工作表代码名来表示
sheet3.select

fjmxwrs

指定Sheets(1).Cells(1, j).Value单元格值为工作表名的工作表给对象变量isheet