ActiveWorkbook.Sheets.Count で シートの数
Activeworkbook.Sheets(n番目).Select で シートの選択(処理中シート、アクティブの切り替え)
が
取得・切り替え可能だったので、
単純に For の ループ で 1 から .Count番目まで処理を回してみました。
For n = 1 To ActiveWorkbook.Sheets.Count
Sheets(n).Select 'シートのn番目を選択
'シート単位で行いたい処理
'シート単位で行いたい処理
'シート単位で行いたい処理
Next
まぁ、こんな感じで作ってみました。
Sub Macro2() 'シートの数 ActiveWorkbook.Sheets.Count 'シートの選択 Activeworkbook.Sheets(番号でもOK).Select ※1から Dim n As Integer 'カウンター 'シートの数だけループする For n = 1 To ActiveWorkbook.Sheets.Count Sheets(n).Select 'シートのn番目を選択 Cells.EntireColumn.AutoFit '列幅を自動調整 Range("A1").Select 'カーソルをA1へ Next End Sub
試行錯誤 イミディエイトで調べたり、デバッグしたり
いつものように ハマった動画は、下記のような感じです。
www.youtube.com
http://www.youtube.com/watch?v=wfhMeMIs8dU
全体の解説は http://ken3hitori.g.hatena.ne.jp/bbs/18?from=1 を見てください。