Excelのマクロ処理について

質問

Excelのファイルを開きシートを左から順番に選択させる
処理を作りたいのですが、そういう処理は可能なのでしょうか。

今はExcelを開く処理と明示的にシート名を指定して
処理をするマクロは作成できました。
シート名を明示的に記載せず、左のシートから読み込む
処理を作成したいです。

ご教示お願いします。

回答No.1

lark_0925 · ベストアンサー

ワークシートに限って左から順番に・・・というなら、

'=====================================================
Sub test1()
　　Dim g0 As Long
　　For g0 = 1 To Worksheets.Count
　　　Worksheets(g0).Select
　　　MsgBox Worksheets(g0).Name
　　　Next
End Sub

ワークシートだけでなく、チャートシートなども含むのであれば、

Sub test2()
　　Dim g0 As Long
　　For g0 = 1 To Sheets.Count
　　　Sheets(g0).Select
　　　MsgBox Sheets(g0).Name
　　　Next
End Sub

回答No.2

imogasi

有名な（解説書や回答で頻出する）知られたコードですよ。
Sub test02()
Dim sh As Worksheet
For Each sh In Worksheets
MsgBox sh.Name
Next
End Sub
をやってみてください。シート名が順次出てきます。
ーー
本番では
MsgBox sh.Name
のところで処理を書く。
Sh. を必ずつけて
sh.Range("A3") = sh.Name
のように書く（左辺、右辺とも）こと。
または
With sh
.Range("A5") = .Name
End With
のように書く。