Σε αυτό το άρθρο, θα μάθουμε πώς να μετράμε και να εμφανίζουμε το σύνολο μέσω VBA στο Microsoft Excel.
Ας καταλάβουμε με μια απλή άσκηση, πώς και πού μπορούμε να μετρήσουμε και να εμφανίσουμε σύνολα μέσω VBA στο Microsoft Excel.
Έχουμε δεδομένα στο Φύλλο 1 στο οποίο η στήλη Α περιέχει κατηγορία, η στήλη Β περιέχει αναγνωριστικό ανταγωνιστή και η στήλη Γ περιέχει κατάσταση.
Τώρα, θέλουμε να ανακτήσουμε μια αναφορά στο Φύλλο2 στο ίδιο βιβλίο εργασίας που περιέχει τα δεδομένα των υποψηφίων που πέρασαν και απέτυχαν, κατηγορηματικά.
Ακολουθήστε τα παρακάτω βήματα:-
- Πατήστε το πλήκτρο 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 . Κελιά (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" Στη συνέχεια Countpass1 = Countpass1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY1" And Sheet1.Cells (i, 3) = "Fail" Τότε countfail1 = countfail1 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" And Sheet1.Cells (i, 3) = "Pass" Στη συνέχεια Countpass2 = Countpass2 + 1 ElseIf Sheet1.Cells (i, 1) = "CTY2" Και Sheet1.Cells (i, 3) = "Fail" Στη συνέχεια CountFail2 = CountFail2 + 1 Τέλος Αν Επόμενο 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 σύμφωνα με τις απαιτήσεις.
Αυτός είναι ο τρόπος μέτρησης και εμφάνισης συνόλων μέσω VBA στο Microsoft Excel.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email