Šajā rakstā mēs uzzināsim, kā saskaitīt un parādīt kopsummu, izmantojot VBA programmā Microsoft Excel.
Ar vienkāršu uzdevumu sapratīsim, kā un kur mēs varam saskaitīt un parādīt kopsummas, izmantojot Microsoft Excel VBA.
Mums ir dati 1. lapā, kurā A slejā ir kategorija, B slejā ir konkurenta ID un C slejā ir statuss.
Tagad mēs vēlamies kategoriski izgūt pārskatu 2. lapā tajā pašā darbgrāmatā, kurā ir dati par nokārtotajiem un neveiksmīgajiem kandidātiem.
Izpildiet tālāk norādītās darbības:-
- Nospiediet taustiņu Alt+F11, lai atvērtu VBE lapu makro rakstīšanai.
- Pēc tam dodieties uz cilni Ievietot un ievietojiet moduli.
- Lapā ierakstiet zemāk minēto kodu.
Sub CountStatus () Dim Lastrow Tik ilgi, Countpass1 Cik ilgi, countfail1 Tik ilgi Dim Erow Tik ilgi, Countpass2 Cik ilgi, CountFail2 As Long Lastrow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Row erow = Sheet2 . Šūnas (Rows.Count, 1). Beigt (xlUp). Nobīde (1, 0). Rindu skaits1 = 0 countfail1 = 0 Countpass2 = 0 CountFail2 = 0 Attiecībā uz i = 2 līdz Lastrow If Sheet1.Cells (i, 1) = "CTY1" Un 1. lapa. countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Un Sheet1.Cells (i, 3) = "Pass" Tad Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Un lapa1. "& countfail1 & vbCrLf &" CTY2 caurlaides skaits, "&" "& Countpass2 &" "&" CTY2 kļūdu skaits, "&" "& CountFail2 Sheet2.Range (" A2: C500 "). Notīrīt Sheet2.Cells ( aura, 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
• Lai palaistu makro, nospiediet taustiņu F5.
• Visa informācija tiks atjaunināta lapā Sheet2 atbilstoši prasībām.
Tas ir veids, kā saskaitīt un parādīt kopsummas, izmantojot VBA programmā Microsoft Excel.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē