直接使用工作表名称法VBA

nnsea

Sub 直接使用工作表名称法()
MsgBox Worksheets("我的工作表").Name
MsgBox Sheets("我的图表").Name
End Sub

Sub 索引号表示法()
MsgBox Worksheets(1).Name
End Sub

Sub 工作表代码索引号表示法()
MsgBox Sheets(1).Name
End Sub


Sub 直接取工作代码法()
MsgBox Sheet1.Name
End Sub

Sub 活动工作表()
MsgBox ActiveSheet.Name
End Sub

'注意：当工作簿包括工作表、宏表、图表等时，
'          使用索引号引用工作表如Sheets(1)与
'          WorkSheets(1)引用的可能不是同一个表。

Sub worksheetss()
MsgBox Worksheets(1).Name
MsgBox Sheets(1).Name
End Sub


Sub sheetss()
For i = 1 To Sheets.Count
MsgBox Sheets(i).Name
Next
End Sub