「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
Coding Changes the World
書式
シートの数 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