既存のマクロに別の命令文を追加する場合について質問です。
選択した範囲のオブジェクトを削除するマクロがあります。
下の命令文に
「シート2でも同じことをする(ただし選択範囲はC30からG33)」
を追加する場合には、どのように書けばいいのでしょうか?
Sheets("シート1").Select
Range("A65:E365").Select
Dim shp As Shape
Dim rng_shp As Range
'セルが選択されていないときは終了
If TypeName(Selection) <> "Range" Then Exit Sub
'アクティブシートのすべての図形にループ処理
For Each shp In ActiveSheet.Shapes
'図形の配置されているセル範囲をオブジェクト変数にセット
Set rng_shp = Range(shp.TopLeftCell, shp.BottomRightCell)
'図形の配置されているセル範囲と
'選択されているセル範囲が重なっていれば図形を削除
If Not Intersect(rng_shp, Selection) Is Nothing Then
shp.Delete
End If
Next
Sheets("シート0").Select
Range("A1").Select
同じものを上記命令文の下にコピーして選択シートと範囲を直すだけだと、
Dim shp As ShapeとDim rng_shp As Rangeがエラーになります。
どなたかご教示お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) VBA 1 2023/04/27 13:37
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) 形式を選択して貼り付け 以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ 5 2022/11/11 07:30
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセル ○印がついている行を...
-
エクセルで○のついた項目を抽出
-
エクセルを利用して、日計と累...
-
毎日の日計を別シートに自動で...
-
チュロス袋の代用
-
指定した条件でTRANSPOSE関数を...
-
複数シートの列、幅の一括変更方法
-
エクセルのシートをコピーして...
-
複数シートのセルの 記号の数...
-
Excelで複数のシートに列のグル...
-
Excelの棒グラフを多い順に並べ...
-
エクセルで1行だけ数式が反映さ...
-
EOMONTH関数の代わり
-
エクセルの日々表計算の翌日繰越を
-
条件にマッチする行を抽出するV...
-
excelマクロで複数シート間のデ...
-
ステンレス・ニロスタ鋼につい...
-
エクセルで2つのシートに同じ名...
-
エクセルの複数のセルを一括で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
お肉の下のシートを煮込んでし...
-
エクセルを利用して、日計と累...
-
毎日の日計を別シートに自動で...
-
2つのシート間での重複データ...
-
エクセルのシートをコピーして...
-
指定した条件でTRANSPOSE関数を...
-
エクセルで○のついた項目を抽出
-
条件にマッチする行を抽出するV...
-
excel シート1の奇数(偶数)...
-
エクセルで1行だけ数式が反映さ...
-
EOMONTH関数の代わり
-
チュロス袋の代用
-
エクセルで2つのシートに同じ名...
-
エクセルでフラグがたっている...
-
EXCELで受験票を作成したい(名...
-
excelマクロで複数シート間のデ...
-
エクセル ○印がついている行を...
-
VBA 縦のデータを横にするコード
-
Excelで複数のシートに列のグル...
-
Excel VBA 12ヶ月分のシート作成
おすすめ情報