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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
マクロを複数シートに実行するには?
Excel(エクセル)
-
作ったマクロを複数のシートで実行できるようにしたい。
Excel(エクセル)
-
-
4
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
5
ExcelVBAで、指定したシートに対して同じ処理を行いたい
Excel(エクセル)
-
6
Excel マクロを各シートごとに実行したい
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
9
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
10
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
11
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
12
エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう
Excel(エクセル)
-
13
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
16
VBAでワークシートを変数にするとき
その他(Microsoft Office)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
【VBA】シート名に特定文字が入っていたらマクロを実行したいです。
Visual Basic(VBA)
-
19
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
20
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
XL:BeforeDoubleClickが動かない
-
セルの値によって、シート見出...
-
【ExcelVBA】全シートのセルの...
-
【VBA】色のついたシート名を取得
-
エクセルのシート名変更で重複...
-
ブック名、シート名を他のモジ...
-
ExcelVBA シート名を複数セルか...
-
VBAでオブジェクト変数にsetし...
-
Worksheet_Changeの内容を標準...
-
同じ作業を複数のシートに実行...
-
VBAの天才来てください
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
別のシートを参照して計算する方法
-
【VBA】指定した検索条件に一致...
-
ExcelのVBAのマクロで他のシー...
-
【Excel VBA】Worksheets().Act...
-
excelのマクロで該当処理できな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報