VBA για κάθε κελί σε σειρά στο Excel (3 μέθοδοι)

Hugh West

16-10-2023 Μακροεντολές & Excel VBA
  • Μοιραστείτε Αυτό
Hugh West

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

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

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

Κώδικας VBA για κάθε κελί σε μια σειρά στο Excel.xlsx

3 κατάλληλοι τρόποι εφαρμογής της VBA για κάθε κελί σε σειρά στο Excel

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

1. Εφαρμόστε την VBA για κάθε κελί στην περιοχή

Σκεφτείτε μια κατάσταση όπου πρέπει να εφαρμόσετε τον ίδιο κώδικα VBA για κάθε κελί σε μια δεδομένη περιοχή ( B3:F12 ). Για να το κάνουμε αυτό θα δημιουργήσουμε έναν κώδικα VBA. Οι οδηγίες δίνονται παρακάτω

Βήμα 1:

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

  • Έχουμε το κουμπί εντολών μας.

  • Κάντε δεξί κλικ στο κουμπί εντολών για να ανοίξετε τις επιλογές. Επιλέξτε και κάντε κλικ στο Ιδιότητες για να τροποποιήσετε ορισμένες επιλογές.

  • Αλλάξτε το Caption του κουμπιού εντολών. Εδώ αλλάζουμε το όνομα σε, " Κάντε κλικ εδώ ".

Βήμα 2:

  • Τώρα κάντε διπλό κλικ στο κουμπί εντολών για να ανοίξει η VBA Ενότητα Εδώ θα γράψουμε τον κώδικα VBA για την εργασία.

  • Αρχικά, θα δηλώσουμε δύο μεταβλητές. Ονομάζουμε τα αντικείμενα του εύρους CL και Rng Μπορείτε να τα ονομάσετε όπως θέλετε. 
 Dim CL As Range Dim Rng As Range

  • Εκχωρήστε συγκεκριμένο εύρος με αυτήν την εντολή,

Set Rng = Φύλλα εργασίας("VBA1").Range("B3:F12")

  • Εδώ VBA1 είναι το όνομα του φύλλου εργασίας μας και B3:F12 είναι το καθορισμένο εύρος μας.

  • Τώρα θα χρησιμοποιήσουμε τον κώδικα για να εκτελέσουμε κάθε κελί της περιοχής. Ο κώδικας είναι ο εξής, 
 For Each CL In Rng CL.Value = 100 Next CL
  • Αξία = 100 αναφέρεται ότι θα επιστρέψει 100 για κάθε κελί στο συγκεκριμένο εύρος.

  • Έτσι ο τελικός μας κώδικας γίνεται, 
 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng CL.Value = 100 Next CL End Sub
  • Πηγαίνετε στο κύριο φύλλο εργασίας σας και κάντε κλικ στο κουμπί εντολών για να εκτελέσετε το VBA για κάθε κελί στην περιοχή.

Βήμα 3:

  • Όπως και οι αριθμητικές τιμές, μπορούμε επίσης να βάλουμε τιμές κειμένου για κάθε κελί της περιοχής. Σε αυτή την περίπτωση, πηγαίνετε στο παράθυρο της VBA και αντί για 100, εισάγετε την τιμή κειμένου που θέλετε να διατρέξετε. Η γραμμή που αλλάζει είναι η εξής 
 CL.Value = "ExcelWIKI"

  • Κάντε κλικ στο κουμπί εντολών και ο κώδικας VBA θα επιστρέψει αυτή την τιμή κειμένου για κάθε κελί στην περιοχή.

Βήμα 4:

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

  • Για το σκοπό αυτό, προσθέστε μια νέα συνθήκη στον υπάρχοντα κώδικά σας. Ο νέος τύπος είναι, 
 If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If
  • Αυτός ο νέος κώδικας θα επισημάνει το κενό κελί με κόκκινο χρώμα. Έτσι, ο πλήρης κώδικας είναι, 
 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If Next CL End Sub

  • Λάβετε το αποτέλεσμα κάνοντας κλικ στο κουμπί εντολών.

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

  • Πώς να χρησιμοποιήσετε το αντικείμενο Range της VBA στο Excel (5 ιδιότητες)
  • Χρήση VBA Range Offset (11 τρόποι)
  • Πώς να μετράτε κείμενο στο Excel (7 εύκολα κόλπα)

2. Εισαγωγή κώδικα VBA για κάθε κελί σε μια στήλη μιας σειράς

Μπορούμε επίσης να εκτελέσουμε κώδικα VBA για κάθε κελί σε μια στήλη. Ας υποθέσουμε ότι έχουμε μια στήλη που περιέχει αριθμούς και πρέπει να χρωματίσουμε τις τιμές που είναι μικρότερες από 10. Θα δημιουργήσουμε έναν κώδικα VBA για να εκτελέσουμε κάθε κελί στη στήλη.

Βήμα 1:

  • Δημιουργήστε ένα κουμπί εντολών ακολουθώντας τις οδηγίες που συζητήσαμε.

