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ランキング
-
再登録可能時期
-
抹消と取消の違いについて
-
一時抹消渡しについて
-
ドリームキャストの登録抹消の...
-
私名義の車が一時抹消してあり(...
-
軽自動車を解体しました。廃車...
-
車検をいったん切りたいが、廃...
-
一時抹消登録と抹消登録
-
自動車 職権抹消について!
-
車の一時抹消と永久抹消の違い...
-
実家に置いたままの車を一時抹...
-
一時抹消中の車について
-
至急!車税未納 抹消 新規登録...
-
一時抹消してある軽自動車を譲...
-
車検証等ない車の廃車手続き
-
メルカリで自転車が売れてお相...
-
アマチュア無線技士の資格と空...
-
一時抹消車の譲渡
-
青ナンバー抹消登録の手続き
-
抹消登録した車の名義変更(抹...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
抹消と取消の違いについて
-
再登録可能時期
-
自動車 職権抹消について!
-
“強制抹消”車の登録は本当に不...
-
ドリームキャスト破棄時の個人...
-
メルカリで自転車が売れてお相...
-
名義変更前に違反をされました
-
一時抹消渡しについて
-
一時抹消から永久抹消への書類...
-
自転車の防犯登録の抹消と再登...
-
一時抹消の車の名義変更について
-
廃車 抹消登録の車台番号の桁...
-
ドリームキャストの登録抹消の...
-
一時抹消と、返納の違いについて
-
自動車の永久抹消登録の催告
-
普通車を譲渡するときの自賠責...
-
自転車の防犯登録を抹消したい...
-
RAID0のハードディスクの完全...
-
用地買収に係る抵当権抹消費用
-
家系図を作りたいのですが・・・
おすすめ情報