엑셀 VBA를 통해 세포 카운트
이 기사에서는 Microsoft Excel에서 VBA를 통해 합계를 계산하고 표시하는 방법을 알아 봅니다 .
간단한 연습을 통해 Microsoft Excel에서 VBA를 통해 총계를 계산하고 표시 할 수있는 방법과 위치를 이해하겠습니다. 시트 1에는 A 열에 카테고리가 포함되고 B 열에 경쟁 업체 ID가 포함되고 C 열에 상태가 포함 된 데이터가 있습니다.
이제 통과 및 실패한 후보의 데이터가 포함 된 동일한 통합 문서에서 Sheet2의 보고서를 범주별로 검색하려고합니다.
아래 주어진 단계를 따르십시오 :-
-
Alt + F11 키를 눌러 VBE 페이지를 열어 매크로를 작성합니다.
-
그런 다음 탭 삽입으로 이동하여 모듈을 삽입하십시오.
-
페이지에 아래 언급 된 코드를 작성하십시오.
Sub CountStatus()
Dim Lastrow As Long, Countpass1 As Long, countfail1 As Long
Dim erow As Long, Countpass2 As Long, CountFail2 As Long
Lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Countpass1 = 0
countfail1 = 0
Countpass2 = 0
CountFail2 = 0
For i = 2 To Lastrow
If Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Pass" Then
Countpass1 = Countpass1 + 1
ElseIf Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Fail" Then
countfail1 = countfail1 + 1
ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Pass" Then
Countpass2 = Countpass2 + 1
ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Fail" Then
CountFail2 = CountFail2 + 1
End If
Next i
'Msgbox "Pass count of CTY1," & " " & Countpass1 & " " & "Fail Count of CTY1," & " " & countfail1 & vbCrLf & "Pass count of CTY2," & " " & Countpass2 & " " & "Fail Count of CTY2," & " " & CountFail2
Sheet2.Range("A2:C500").Clear
Sheet2.Cells(erow, 1) = "CTY1"
Sheet2.Cells(erow, 2) = Countpass1
Sheet2.Cells(erow, 3) = countfail1
erow = erow + 1
Sheet2.Cells(erow, 1) = "CTY2"
Sheet2.Cells(erow, 2) = Countpass2
Sheet2.Cells(erow, 3) = CountFail2
End Sub
-
매크로를 실행하려면 F5 키를 누릅니다.
-
모든 세부 사항은 요구 사항에 따라 Sheet2에서 업데이트됩니다.
Microsoft Excel에서 VBA를 통해 합계를 계산하고 표시하는 방법입니다.
_ 블로그가 마음에 들면 Facebook에서 친구들과 공유하세요. 또한 Twitter에서 팔로우 할 수 있습니다 ._ _ 귀하의 의견을 듣고 싶습니다. 작업을 개선, 보완 또는 혁신하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]_로 문의 해주세요