Είναι χρονοβόρο όταν θέλετε να μορφοποιήσετε τα κελιά με επιλογή και να εργαστείτε ταυτόχρονα με μεγάλα δεδομένα. Αλλά με τη βοήθεια του VBA , μπορούμε να προγραμματίσουμε για να το κάνουμε αρκετά εύκολα. Σε αυτό το σεμινάριο, θα σας δείξουμε πώς να χρησιμοποιήσετε το μεταβλητή σειρά και μεταβλητή στήλη σε ένα εύρος με Excel VBA .

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

5 κατάλληλοι τρόποι χρήσης της σειράς με μεταβλητή γραμμή και στήλη με το Excel VBA

Στην επόμενη ενότητα, θα καταδείξουμε 5 τρόποι για να δημιουργήσετε μεταβλητές σειρές και στήλες Επιπλέον, θα σας δείξουμε πώς να τα χρησιμοποιήσετε για να μορφοποιήσετε ή να εφαρμόσετε οποιαδήποτε προσαρμογή στο μεταβλητό εύρος Στην παρακάτω εικόνα απεικονίζεται ένα δείγμα δεδομένων για την αξιοποίηση της εργασίας.

1. Μορφοποιήστε μια συγκεκριμένη περιοχή με την εφαρμογή μεταβλητής γραμμής με το Excel VBA

