이 기사에서는 워크 시트의 변경 이벤트를 사용하여 열 합계가 총 값을 초과 할 때 경고 메시지를 표시합니다.

원시 데이터는 의약품의 소금 성분으로 구성됩니다. 그것은 소금 이름으로 구성되며 10g 당 무게입니다.

ArrowRaw

모든 소금 성분의 합계는 10g입니다. 에탄 염의 무게를 0.75에서 1로 변경하면 경고 메시지가 나타납니다.

ArrowOutput

논리 설명

이 기사에서는 워크 시트의 변경 이벤트를 사용하여 경고 메시지를 생성했습니다. 변경 이벤트는 총 2 ^ nd ^ 열을 확인합니다.이 열은 10을 초과하지 않아야합니다.

코드 설명

If 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]로 문의 해주세요