В этой статье мы будем использовать событие изменения рабочих листов для отображения предупреждающего сообщения, когда общее количество столбцов превышает общее значение.

Исходные данные представляют собой солевой состав лекарства. Он состоит из названия соли и ее веса на 10 грамм.

ArrowRaw

Сумма всех солевых ингредиентов равна 10 граммам. Когда мы изменяем вес этановой соли с 0,75 на 1, появится предупреждающее сообщение.

ArrowOutput

Логическое объяснение

В этой статье мы использовали событие изменения рабочего листа для генерации предупреждающего сообщения. Событие Change проверяет общее количество столбцов 2 ^ nd ^, которое не должно превышать 10.

Объяснение кода

Если Target.Column = 2 Then. Приведенный выше код используется для ограничения срабатывания события изменения только при изменении значения в столбце 2 ^ nd ^.

WorksheetFunction.Sum (Столбцы (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]