下記がExcel vbaで実行したい事ですが、途中で分からなくなり困っています。
指定範囲のセル(A1)に空白が無ければ(”Group3”)をコピペ
空白があった場合メッセージボックスで(”Group3”)のコピペ実行の確認
はい → コピペ
いいえ → 何もしない
【現状】
Sub sample3()
If Range("A1") = "" Then
If MsgBox("未入力の項目があります。" & vbCrLf & "承認してもいいですか?", vbYesNo) = vbYes Then
ActiveSheet.Shapes("Group 3").Copy
ActiveSheet.Paste Destination:=Range("C3")
End If
End If
End Sub
No.1ベストアンサー
- 回答日時:
以下のようにしてください。
Sub sample3()
If Range("A1") = "" Then
If MsgBox("未入力の項目があります。" & vbCrLf & "承認してもいいですか?", vbYesNo) <> vbYes Then
Exit Sub
End If
End If
ActiveSheet.Shapes("Group 3").Copy
ActiveSheet.Paste Destination:=Range("C3")
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
最小化ボタンで最小化したフォ...
-
Excel vba 条件分岐 空白セルが...
-
GetAsyncKeyState() を利用する...
-
Switchのわんことあそぼ、めざ...
-
自動入力ツール「UWSC」について
-
ポケモンカード
-
プロアクションリプレイmax2の...
-
メフィスト賞の応募歴は無しだ...
-
MusicVampireの招待コード
-
白猫プロジェクトのリセマラ
-
GPS位置情報で2点の中間地点の...
-
セカンドライフ アカウント登録
-
月末日に、各月の合計温度を出す
-
Google Mapsを利用して屋根の面...
-
UWSC使用中に画面クリックする...
-
僕は、今19歳です 僕は、小さい...
-
Googleマップなどの地図サービ...
-
認証コードの入力の仕方教えて...
-
荒野行動の引き継ぎについて質...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
最小化ボタンで最小化したフォ...
-
ACCESSで別DBにあるクエリを...
-
Excelで、チェックボックスにチ...
-
円の中に等間隔に線を引くには
-
VBAでのユーザフォームの表示有...
-
エクセル マクロ 別シートから...
-
Excel vba 条件分岐 空白セルが...
-
ascW関数の結果がおかしい
-
Excelのマクロ実行後に動作が重...
-
メニューバーのイベントが2回...
-
ExcelVBAで毎月月初の最初にBoo...
-
Excel VBAのステップイン
-
ExcelVBA 日付変更
-
excel2010でボタンが反応しなく...
-
エクセルVBAのコードで質問です...
-
ExcelVBA ドロップボックスで月...
-
エクセル VBA
おすすめ情報