ID非公開

2022/7/5 9:58

22回答

VBAに関して、特定の条件を満たす場合ポップアップが表記されるようにしたいです。 こちらの行いたい希望としては

VBAに関して、特定の条件を満たす場合ポップアップが表記されるようにしたいです。 こちらの行いたい希望としては ①C列で5,000分以上のデータがある場合、ポップアップにvbCriticalの警告で”実績異常！”と表示 ②D列で率が300%以上の場合も、ポップアップにvbCriticalの警告で”実績異常！”と表示 なお、ポップアップの表記は1度だけで大丈夫です(実績に異常があることが分かれば良いので・・・) また、このExcelデータを作る際に、マクロを使用しておりまして、 データ作成が完了後に、メッセージボックスで“完了！”と表記させているのですが、 出来れば“完了！”と表記した後に、この実績異常！のポップアップを表記させたいです。 可能でしょうか？よろしくお願いいたします。

画像

Visual Basic | Excel・54閲覧・xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

1
関数は苦手

カテゴリマスター

2022/7/5 10:35

試しにやってみただけなので、 そちらの環境で動作しなかったらスルーしてください。 Sub Sample() Dim msg(), n As Long If IsNumeric(Application.Match(5000, Range("C:C"), -1)) Then ReDim Preserve msg(n) msg(n) = "実績異常！(C列)" n = n + 1 End If If IsNumeric(Application.Match(3, Range("D:D"), -1)) Then ReDim Preserve msg(n) msg(n) = "実績異常！(D列)" End If If IsArray(msg) Then MsgBox Join(msg, vbCr), vbCritical End Sub

画像

1人がナイス！しています

ThanksImg質問者からのお礼コメント

ありがとうございました！こちらの希望どうりに動きましたので、こちらをベストアンサーに致します！！助かりました！

お礼日時：7/5 10:58

その他の回答（1件）

1
qgl********

2022/7/5 10:58

これでどうでしょうか。 ※挿入位置を間違えないようにしてください。 Dim xDif As Integer, xPer As Integer xDif = WorksheetFunction.CountIf(Range("C:C"), ">=5000") xPer = WorksheetFunction.CountIf(Range("D:D"), ">=300%") '完了のメッセージ If xDif > 0 Or xPer > 0 Then Dim ans As Integer ans = MsgBox("C列 " & xDif & " 件" & vbLf & _ "D列 " & xPer & " 件" & vbLf & _ "実績異常があります。" _ , vbOKOnly + vbCritical, "実績異常") End If

1人がナイス！しています