「Excel VBA」アクティブなシート名を取得するサンプル
書式
シートの数 Worksheets.Count
現在のシート名 ActiveSheet.Name
使用例
Sub sampleC()
'全てのシート名
For i = 1 To Worksheets.Count
Debug.Print Worksheets(i).Name
Next
'現在のアクティブなシート名
actName = ActiveSheet.Name
Debug.Print actName
End Sub
Sub sampleC()
'全てのシート名
For i = 1 To Worksheets.Count
Debug.Print Worksheets(i).Name
Next
'現在のアクティブなシート名
actName = ActiveSheet.Name
Debug.Print actName
End Sub
Sub sampleC() '全てのシート名 For i = 1 To Worksheets.Count Debug.Print Worksheets(i).Name Next '現在のアクティブなシート名 actName = ActiveSheet.Name Debug.Print actName End Sub