在本文中，当列总计超过总计值时，我们将使用工作表的change事件显示警告消息。

原始数据由药物的盐成分组成。它由盐的名称和每10克的重量组成。

ArrowRaw

所有盐成分的总和等于10克。当我们将乙烷盐的重量从0.75更改为1时，将弹出警告消息。

ArrowOutput

逻辑解释

在本文中，我们使用了工作表的change事件来生成警告消息。更改事件检查2 ^ nd ^列的总数，该列不得超过10。

代码说明

如果Target.Column = 2，则以上代码用于将change事件限制为仅在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]