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

2021年3月16日

書式
シートの数 Worksheets.Count
現在のシート名 ActiveSheet.Name
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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

 

Excel VBA

Posted by arkgame