Επιλέξτε το εύρος κελιών σε μια μακροεντολή VBA χρησιμοποιώντας το ποντίκι ή το πληκτρολόγιο και επιστρέψτε το ως μεταβλητό αποτέλεσμα
Οι σειρές των κελιών επεξεργάζονται σε πολλές μακροεντολές. Αναζητάτε έναν βολικό τρόπο για να επιτρέψετε στον χρήστη να επιλέξει μια περιοχή από μια μακροεντολή; Στη συνέχεια, μπορείτε να χρησιμοποιήσετε την εντολή INPUTBOX.
Το παρακάτω σχήμα δείχνει ποιο παράθυρο εισόδου μπορείτε να συμπεριλάβετε στις μακροεντολές σας με αυτήν την εντολή:
Αφού εμφανιστεί το παράθυρο, μπορείτε να χρησιμοποιήσετε το ποντίκι ή το πληκτρολόγιο για να επιλέξετε μια περιοχή σε έναν πίνακα. Το Excel εισάγει αυτόματα την κατάλληλη αναφορά στο πεδίο εισαγωγής. Η ακόλουθη μακροεντολή δείχνει πώς να ενσωματώσετε τέτοια παράθυρα:
Sub MarkArea ()
Στο Σφάλμα Συνέχιση Επόμενο
Αμυδρή περιοχή As Range
Ορισμός περιοχής = Application.InputBox ("Επιλέξτε μια περιοχή", _
"Επιλογή περιοχής" ,,,,,, 8)
MsgBox "Έχετε επιλέξει την ακόλουθη περιοχή:" & _
Περιοχή. Διεύθυνση Τοπική (Λάθος, Λάθος)
Σφάλμα GoTo 0
Τέλος υπο
Μετά την εκκίνηση της μακροεντολής, το Excel εμφανίζει πρώτα το παράθυρο. Όταν έχετε επιλέξει μια περιοχή κελιών, το Excel εμφανίζει το προηγούμενο επιλεγμένο εύρος σε ένα παράθυρο μηνύματος:
Αντί για το παράθυρο μηνύματος, χρησιμοποιήστε τον κώδικα προγράμματος στις μακροεντολές σας με τις οποίες θα θέλατε να επεξεργαστείτε τα κελιά στην προηγουμένως επιλεγμένη περιοχή κελιών. Δεδομένου ότι η εντολή INPUTBOX επιστρέφει ένα αντικείμενο του τύπου RANHGE, μπορείτε να επεξεργαστείτε το επιλεγμένο εύρος κελιών αμέσως, για παράδειγμα σε έναν βρόχο FOR-EACH.
Για να εισαγάγετε τη μακροεντολή, πατήστε ALT F11 στο Excel για να εμφανιστεί ο επεξεργαστής VBA. Χρησιμοποιήστε την εντολή INSERT - MODULE για να εισαγάγετε ένα κενό φύλλο λειτουργικής μονάδας. Για να ξεκινήσετε τη μακροεντολή απευθείας από το Excel, χρησιμοποιήστε τον συνδυασμό πλήκτρων ALT F8.
