열 합계 Microsoft Excel에서 VBA를 사용하여 초과하는 경우 메시지를 표시
이 기사에서는 워크 시트의 변경 이벤트를 사용하여 열 합계가 총 값을 초과 할 때 경고 메시지를 표시합니다.
원시 데이터는 의약품의 소금 성분으로 구성됩니다. 그것은 소금 이름으로 구성되며 10g 당 무게입니다.
모든 소금 성분의 합계는 10g입니다. 에탄 염의 무게를 0.75에서 1로 변경하면 경고 메시지가 나타납니다.
논리 설명
이 기사에서는 워크 시트의 변경 이벤트를 사용하여 경고 메시지를 생성했습니다. 변경 이벤트는 총 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]로 문의 해주세요