![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
下記が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ランキング
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
VBAコードについて教えてくださ...
-
[vb.net] 起動したFrom2を閉じ...
-
重複確認
-
ExcelVBA修正のお願い
-
マクロの記録を使用したマクロ...
-
{ CONTROL Forms.Label.1}が...
-
エクセルのVBAコードについて教...
-
VBの色を変えるにはどうしたら...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
VBA 別ブックからコピペしたい...
-
A列B列どちらにもあるのを抽...
-
Excelに保存されているユーザー...
-
VBAコンボボックスで選択した値...
-
Excel(M365) Vlookup/セル反転(...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
VBAでのユーザフォームの表示有...
-
エクセル マクロ 別シートから...
-
ACCESSで別DBにあるクエリを...
-
最小化ボタンで最小化したフォ...
-
Excel vba 条件分岐 空白セルが...
-
ascW関数の結果がおかしい
-
メニューバーのイベントが2回...
-
GetAsyncKeyState() を利用する...
-
ExcelVBAで毎月月初の最初にBoo...
-
Excelで、チェックボックスにチ...
-
excel2010でボタンが反応しなく...
-
Excelのマクロ実行後に動作が重...
-
Excel VBAのステップイン
-
実行時エラー9 インデックスが...
-
ステップモードの動作確認方法
-
excelのvbaを使って日付を置換...
-
質問2回目になっちゃいます ex...
おすすめ情報