「Excel VBA」アクティブなシート名を取得するサンプル

2014年12月25日2021年3月16日

書式
シートの数　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