
EXCELVBAであるシートに作業をさせるVBAを作成しました。
同じ作業を複数のシートに
実行させるにはどうしたらいいのでしょうか。
宜しくお願い致します。
**************作成したVBA**********
Sheets("sheet1").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
…50行ほどあります…
***********************************
↓
sheet1とsheet2に同じ作業をさせたい
以下のやりかただと長くなるためまとめたい
**************作成したVBA**********
Sheets("sheet1").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
…50行ほどあります…
Sheets("sheet2").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
…50行ほどあります…
Sheets("sheet3").Select
ActiveWindow.SmallScroll Down:=66
Range("D2:D101").Select
Selection.Cut
…50行ほどあります…
***********************************
No.1ベストアンサー
- 回答日時:
全く同じ処理なら、シートのグループ化という方法もあります。
Sheets(Array("Sheet1", "Sheet3")).Select
処理
:
http://officetanaka.net/excel/vba/tips/tips32.htm
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Excel(エクセル) excelVBAについて。 8 2022/12/11 13:47
- Visual Basic(VBA) excelVBAについて。 1 2022/11/30 06:16
- Visual Basic(VBA) excelVBAについて。 4 2022/11/21 16:15
このQ&Aを見た人はこんなQ&Aも見ています
-
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
-
4
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
5
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
6
【エクセルマクロ】複数シートで同じマクロを実行
Excel(エクセル)
-
7
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
8
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
9
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
複数シートのボタンに同一の動作をさせたい
Excel(エクセル)
-
13
VBAで多数のプログラムを一つのボタンに集約することは可能でしょうか?
Visual Basic(VBA)
-
14
別シートのマクロを実行する方法
Excel(エクセル)
-
15
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
16
Excel_マクロ_現在開いているシートにマクロを実行したいです
Visual Basic(VBA)
-
17
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
18
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
19
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
20
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
実行時エラー1004「Select メソ...
-
Excelマクロのエラーを解決した...
-
エクセルで通し番号を入れてチ...
-
Worksheet_Changeの内容を標準...
-
ユーザーフォームに入力したデ...
-
非表示シートのマクロ実行
-
VBA 指定した回数分、別シート...
-
シートが保護されている状態で...
-
XL:BeforeDoubleClickが動かない
-
別のシートから値を取得するとき
-
EXCEL(VBA)でシート保護がかか...
-
VBA 存在しないシートを選...
-
エクセルVBA Ifでシート名が合...
-
【ExcelVBA】全シートのセルの...
-
VBA マクロ シート 転記
-
VBAマクロでシートコピーした新...
-
エクセルのシート名変更で重複...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
エクセルVBA Ifでシート名が合...
-
実行時エラー1004「Select メソ...
-
エクセルのシート名変更で重複...
-
【ExcelVBA】全シートのセルの...
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excel チェックボックスにチェ...
-
VBA 検索して一致したセル...
-
エクセルで通し番号を入れてチ...
-
シートが保護されている状態で...
-
【VBA】特定の文字で改行(次の...
-
ExcelのVBAのマクロで他のシー...
-
Worksheet_Changeの内容を標準...
-
EXCELVBAを使ってシートを一定...
おすすめ情報