Πώς να προσθέσετε τυχαία χρώμα φόντου / πλήρωσης για κελιά στο Excel;
Ας υποθέσουμε ότι πρέπει να προσθέσετε τυχαία φόντο ή να γεμίσετε χρώμα για κελιά στο καθορισμένο εύρος, πώς να το λύσετε; Σε αυτό το άρθρο, παρέχονται δύο μέθοδοι για να το κάνετε εύκολα.
Προσθέστε τυχαία χρώμα φόντου / πλήρωσης για κελιά με VBA
Προσθέστε τυχαία χρώμα φόντου / πλήρωσης για κελιά με το Kutools για Excel
Εισαγάγετε τυχαία τιμές από την καθορισμένη λίστα ή στήλη (χωρίς επαναλήψεις) στο Excel
Kutools για Excel Εισαγωγή τυχαίων δεδομένων βοηθητικό πρόγραμμα επιτρέπει στους χρήστες του Excel να εισάγουν τυχαία τιμές από την καθορισμένη λίστα ή στήλη στο Excel.
Προσθέστε τυχαία χρώμα φόντου / πλήρωσης για κελιά με VBA
Ο ακόλουθος κώδικας μακροεντολής 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 Ταξινόμηση εύρους τυχαία βοηθητικό πρόγραμμα και, στη συνέχεια, προσθέστε χρώμα φόντου για αυτά τα τυχαία κελιά.
Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!
Βήμα 1: Επιλέξτε το εύρος όπου θέλετε να βρείτε κελιά τυχαία και προσθέστε χρώμα φόντου.
Βήμα 2: Κάντε κλικ στο Kutools > Σειρά > Ταξινόμηση εύρους τυχαία.
Βήμα 3: Στο παράθυρο διαλόγου "Ταξινόμηση εύρους τυχαία", μεταβείτε στο Αγορά καρτέλα, πληκτρολογήστε έναν αριθμό στο Αριθμός κελιών για επιλογή πλαίσιο, επιλέξτε Επιλέξτε τυχαία κελιά και κάντε κλικ στο OK κουμπί. Δείτε παρακάτω το στιγμιότυπο οθόνης:
Βήμα 4: Τώρα ο καθορισμένος αριθμός κελιών επιλέγεται τυχαία στο καθορισμένο εύρος. Στη συνέχεια, κάντε κλικ στο βέλος Εκτός από την συμπληρώστε χρώμα κουμπί για το Αρχική και επιλέξτε ένα χρώμα φόντου από την αναπτυσσόμενη λίστα.
Τώρα θα δείτε ότι το χρώμα φόντου προστίθεται στα τυχαία επιλεγμένα κελιά όπως φαίνεται στην παρακάτω οθόνη:
Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα
Επίδειξη: Προσθέστε τυχαία χρώμα φόντου / πλήρωσης για κελιά με Kutools για Excel
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!