ExcelのVBAコードについて教えてください。

作業ブックのシート名「300」に設定するVBAコードについて教えてください。
セル「F2」～「F12」にそれぞれ「確認必要」又は「確認不要」のいずれかが
表示されます。（各セルに重複して表示される場合もあります。）
セル「F2」～「F12」のどれかに「確認必要」が表示された場合に
メッセージBOXが起動し
はい（Y）をクリックすると
マクロ「便利帳比較ひな形」が実行され
いいえ（N）をクリックすると
メッセージBOXがクローズできる方法を教えてください。
メッセージの文章は
「内容が変更されております、確認をお願いします。」
としてください。
メッセージBOXの参考画像をお送りいたします。
画像のように「？」マークも設定をお願いします。
詳しい方、よろしくお願いします。

No.1 ベストアンサー 回答者： zongai 回答日時： 2023/04/22 01:46

まだ回答ついてなかったんですね。

とりあえず、たたき台としてお試し下さい。

Private Sub Worksheet_Calculate()
　　Dim cell As Range
　　Dim result As Integer
　　For Each cell In Range("F2:F12")
　　　　If cell.Value = "確認必要" Then
　　　　　　result = MsgBox("内容が変更されております、確認をお願いします。", vbYesNo + vbQuestion)
　　　　　　If result = vbYes Then
　　　　　　　　Call 便利帳比較ひな形
　　　　　　Else
　　　　　　
　　　　　　End If
　　　　　　
　　　　　　Exit Sub
　　　　End If
　　Next cell
End Sub

この回答へのお礼

回答ありがとうございます
早速試してみます

お礼日時：2023/04/22 05:36