企業研修講師派遣のBESTグループ
出張パソコン教室ITスクール
webコンサルティングスクール
パソコンの家庭教師BEST

Home Excel(エクセル)マクロ・VBA ワークシートの名前を取得|エクセルVBA

アクティブなブックのシート名をアクティブシートのA列に書き出します。
【例1】アクティブなブックのシート名をA1以降に書き出します。
Sub rei15_01_1()
 Dim Sh As Object
 Dim myCnt As Integer
  For Each Sh In ActiveWorkbook.Sheets
    myCnt = myCnt + 1
    Range(“A” & myCnt).Value = Sh.Name
  Next Sh
End Sub

アクティブなブックのシート名を変更します。
【例2】Sheet2のシート名を印刷用に変更します。
Sub rei15_01_2()
  ActiveWorkbook.Sheets(“Sheet2″).Name = “印刷用”
End Sub
 

類似の投稿記事を確認

ご質問や感想は上記からコメントをお願い致します