Ας πούμε ότι θέλουμε να επιλέξουμε ένα μεταβλητό εύρος με την υποβολή αίτησης για μεταβλητός αριθμός σειράς Θα επιλέξουμε το εύρος B5:C10 και εφαρμόστε το χρώμα γραμματοσειράς ( Maroon Για να το κάνετε αυτό, ακολουθήστε τα παρακάτω απλά βήματα.

♠ Βήμα 1: Δημιουργήστε μια ενότητα VBA

• Πρώτα απ' όλα, πατήστε Alt + F11 για να ξεκινήσετε το Μακροεντολή VBA .
• Κάντε κλικ στο στο Εισαγωγή.
• Στη συνέχεια, επιλέξτε Ενότητα .

♠ Βήμα 2: Γράψτε έναν κώδικα VBA

• Γράψτε τα εξής Κώδικες VBA.

 Sub Variable_row_Select() 'δηλώνουμε μια μεταβλητή για τον αριθμό γραμμής Dim Row_Number As Integer 'Εισάγουμε ένα πλαίσιο εισαγωγής, πληκτρολογήστε 10 για τον αριθμό γραμμής Row_Number = InputBox("Πληκτρολογήστε τον αριθμό γραμμής") 'Εισάγουμε τη μεταβλητή 'row_num' για να επιλέξουμε τις 5 πρώτες γραμμές που περιέχουν δεδομένα Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select End Sub 

♠ Βήμα 3: Εκτελέστε το πρόγραμμα

• Πρώτον, save το πρόγραμμα και πατήστε F5 να τρέξει.
• Ως εκ τούτου, η Πλαίσιο εισαγωγής θα εμφανιστεί, και πληκτρολογήστε 10 ως το αριθμός σειράς .

• Τέλος, πατήστε Εισάγετε το για να δείτε ότι η εύρος με ( Σειρά 5 , Στήλη 2 ) σε ( Μεταβλητή Σειρά 10 , Στήλη 3 ) θα είναι επιλεγμένο .

♠ Βήμα 4: Εφαρμογή χρώματος γραμματοσειράς στην περιοχή

• Για να προσθέσετε χρώμα γραμματοσειράς στο επιλεγμένο εύρος , επικολλήστε τα εξής Κώδικες VBA .

 Sub Variable_row_Font() 'δηλώνουμε μια μεταβλητή για τον αριθμό γραμμής Dim Row_Number As Integer 'Εισάγουμε ένα πλαίσιο εισαγωγής, πληκτρολογήστε 10 για τον αριθμό γραμμής Row_Number = InputBox("Πληκτρολογήστε τον αριθμό γραμμής") 'Εισάγουμε τη μεταβλητή 'row_num' για να επιλέξουμε τις πρώτες 6 γραμμές που περιέχουν δεδομένα Sheets("Sheet1").Range(Cells(5, 2), Cells(Row_Number, 3)).Select 'Εισάγουμε ένα χρώμα για τη γραμματοσειρά σε Maroon With Selection .Font.Color = RGB(128, 0, 0, 0)End With End Sub 

♠ Βήμα 5: Πληκτρολογήστε έναν αριθμό γραμμής

• Τύπος a αριθμός σειράς ( 10 ) στο Πλαίσιο εισαγωγής .
• Κάντε κλικ στο OK .

• Ως εκ τούτου, η επιλεγμένο εύρος θα είναι χρωματιστό όπως φαίνεται στην παρακάτω εικόνα.

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε το VBA για να ορίσετε μια μεταβλητή περιοχής σε επιλογή στο Excel (5 μέθοδοι)

2. Προσαρμογή ενός δυναμικού εύρους με την εφαρμογή μεταβλητής γραμμής με το Excel VBA

Όταν το χρησιμοποιούμενο εύρος είναι τόσο μεγάλο που δεν μπορείτε να διαφοροποιήσετε τον αριθμό της γραμμής, ίσως χρειαστεί να χρησιμοποιήσετε την εντολή Τελευταία γραμμή που χρησιμοποιήθηκε ως το μεταβλητή σειρά Για να το έχετε κάνει, ακολουθήστε τα παρακάτω βήματα.

♠ Βήμα 1: Εισάγετε έναν κωδικό VBA

• Επιλέξτε μια νέα Ενότητα από το Εισαγωγή
• Στο νέο Ενότητα , γράψτε τα ακόλουθα Πρόγραμμα VBA .

 Sub Variable_Dynamic_Row() 'δηλώνουμε μια μεταβλητή για τον αριθμό της γραμμής Dim Last_Used_Row As Integer 'Ορίζουμε τη μεταβλητή στη χρησιμοποιούμενη περιοχή Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Εφαρμόζουμε τη μεταβλητή για να επιλέξουμε την τρέχουσα τελευταία γραμμή στην περιοχή Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select End Sub 

♠ Βήμα 2: Πάρτε την επιλογή

• Μετά την εκτέλεση του προγράμματος, το εύρος θα είναι επιλεγμένο μέχρι την Τελευταία χρήση σειρά.

♠ Βήμα 3: Εφαρμόστε ένα χρώμα γραμματοσειράς

• Προς mark το επιλεγμένο εύρος ή στο επεξεργασία , επικόλληση τα ακόλουθα Κώδικες VBA .

 Sub Variable_Dynamic_Row() 'δηλώνουμε μια μεταβλητή για τον αριθμό της γραμμής Dim Last_Used_Row As Integer 'Ορίζουμε τη μεταβλητή στη χρησιμοποιούμενη περιοχή Last_Used_Row = Worksheets("Sheet2").UsedRange.Rows.Count 'Εφαρμόζουμε τη μεταβλητή για να επιλέξουμε την τρέχουσα τελευταία γραμμή στην περιοχή Sheets("Sheet2").Range(Cells(5, 2), Cells(Last_Used_Row, 5)).Select With Selection .Font.Color = RGB(128, 0, 0, 0) End With End Sub 

♠ Βήμα 4: Τελικό αποτέλεσμα

• Τέλος, save το πρόγραμμα και τρέχει πατώντας F5 .
• Ως αποτέλεσμα, το εύρος με το Τελευταία γραμμή που χρησιμοποιήθηκε διαμορφώνεται με χρώμα.

Διαβάστε περισσότερα: Excel VBA: Αντιγραφή δυναμικής περιοχής σε άλλο βιβλίο εργασίας

Παρόμοιες αναγνώσεις

• Πώς να χρησιμοποιήσετε το VBA για κάθε γραμμή σε μια σειρά στο Excel
• VBA για να κάνετε βρόχο σε σειρές και στήλες σε μια σειρά στο Excel (5 παραδείγματα)
• Excel VBA για βρόγχο σε σειρά μέχρι το κενό κελί (4 παραδείγματα)
• Πώς να μετατρέψετε σειρά σε συστοιχία στο Excel VBA (3 τρόποι)
• Πώς να χρησιμοποιήσετε το VBA για να επιλέξετε εύρος από το ενεργό κελί στο Excel (3 μέθοδοι)

3. Μορφοποιήστε μια συγκεκριμένη περιοχή εφαρμόζοντας μεταβλητή στήλη με το Excel VBA

Παρόμοια με μεταβλητές σειρές , μπορείτε να υποβάλετε αίτηση μεταβλητές στήλες με Excel VBA . B5 ( Σειρά 5 , Στήλη 2 ) κελί είναι το πρώτο κελί στο εύρος, και Σειρά 8 είναι η τελευταία σειρά στην περιοχή, η τελευταία στήλη είναι η μεταβλητή στήλη Ακολουθήστε τις παρακάτω διαδικασίες για να εφαρμόσετε το μεταβλητή στήλη .

♠ Βήμα 1: Γράψτε έναν κώδικα VBA

• Σε ένα νέο Ενότητα , γράψτε τα ακόλουθα Κώδικας VBA .

 Sub Variable_Column_Font() 'δηλώνουμε μια μεταβλητή για τον αριθμό γραμμής Dim Column_num As Integer 'Εισάγουμε ένα πλαίσιο εισαγωγής, πληκτρολογήστε 5 για τον αριθμό στήλης Column_num = InputBox("Type the Column number") 'Εισάγουμε τη μεταβλητή 'Column_num' για να επιλέξουμε τις 5 πρώτες στήλες που περιέχουν δεδομένα Sheets("Sheet3").Range(Cells(5, 2), Cells(8, Column_num)).Select 'Εισάγουμε ένα χρώμα για τη γραμματοσειρά σε Maroon With Selection .Font.Color =RGB(128, 0, 0, 0) End With End Sub 

♠ Βήμα 2: Εκτελέστε το πρόγραμμα

• Προς τρέχει το πρόγραμμα, πατήστε F5 μετά το εξοικονόμηση .
• Ως εκ τούτου, θα δείτε τα ακόλουθα αποτελέσματα ως επιλεγμένα κύτταρα είναι το εύρος B5:E8 .

4. Προσαρμογή ενός δυναμικού εύρους με την εφαρμογή μεταβλητής στήλης με το Excel VBA

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

♠ Βήμα 1: Επικόλληση ενός κώδικα VBA

• Επικόλληση τα ακόλουθα VBA κωδικούς σε ένα νέο Ενότητα .

 Sub Variable_Dynamic_Column() 'δηλώνουμε μια μεταβλητή για τον αριθμό της στήλης Dim lastColumn As Integer 'ορίζουμε τη μεταβλητή στη χρησιμοποιούμενη περιοχή lastColumn = Worksheets("Sheet4").UsedRange.Columns.Count 'εφαρμόζουμε τη μεταβλητή για να επιλέξουμε την τελευταία στήλη της περιοχής Sheets("Sheet4").Range(Cells(5, 2), Cells(8, lastColumn)).Select 'χρωματίζουμε τη γραμματοσειρά των επιλεγμένων κελιών σε Maroon With Selection .Font.Color = RGB(128, 0,0) End With End Sub 

♠ Βήμα 2: Εκτελέστε το πρόγραμμα

• Πρώτον, save το πρόγραμμα και πατήστε F5 να τρέξει.
• Ως αποτέλεσμα, το εύρος επιλέγεται και μορφοποιείται μέχρι το Τελευταία χρησιμοποιούμενη στήλη στο φύλλο εργασίας.

Διαβάστε περισσότερα: Μακροεντολή Excel: Ταξινόμηση πολλαπλών στηλών με δυναμικό εύρος (4 μέθοδοι)

5. Δημιουργήστε μια σειρά με μεταβλητή γραμμή και μεταβλητή στήλη με το Excel VBA

Σημαντικό είναι ότι μπορείτε να χρησιμοποιήσετε και τα δύο μεταβλητές σειρές και μεταβλητές στήλες από μια επιλογή της επιλογής σας. Το πρώτο κελί της επιλογής μας είναι B5 ( Σειρά 5, Στήλη 2 ) και το τελευταίο εύρος θα ποικίλλει ανάλογα με την επιλογή μας. Ακολουθήστε τα παρακάτω περιγραφόμενα βήματα για να ολοκληρώσετε την εργασία.

♠ Βήμα 1: Πληκτρολογήστε έναν κώδικα VBA

• Πρώτον, δημιουργήστε το μια νέα Ενότητα .
• Τότε, γράψτε τα ακόλουθα Κώδικες VBA .

 Sub Variable_Column_Row() 'δηλώνουμε μια μεταβλητή για τον αριθμό της γραμμής Dim Row_Number As Integer 'δηλώνουμε μια μεταβλητή για τον αριθμό της στήλης Dim Column_num As Integer 'Ορίζουμε τις μεταβλητές - πληκτρολογήστε 8 για τον αριθμό της γραμμής και 4 για τη στήλη Row_Number = InputBox("Πληκτρολογήστε τον αριθμό της γραμμής") Column_num = InputBox("Πληκτρολογήστε τον αριθμό της στήλης") 'Εφαρμόζουμε τη μεταβλητή για να επιλέξουμε γραμμές και στήλες στην περιοχή Sheets("Sheet5").Range(Cells(5, 2),Cells(Row_Number, Column_num)).Select With Selection .Font.Color = RGB(128, 0, 0, 0) End With End Sub 

♠ Βήμα 2: Εισαγωγή του αριθμού γραμμής

• Τύπος οποιοδήποτε αριθμός σειράς .

♠ Βήμα 3: Εισαγωγή του αριθμού στήλης

• Τύπος οποιοδήποτε αριθμός στήλης .

♠ Βήμα 4: Πάρτε τα τελικά αποτελέσματα

• Συνεπώς, καθώς επιλέγετε ( Σειρά , Στήλη ) = ( 8,5 ), θα έχετε το τελικό αποτέλεσμα όπως φαίνεται στην παρακάτω εικόνα.

Συμπέρασμα

Τέλος, ελπίζω ότι τώρα καταλαβαίνετε πώς να χρησιμοποιείτε εύρος τιμών με μεταβλητές γραμμές και στήλες με την εντολή Excel VBA . Όλες αυτές οι στρατηγικές θα πρέπει να πραγματοποιούνται όταν τα δεδομένα σας εκπαιδεύονται και ασκούνται. Εξετάστε το βιβλίο πρακτικής και εφαρμόστε αυτά που μάθατε. Οδηγούμαστε να συνεχίσουμε να προσφέρουμε προγράμματα όπως αυτό λόγω της γενναιόδωρης υποστήριξής σας.

Εάν έχετε οποιεσδήποτε ερωτήσεις, μη διστάσετε να επικοινωνήσετε μαζί μας. Μοιραστείτε τις σκέψεις σας στην ενότητα των σχολίων παρακάτω.

Το Exceldemy το προσωπικό θα επικοινωνήσει μαζί σας το συντομότερο δυνατό.

Μείνετε μαζί μας και συνεχίστε να μαθαίνετε.