[[20230908101126]]　『すべてのワークシートを選択してセルの書式を設定』（りりあん）　ページの最後に飛ぶ

『すべてのワークシートを選択してセルの書式を設定』（りりあん）

すべてのワークシートを選択して、T12セル(T12～Y13セルの結合しています)
にセルの書式設定を標準にする下記のマクロを実行したところ
先頭のシートはうまくいったのですが2枚目以降の設定が文字列のままで
でした。

Sub test()
Worksheets.Select
Range("T12").NumberFormatLocal = "G/標準"

End Sub

どこかコートが間違っているのでしょうか?

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

「コート」が間違っています。

（しょうもないこと言い） 2023/09/08(金) 10:40:32

マクロで作業グループは出来ない、というよりクセがあった気がします。
単純にループで１シートずつ処理したほうが早いと思います。
（フォーキー） 2023/09/08(金) 10:55:01

Worksheets.Select としたところで、次の Range("T12") はあくまでアクティブシートのになるからです。
（higejee） 2023/09/08(金) 11:00:56

 Sub test()
     Worksheets.Select
     Range("T12").Select
     Selection.NumberFormatLocal = "G/標準"
 End Sub

 ならいけますね。

（しょうもないこと言い） 2023/09/08(金) 11:18:24

しょうもないこと言いさま

コード作成していただきありがとうございました。
勉強になりました。(>_<)/

フォーキーさま・higejeeさま勉強になりました。
ループのやり方も出来るように、ネットとで検索してみます。(*^。^*)

（りりあん） 2023/09/08(金) 11:28:17

すべてのシートに同じ処理を行う - For～Nextステートメント
https://www.limecode.jp/entry/syntax/for-each-in-worksheets
（IT） 2023/09/08(金) 11:31:42

ITさま

参考になるサイトありがとうございました。(*ﾉωﾉ)
（りりあん） 2023/09/08(金) 17:23:28

＞ループのやり方も出来るように～
↓を読み返せばOKな気がします
[[20230831163300]]　『すべてのワークシートに図を貼り付ける』（りりあん）

（もこな２） 2023/09/13(水) 08:37:33

コメント返信：