この記事では、ワークシートの変更イベントを使用して、列の合計が合計値を超えたときに警告メッセージを表示します。

生データは、医薬品の塩組成で構成されています。塩の名前と10グラムあたりの重量で構成されています。

ArrowRaw

すべての塩成分の合計は10グラムに等しいです。エタン塩の重量を0.75から1に変更すると、警告メッセージがポップアップ表示されます。

ArrowOutput

ロジックの説明

この記事では、ワークシートの変更イベントを使用して警告メッセージを生成しました。変更イベントは、2 ^ nd ^列の合計をチェックします。これは10を超えてはなりません。

コードの説明

If Target.Column = 2 Then上記のコードは、2 ^ nd ^列の値が変更された場合にのみトリガーされるように変更イベントを制限するために使用されます。

WorksheetFunction.Sum（Columns（2））

上記のコードは、列2のすべての値の合計を取得するために使用されます。

コードについては以下に従ってください

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'Checking whether value is changed in second column

If Target.Column = 2 Then



'Checking whether sum of values in second column is greater than 10

If WorksheetFunction.Sum(Columns(2)) > 10 Then

MsgBox "Caution, Total has exceeded 10g"

End If

End If

End Sub

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください