[[20190307214959]]　『列に０があればメッセージを表示』（まさひろ）　ページの最後に飛ぶ

『列に０があればメッセージを表示』（まさひろ）

特定の１列に金額が1000行ぐらい入力されています。その中に０円があれば、保存を不可にするか、『金額０円があります』のようなメッセージを表示することはできますか？

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

条件付き書式でセル背景に色を付けて異常を知らせるのではだめですか。

 例えば、その列がA列だとして

 A～K列全体を選んで、
 条件付き書式で
 =countif($A*$A,0)>0
 の場合に、セル背景色を黄色にするとかです。

（マナ） 2019/03/07(木) 22:39

早速ありがとうございます。
ゼロがある場合、セル背景色を変更するところを、
マクロのメッセージボックスで『ゼロがあります』と表示する
ことはできますか？
（まさひろ） 2019/03/08(金) 06:29

 Sub test()

     Dim cnt As Long

     cnt = Application.CountIf(Columns("A"), 0)
     If cnt > 0 Then MsgBox "金額0円があります", vbExclamation

 End Sub
（bi） 2019/03/08(金) 09:59

たびたび申し訳ございません。
0があって、保存しようとしたときに自働的に "金額0円があります",とメッセージを表示することは可能でしょうか？

（まさひろ） 2019/03/08(金) 10:13

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

     Dim cnt As Long

     cnt = Application.CountIf(Columns("A"), 0)
     If cnt > 0 Then
        MsgBox "金額0円があります", vbExclamation
        Cancel = True
     End If

 End Sub

 Private Sub Workbook_BeforeClose(Cancel As Boolean)

     Dim cnt As Long

     cnt = Application.CountIf(Columns("A"), 0)
     If cnt > 0 Then
        MsgBox "金額0円があります", vbExclamation
        Cancel = True
     End If

 End Sub

 上記コードをThisWorkbookに貼り付けてください。
（bi） 2019/03/08(金) 14:20

コメント返信：