W tym artykule dowiemy się, jak liczyć i wyświetlać sumę za pomocą VBA w programie Microsoft Excel.
Za pomocą prostego ćwiczenia zrozumiemy, jak i gdzie możemy liczyć i wyświetlać sumy za pomocą VBA w programie Microsoft Excel.
Mamy dane w Arkuszu 1, w którym kolumna A zawiera kategorię, kolumna B zawiera identyfikator konkurenta, a kolumna C zawiera status.
Teraz chcemy pobrać raport w arkuszu Sheet2 w tym samym skoroszycie, który zawiera kategorycznie dane kandydatów, którzy przeszli i nie zdali egzaminu.
Postępuj zgodnie z poniższymi instrukcjami:-
- Naciśnij klawisz Alt + F11, aby otworzyć stronę VBE i napisać makro.
- Następnie przejdź do zakładki wstaw i wstaw moduł.
- Napisz poniżej wspomniany kod na stronie.
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 = 0Countpass2 = 0CountFail2 = 0 For i = 2 To Lastrow If Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Zaliczono" Potem Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY1" And Sheet1.Cells(i, 3) = "Niepowodzenie" Wtedy countfail1 = countfail1 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Podaj" Then Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY2" And Sheet1.Cells(i, 3) = "Niepowodzenie" Then CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Liczba pozytywnych wyników CTY1," & " " & Countpass1 & " " & "Liczba błędów CTY1," & " " & countfail1 & vbCrLf & "Licznik przejść CTY2" & " " & Countpass2 & " " & "Liczba niepowodzeń 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
• Aby uruchomić makro, naciśnij klawisz F5.
• Wszystkie szczegóły zostaną zaktualizowane w Arkuszu 2 zgodnie z wymaganiami.
Jest to sposób na liczenie i wyświetlanie sum za pomocą VBA w programie Microsoft Excel.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail