Πώς να χρησιμοποιήσετε μια μακροεντολή VBA για να μάθετε πόσες γραμμές και στήλες χρησιμοποιούνται σε έναν πίνακα Excel
Ανάλογα με την έκδοση του Excel, ένας διαφορετικός αριθμός γραμμών και στηλών προσφέρεται σε έναν πίνακα. Πώς μπορείτε να πείτε σε μια μακροεντολή όταν θέλετε να επαναλάβετε όλες τις γραμμές ή τις στήλες ενός πίνακα;
Ενώ στο Excel μέχρι και την έκδοση 2003 υπήρχαν μόνο 256 στήλες και 65.536 σειρές, από το Excel 2007 υπάρχουν 16.384 στήλες και 1.048.576 σειρές διαθέσιμες.
Υπάρχουν επίσης διαφορετικές μορφές αποθήκευσης στο Excel για τα δύο διαφορετικά υπολογιστικά φύλλα: XLS και XLSX. Ωστόσο, δεν ισχύει ότι ένα αρχείο XLSX πρέπει να έχει αυτόματα τα φύλλα εργασίας μεγαλύτερου μεγέθους. Ακόμη και στο Excel 2007 και Excel 2010, όταν ανοίγει ένα αρχείο σε λειτουργία συμβατότητας, είναι διαθέσιμες μόνο οι προηγούμενες διαστάσεις του πίνακα.
Επομένως, εάν θέλετε να προσδιορίσετε σε μια μακροεντολή πόσες γραμμές και στήλες έχει ένα φύλλο εργασίας, θα πρέπει να ζητήσετε απευθείας αυτόν τον αριθμό. Η παρακάτω μακροεντολή δείχνει πώς να το κάνετε αυτό
Sub RowUndColumnNumber ()
MsgBox ActiveSheet.Cells.Rows.Count & "Rows" & _
ActiveSheet.Cells.Columns.Count & "στήλες".
Τέλος υπο
Εάν καλέσετε τη μακροεντολή με ένα φύλλο εργασίας XLS, το Excel σας εμφανίζει τον αντίστοιχο αριθμό γραμμών και στηλών, όπως φαίνεται στο παρακάτω σχήμα:
Εάν ξεκινήσετε τη μακροεντολή από το Excel 2007 ή το Excel 2010 χωρίς λειτουργία συμβατότητας, ένα παράθυρο διαλόγου σας δείχνει τις μεγαλύτερες διαστάσεις του πίνακα:
Σε βρόχους VBA που πρόκειται να εκτελεστούν σε όλα τα κελιά ενός πίνακα, μπορείτε επομένως να χρησιμοποιήσετε τις δύο ιδιότητες ROWS.COUNT και COLUMNS.COUNT όπως περιγράφονται για να καθορίσετε τις διαστάσεις ενός φύλλου εργασίας.
Μπορεί να χρειαστεί πολύς χρόνος (ειδικά στο Excel 2007 και Excel 2010) για να εκτελεστεί σε όλα τα θεωρητικά διαθέσιμα κελιά χρησιμοποιώντας μια μακροεντολή. Εάν θέλετε να περιορίσετε μόνο τους βρόχους στην περιοχή που χρησιμοποιείται, συνιστούμε να χρησιμοποιήσετε αντ 'αυτού την ιδιότητα USEDRANGE.
Για να εισαγάγετε τη μακροεντολή, πατήστε το συνδυασμό πλήκτρων ALT F11 στο Excel. Αυτό ξεκινά τον επεξεργαστή VBA σε όλες τις εκδόσεις του Excel. Εκεί επιλέξτε την εντολή INSERT - MODULE και εισαγάγετε τη μακροεντολή. Για να ξεκινήσετε τη μακροεντολή, ενεργοποιήστε τον συνδυασμό πλήκτρων ALT F8 στο Excel.
