Šiame straipsnyje mes sužinosime, kaip skaičiuoti ir rodyti sumą per VBA „Microsoft Excel“.
Su paprastu pratimu suprasime, kaip ir kur galime suskaičiuoti ir rodyti sumas per VBA „Microsoft Excel“.
1 lape turime duomenų, kuriuose A stulpelyje yra kategorija, B stulpelyje yra konkurento ID, o C stulpelyje yra būsena.
Dabar mes norime kategoriškai gauti ataskaitą toje pačioje darbaknygėje esančiame 2 lape, kuriame yra patvirtintų ir nepavykusių kandidatų duomenys.
Atlikite toliau nurodytus veiksmus:-
- Paspauskite klavišą „Alt“+F11, kad atidarytumėte VBE puslapį, kad galėtumėte rašyti makrokomandą.
- Tada eikite į skirtuką „Įterpti“ ir įdėkite modulį.
- Puslapyje parašykite žemiau nurodytą kodą.
Sub CountStatus () Dim Lastrow kaip ilgai, Countpass1 kaip Long, countfail1 Kaip Long Dim erow Long, Countpass2 kaip Long, CountFail2 As Long Lastrow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Row erow = Sheet2 .Ląstelės (eilutės. Skaičius, 1). Pabaiga (xlUp). Poslinkis (1, 0). Eilių skaičius1 = 0 skaičiavimų skaičius1 = 0 Skaičiavimo2 = 0 skaičius = "CTY1" ir Sheet1.Cells (i, 3) = "Pass" Tada Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" Ir Sheet1.Cells (i, 3) = "Fail" Tada countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" ir Sheet1.Cells (i, 3) = "Pass" Tada Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Ir Sheet1.Cells (i, 3) = "Fail" Tada CountFail2 = CountFail2 + 1 End If Next i 'Msgbox "Pass number of CTY1," & "" & Countpass1 & "" & "Fail Count of CTY1," & " "& countfail1 & vbCrLf &" CTY2 leidimų skaičius, "&" "& Countpass2 &" "&" CTY2 gedimų skaičius, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Išvalyti 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
• Norėdami paleisti makrokomandą, paspauskite klavišą F5.
• Visa informacija bus atnaujinta 2 lape, kaip reikalaujama.
Taip galima skaičiuoti ir rodyti sumas per VBA „Microsoft Excel“.
Jei jums patiko mūsų tinklaraščiai, pasidalykite jais su draugais „Facebook“. Taip pat galite sekti mus „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime patobulinti, papildyti ar naujovinti savo darbą ir padaryti jį geresnį. Parašykite mums el