左から4番目から20番目のシートで特定のマクロを実行するには? | |
---|---|
[194810] 左から4番目から20番目のシートで特定のマクロを実行するには?- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 清水 -(2022/04/09(09:05)) □U R L/ こんにちは いつもお世話になっております。 シートが全部で30位有ります シートの左から『4番目』から『20番目』の複数シートで 特定のマクロ(マクロ名:マクロ処理メイン)を実行するには? どうすれば良いかを教えて下さい。 ↓↓マクロ処理メインのVBAになります。 Sub マクロ処理メイン() Call マクロ1 Call マクロ2 End Sub ※現在は実行したいシート開いて、マクロを実行してます。 ご教示のほどよろしくお願い致します。 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194811] Re[1]: 左から4番目から20番目のシートで特定のマクロを実行するには?- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/04/09(10:09)) □U R L/ >Sub マクロ処理メイン() > Call マクロ1 > Call マクロ2 >End Sub >※現在は実行したいシート開いて、マクロを実行してます。 であれば、これでどうですか? Sub マクロ処理メイン() Dim i For i = 4 To 20 Worksheets(i).Activate Call マクロ1 Call マクロ2 Next i End Sub |
[194812] Re[2]: 左から4番目から20番目のシートで特定のマクロを実行するには?- ■ / 記事引用/メール受信=OFF■ □投稿者/ 清水 -(2022/04/09(17:45)) □U R L/ 半平太様 こんにちは イメージ通りに出来ました。 今まで一つ一つ開いて実行するか、 Sheets("シート名").Select を使いVBAを書いてたのですが、これからは、教えて頂いたVBAを使わせて頂きます。 本当にありがとうございました。 |
このトピックに書きこむ |
---|