B列に抹消と入力したら別の列に抹消と記載する以下のマクロがありますが、
B列に抹消と入力したらMsgBoxで抹消しますか?と表示させたいです。
MsgBox関数を特定場所に挿入したのですが、うまくいかず、どこに挿入したらよろしいでしょうか。(オブジェクトが必要です。のエラーが出てしまう状況です。)
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim h As Range
On Error Resume Next
For Each h In Application.Intersect(Target, Range("B:B"))
If h = "抹消" Then
Cells(h.Row, "E").Resize(1, 7).SpecialCells(xlCellTypeConstants) = "抹消"
End If
Next
End Sub
No.1ベストアンサー
- 回答日時:
つまらぬ心配ですが、「抹消」と「末梢」とか、打ち間違えないようご注意。
私は間違えました(笑) リストの機能で B 列の値を制限でもしておけば、それは回避できそうですね。MsgBox 関数を入れる場合、On Error Resume Next のままにしておくと B 列以外の変更であっても何でもかんでもメッセージが出てしまうので、On Error Resume Next は削除します。元々、一般的には、変更するセル範囲を絞ってプロシージャを実行する場合、On Error Resume Next により力ずくで動かすよりも、Intersect メソッドで場合分けをします。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim h As Range
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
For Each h In Intersect(Target, Range("B:B"))
If h.Value = "抹消" Then
If MsgBox(prompt:="抹消しますか?", Buttons:=vbOKCancel) = vbOK Then
Cells(h.Row, "E").Resize(1, 7).SpecialCells(xlCellTypeConstants).Value = "抹消"
End If
End If
Next h
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) マクロで列を加えたら上手くいかなくなりました。 2 2022/05/23 17:59
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
抹消と取消の違いについて
-
ドリームキャストの登録抹消の...
-
車検切れ名義変更(一時抹消後名...
-
自動車 職権抹消について!
-
一時抹消すれば自動車税をまぬ...
-
ドリームキャスト破棄時の個人...
-
車の一時抹消と永久抹消の違い...
-
中古車の抹消渡しについて
-
自転車防犯登録抹消 名古屋 栄周辺
-
車売却時の一時抹消登録手続き
-
スカイラインV35の触媒流用につ...
-
一時抹消登録と個人売買
-
普通車廃車(永久)方法を教え...
-
車庫証明の取り方と必要書類
-
軽自動車を解体しました。廃車...
-
一時抹消車の譲渡
-
家系図を作りたいのですが・・・
-
用地買収に係る抵当権抹消費用
-
一時抹消登録証明書って…
-
税金未納→抹消→譲渡→中古新規登...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
抹消と取消の違いについて
-
再登録可能時期
-
自動車 職権抹消について!
-
“強制抹消”車の登録は本当に不...
-
ドリームキャスト破棄時の個人...
-
メルカリで自転車が売れてお相...
-
名義変更前に違反をされました
-
一時抹消渡しについて
-
一時抹消から永久抹消への書類...
-
自転車の防犯登録の抹消と再登...
-
一時抹消の車の名義変更について
-
ドリームキャストの登録抹消の...
-
廃車 抹消登録の車台番号の桁...
-
一時抹消と、返納の違いについて
-
自動車の永久抹消登録の催告
-
普通車を譲渡するときの自賠責...
-
自転車の防犯登録を抹消したい...
-
RAID0のハードディスクの完全...
-
家系図を作りたいのですが・・・
-
用地買収に係る抵当権抹消費用
おすすめ情報