ｅｘｃｅｌ2003のマクロで全シートを選択したい場合

初心者です、お願いします。
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select

Sheets("Sheet1").Activate
Range("E1").Select
Selection.NumberFormatLocal = "G/標準"　’現在文字列
ActiveCell.FormulaR1C1 = "7/1/2008"
Range("F1").Select
Selection.NumberFormatLocal = "G/標準"　　’現在文字列 　　　ActiveCell.FormulaR1C1 = "5/31/2009"　

上記の記述で１行目、全シートの選択を指定したいのです。
どのように変えたら良いかどなたか教えてください。

No.4 ベストアンサー 回答者： imogasi 回答日時： 2009/06/24 21:43

４つのシートを[作業グループ]にしてデータを(1セル）入れたマクロの記録が下記で'Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select

がそれです。質問と同タイプ。
それをコメントアウトして、Sheets.Select
に変えたものが下記です。
Sub Macro1()
'Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")).Select
Sheets.Select
Sheets("Sheet1").Activate
Range("C4").Select
ActiveCell.FormulaR1C1 = "'XXXXXXz"

End Sub
代表でSheets("Sheet1").Activate
Range("C4").Select
とSheet1しかやってないが、全シートのC4に'XXXXXXzが入りました。
全シートで同じ位置のセル（複数可）だけに（バラバラの位置ではもちろんダメ。質問は同じ位置のセルのニーズと推測した）、何かしたいことがあれば,代表の１シートに処理すれば、全シートに同じ処理がされるようです、
ーーー
For Eachで繰り回し各シートでのコードを実行させる（ロジックを書く）必要は無いのではないかと思います。

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2009/07/09 08:31

No.3 回答者： yyr446 回答日時： 2009/06/24 17:06

No2補足

nextのところ書き間違えです。
Next arget_sheet
です。

この回答へのお礼

ご回答有難うございました。

お礼日時：2009/07/09 08:32

No.2 回答者： yyr446 回答日時： 2009/06/24 17:03

こんなのはいかがですか

Option Explicit
Sub hoge()
Dim target_sheet As Worksheet
For Each target_sheet In ThisWorkbook.Worksheets
target_sheet.Range("E1").Select
Selection.NumberFormatLocal = "G/標準"　’現在文字列
ActiveCell.FormulaR1C1 = "7/1/2008"
target_sheet.Range("F1").Select
Selection.NumberFormatLocal = "G/標準"　　’現在文字列 　　　 ActiveCell.FormulaR1C1 = "5/31/2009"　
Next sheet
Set sheet = Nothing
End Sub

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2009/07/09 08:34

No.1 回答者： merlionXX 回答日時： 2009/06/24 16:57

おっしゃる意味をなかなか理解できませんでした。

つまりは、Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select　ではSheet1～3までしか選択されないので、何枚あるかわからなくとも対応できるようにすべてのワークシートを選択するコードをご希望ということなのでしょうか？

ならば、
Worksheets.Select
でいけると思います。

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2009/07/09 08:35