エクセルマクロ 実行回避マクロ

エクセルのシートのあるセルに条件に合わない場合notの文字を表示し、入力箇所にエラーがあることを喚起しているのですが、いつも通り作業しエラーがないものと思い込み更新実行のマクロボタンをクリックしてしまう人がいます(気をつけてほしいのですが)
このnotの表示が出た場合に更新実行ボタンをクリックしても起動しないようにする或いはnotが出ていて実行できませんとメッセージを出してマクロを起動しないマクロを作りたいのですが。
宜しくお願いします。

No.1 ベストアンサー 回答者： fakeflake 回答日時： 2018/06/13 15:39

そのnotって表示がどこに出ているのかにもよると思いますが、セル内に出てるんだったらマクロの方でそのセルを見て回って、notが見つ

かったら処理しないという形にすればいいのでは？

この回答へのお礼

ありがとうございます。
そうですね。試してみます。

お礼日時：2018/06/13 20:08

No.2 回答者： WindFaller 回答日時： 2018/06/15 10:29

こんにちは。

>入力箇所にエラーがあることを喚起しているのですが、
Button1の方は、明らかに、そのシートにエラーがある場合。
Button2 は、どこかのセルに 単独で　not と書かれてあった場合に、実行をストップさせます。


Sub Button1_Click()
Dim c As Range 'ダミー
With ActiveSheet.UsedRange
　On Error Resume Next
　Set c = .SpecialCells(xlCellTypeFormulas, xlErrors)
　If Not c Is Nothing Then
　 MsgBox "このシートにはエラーがあって、マクロが実行できません。", vbExclamation
　 Exit Sub
　End If
　On Error GoTo 0
　'実行
　Beep　'実際のマクロの置き換え
End With
End Sub
'//
Sub Button2_Click()
Dim Rng As Range 'ダミー
With ActiveSheet.UsedRange
Set c = .Find("not", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
　If Err = 0 Then
　 MsgBox "このシートには 'not' があって、マクロが実行できません。", vbExclamation
　 Exit Sub
　 On Error GoTo 0
　End If
　'実行
　Beep '実際のマクロの置き換え
End With
End Sub

この回答へのお礼

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

お礼日時：2018/06/16 20:50