Βήμα 2:

  • Κάντε διπλό κλικ στο κουμπί εντολών για να ανοίξει το παράθυρο VBA.
  • Θα δηλώσουμε μια μεταβλητή με όνομα " c " τύπου long. Χρησιμοποιούμε εδώ τη μεταβλητή τύπου Long, επειδή οι μεταβλητές Long έχουν μεγαλύτερη χωρητικότητα από τις μεταβλητές Integer. 
 Dim c As Long

  • Στη συνέχεια, προσθέστε τη γραμμή κώδικα που αλλάζει το χρώμα της γραμματοσειράς όλων των κελιών της στήλης μας σε μαύρο. 
 Columns(1).Font.Color = vbBlack

  • Εισάγετε το βρόχο για αυτόν τον κώδικα. 
 For c = 1 To Rows.Count Next c

  • Σε αυτό το βήμα, θα εισαγάγουμε μια συνθήκη για να χρωματίσουμε τις τιμές που είναι χαμηλότερες από την τιμή του κελιού C4 (10). Εισάγετε αυτόν τον κώδικα για να το κάνετε αυτό. 
 If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If

  • Έτσι, ο τελικός κώδικας είναι, 
 Private Sub CommandButton1_Click () Dim c As Long Columns(1).Font.Color = vbBlack For c = 1 To Rows.Count If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If Next c End Sub
  • Η VBA θα εκτελεστεί και θα εμφανίσει αποτελέσματα όταν κάνετε κλικ στο κουμπί εντολών.

3. Γράψτε έναν κώδικα VBA για κάθε κελί σε μια γραμμή μιας σειράς

Μπορούμε επίσης να εκτελέσουμε έναν κώδικα VBA για κάθε κελί μιας γραμμής. Στη συγκεκριμένη γραμμή, πρέπει να εκτελέσουμε την ίδια ενέργεια σε κάθε κελί της γραμμής.

Βήμα 1:

  • Προσθέστε ένα κουμπί εντολών και αλλάξτε το όνομά του σε " Κάντε κλικ εδώ! "

  • Κάντε διπλό κλικ στο κουμπί για να ανοίξει το παράθυρο VBA. Καταγράψτε τον κώδικα VBA που παρέχεται παρακάτω. 
 Private Sub CommandButton1_Click () Dim r As Range Dim MyString As String 'Για κάθε κελί σε μια γραμμή, και εφαρμόστε ένα κίτρινο χρώμα γεμίσματος For Each r In Range("B3:F3").Rows r.Interior.ColorIndex = 6 Next End Sub
  • Ο κώδικας θα διατρέξει κάθε κελί της γραμμής και θα εφαρμόσει ένα κίτρινο χρώμα σε κάθε κελί.

  • Κάντε κλικ στο κουμπί και το αποτέλεσμά μας είναι εδώ.

Γρήγορες σημειώσεις

👉 Αν δεν έχετε ορατή την καρτέλα του προγραμματιστή σας, μπορείτε να την ενεργοποιήσετε χρησιμοποιώντας αυτή την οδηγία.

Προσαρμοσμένη γραμμή εργαλείων γρήγορης πρόσβασης → Περισσότερες εντολές → Προσαρμογή κορδέλας → Προγραμματιστής → OK

Συμπέρασμα

Εξετάσαμε τρεις διαφορετικές προσεγγίσεις για την εκτέλεση της VBA για κάθε κελί σε μια περιοχή. Είστε ευπρόσδεκτοι να σχολιάσετε εάν έχετε οποιεσδήποτε ερωτήσεις ή απορίες. Μπορείτε επίσης να δείτε άλλα άρθρα μας σχετικά με τις εργασίες του Excel!

Προηγούμενη ανάρτηση Πώς να παγώσετε τις δύο κορυφαίες σειρές στο Excel (4 τρόποι)
Επόμενη ανάρτηση Πώς να μετατρέψετε λεπτά σε ημέρες στο Excel (3 εύκολες μέθοδοι)

Ο Hugh West είναι ένας εξαιρετικά έμπειρος εκπαιδευτής και αναλυτής του Excel με πάνω από 10 χρόνια εμπειρίας στον κλάδο. Είναι κάτοχος πτυχίου Λογιστικής και Χρηματοοικονομικής και μεταπτυχιακού στη Διοίκηση Επιχειρήσεων. Ο Hugh έχει πάθος για τη διδασκαλία και έχει αναπτύξει μια μοναδική προσέγγιση διδασκαλίας που είναι εύκολο να ακολουθηθεί και να κατανοηθεί. Οι εξειδικευμένες γνώσεις του στο Excel έχουν βοηθήσει χιλιάδες φοιτητές και επαγγελματίες παγκοσμίως να βελτιώσουν τις δεξιότητές τους και να διαπρέψουν στην καριέρα τους. Μέσω του ιστολογίου του, ο Hugh μοιράζεται τις γνώσεις του με τον κόσμο, προσφέροντας δωρεάν μαθήματα Excel και διαδικτυακή εκπαίδευση για να βοηθήσει άτομα και επιχειρήσεις να αξιοποιήσουν πλήρως τις δυνατότητές τους.