Μετάβαση στο κύριο περιεχόμενο

Πώς να προσθέσετε τυχαία χρώμα φόντου / πλήρωσης για κελιά στο Excel;

Συγγραφέας: Kelly Τελευταία τροποποίηση: 2017-03-22

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

Προσθέστε τυχαία χρώμα φόντου / πλήρωσης για κελιά με VBA

Προσθέστε τυχαία χρώμα φόντου / πλήρωσης για κελιά με το Kutools για Excel

Εισαγάγετε τυχαία τιμές από την καθορισμένη λίστα ή στήλη (χωρίς επαναλήψεις) στο Excel

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

η διαφήμιση συμπληρώνει τυχαία την προσαρμοσμένη λίστα 3


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

Βήμα 1: Πατήστε άλλος + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

Βήμα 2: Κάντε κλικ στο Insert> Module και, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα VBA στο άνοιγμα του Module window.

VBA: Προσθήκη χρώματος φόντου ή πλήρωσης για κελιά με τυχαίο χρώμα

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

Βήμα 3: Πατήστε το F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτήν τη μακροεντολή VBA.

Βήμα 4: Τώρα βγαίνει ένα παράθυρο διαλόγου, απλώς επιλέξτε το εύρος που θέλετε να προσθέσετε φόντο με τυχαία χρώματα και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Τώρα θα δείτε ότι όλα τα κελιά στο καθορισμένο εύρος γεμίζουν με διαφορετικά χρώματα τυχαία. Δείτε παρακάτω το στιγμιότυπο οθόνης:


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

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

Βήμα 1: Επιλέξτε το εύρος όπου θέλετε να βρείτε κελιά τυχαία και προσθέστε χρώμα φόντου.

Βήμα 2: Κάντε κλικ στο Kutools > Σειρά > Ταξινόμηση εύρους τυχαία.

doc τυχαίο φόντο 3

Βήμα 3: Στο παράθυρο διαλόγου "Ταξινόμηση εύρους τυχαία", μεταβείτε στο Αγορά καρτέλα, πληκτρολογήστε έναν αριθμό στο Αριθμός κελιών για επιλογή πλαίσιο, επιλέξτε Επιλέξτε τυχαία κελιά και κάντε κλικ στο OK κουμπί. Δείτε παρακάτω το στιγμιότυπο οθόνης:

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

Τώρα θα δείτε ότι το χρώμα φόντου προστίθεται στα τυχαία επιλεγμένα κελιά όπως φαίνεται στην παρακάτω οθόνη:

doc τυχαίο φόντο 5

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα


Kutools για Excel: Πάνω από 300 εύχρηστα εργαλεία στα χέρια σας! Ξεκινήστε τη δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς δυνατοτήτων σήμερα. Κατεβάστε τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am trying to do this same highlight macro with one small adjustment:is there a way to take the range selected an highlight it one random color so each time you run the macro the range of active cells is highlighted a different color Please help. Kennon
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations