Πώς να χρησιμοποιήσετε ActiveCell στο Excel Χρήση VBA

Εάν εργάζεστε με το Microsoft Office Excel συχνά είναι καλό να γνωρίζουμε πώς να χρησιμοποιήσετε το " ActiveCell " ιδιότητα να προσθέτει , να πάρει , και ακόμη και την αλλαγή της μορφής των δεδομένων σε ένα φύλλο εργασίας . Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των εργασιών ρουτίνας . Στην VBA μπορείτε να χρησιμοποιήσετε το " ActiveCell " περιουσία για να κάνετε αλλαγές στα δεδομένα σας . Με VBA μπορείτε να εξοικονομήσετε χρόνο με την αυτοματοποίηση μιας διαδικασίας αντί να εκτελέσετε την ίδια εργασία με το χέρι . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " , και κάντε κλικ στο " Visual Basic ". 2

Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα "για να εισάγετε μια νέα λειτουργική μονάδα κώδικα . Πληκτρολογήστε τον ακόλουθο κώδικα για να ξεκινήσει μια νέα διαδικασία ρουτίνας :

Private Sub usingActiveCell ( )
εικόνων 3

αντιγραφή και επικόλληση του παρακάτω, για να ενεργοποιήσετε " Φύλλο1 : "

Φύλλα εργασίας ( "Sheet1 " ) Ενεργοποίηση
Η 4

αντιγραφή και επικόλληση του παρακάτω για να προσθέσετε μια τιμή σε "A1 ", " A2 " και " A3 : . "

Κατηγορίας ( "A1" ) . Επιλέξτε

ActiveCell.Value = 3,5

Range ( " A2 " ) . Επιλέξτε

ActiveCell.Value = 10

Κατηγορίας . ( " A3" ) Επιλέξτε

ActiveCell.Value = 20
5

Αντιγράψτε και επικολλήστε τον παρακάτω για να επισημάνετε τα κελιά με δεδομένα :

με ActiveCell

Range ( Cells ( Row, CurrentRegion.Column ) , κύτταρα ( Row , CurrentRegion.Columns.Count + CurrentRegion.Column - . . . . . 1 ) ) . Interior.ColorIndex = 8

Κατηγορίας ( Cells ( CurrentRegion.Row , Στήλη ) , κύτταρα ( CurrentRegion.Rows.Count + CurrentRegion.Row - . . . . . 1 , Στήλη ) ) . Interior.ColorIndex = 8

End With

Application.ScreenUpdating = True
Η 6

Αντιγράψτε και επικολλήστε τον παρακάτω, για να εμφανίσετε τις τιμές προστίθεται μέσω της "άμεσης Window : " .

Range ( "A1" ) Επιλέξτε

Debug.Print ActiveCell.Value

Range ( " A2 " ) . Επιλέξτε

Debug.Print ActiveCell.Value

Range ( " A3" ) . Επιλέξτε

Debug.Print ActiveCell.Value
Η 7

αντιγραφή και επικόλληση του παρακάτω, για να τερματίσετε τη διαδικασία ρουτίνας :

End Sub
8

Πιέστε το πλήκτρο " Ctrl " και " G" για να εμφανιστεί η " Άμεση Παράθυρο " και πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων