Το σύννεφο λέξεων είναι επίσης γνωστό ως Tag cloud in excel που είναι μια οπτική αναπαράσταση του κειμένου στο excel σε διαφορετικά χρώματα ή μορφές, σε ένα σύννεφο λέξεων η συχνότητα της αναπαράστασης της εργασίας καθορίζεται από τη γραμματοσειρά της λέξης, αυτό γίνεται χρησιμοποιώντας η έξυπνη τέχνη και τα σχήματα του excel.
Τι είναι το Word Cloud στο Excel;
Το Word Cloud είναι η συλλογή λέξεων για εμφάνιση με τη μορφή οπτικοποίησης στο excel. Ελπίζω να έχετε δει μερικούς από τους καλύτερους πίνακες ελέγχου με αριθμούς και δημιουργικές απεικονίσεις στο Excel. Οι πίνακες εργαλείων κυμαίνονται από αριστοκρατικές γραμματοσειρές με ελκυστικά χρώματα με μερικές σούπερ εικόνες με αυτό. Ένας από τους περίεργους πίνακες ελέγχου που πρέπει να έχετε δει με το "Word Cloud". Μοιάζει με μια εξελιγμένη εικόνα που έχει ληφθεί από λογισμικό, αλλά δεν γίνεται λήψη από οπουδήποτε, αλλά δημιουργήθηκε με κωδικοποίηση Excel VBA Ναί!!! Εχετε δίκιο. Δημιουργήθηκε με κωδικοποίηση VBA και σε αυτό το άρθρο, θα σας δείξουμε πώς να δημιουργήσετε ένα τέτοιο σύννεφο λέξεων με το Excel.
Πώς να δημιουργήσετε ένα Word Cloud στο Excel;
Για να δημιουργήσουμε ένα σύννεφο λέξεων στο excel, πρέπει να έχουμε δεδομένα λέξεων και ποια είναι τα χρώματα που χρειαζόμασταν για αυτές τις λέξεις. Ας υποθέσουμε ότι δημιουργείτε ένα σύννεφο λέξεων 30 τύπων excel. Δημιουργήστε λοιπόν μια λίστα με 30 τύπους excel στο φύλλο εργασίας.
Γράψτε τους παραπάνω τύπους στο φύλλο εργασίας σας στην πρώτη στήλη.
Μόλις γράψετε τα παραπάνω ονόματα τύπων στη στήλη Β, εφαρμόστε τη συνάρτηση RANDBETWEEN και για τους 30 τύπους ως εξής και διατηρήστε την κάτω τιμή ως 1 και την κορυφαία τιμή ως 250.
Μόλις τα δεδομένα είναι έτοιμα, πρέπει να κατευθυνθούμε στον Επεξεργαστή της Visual Basic. Δημιουργήστε μια φόρμα χρήστη όπως παρακάτω στο VBA.
Τώρα πρέπει να ρυθμίσουμε τη φόρμα χρήστη στο VBA, εδώ. Για κάθε κουμπί, πρέπει να γράψουμε κώδικα. Παρακάτω είναι ο κωδικός για κάθε κουμπί.
Κάντε διπλό κλικ στο κουμπί "Διαφορετικά χρώματα" από την παραπάνω φόρμα χρήστη και προσθέστε τον παρακάτω κωδικό.
Κώδικας:
Private Sub CommandButton1_Click () ColorCopeType = 0 Unload Me 'Αυτό είναι για διαφορετικό χρώμα End Sub
Στη συνέχεια, κάντε διπλό κλικ στο μαύρο κουμπί και προσθέστε τον παρακάτω κωδικό.
Κώδικας:
Private Sub CommandButton2_Click () ColorCopeType = 1 Unload Me 'Αυτό είναι για μαύρο χρώμα End Sub
Ομοίως, για όλα τα άλλα κουμπιά, προσθέστε τους παρακάτω κωδικούς.
Κώδικας:
Private Sub CommandButton3_Click () ColorCopeType = 2 Unload Me 'Αυτό είναι για κόκκινο χρώμα End Sub Private Sub CommandButton4_Click () ColorCopeType = 3 Unload Me' This is for green color End Sub Private Sub CommandButton5_Click () ColorCopeType = 4 Unload Me 'Αυτό είναι για μπλε χρώμα End Sub Private Sub CommandButton6_Click () ColorCopeType = 5 Unload Me 'This is for yellow color End Sub Private Sub CommandButton7_Click () ColorCopeType = 6 Unload Me' Αυτό είναι για λευκό χρώμα End Sub
Μόλις διαμορφώσουμε τον κώδικα, πρέπει να δηλώσουμε τη μεταβλητή στην ενότητα πάνω.
Τώρα πρέπει να γράψουμε έναν κώδικα για να δημιουργήσουμε ένα σύννεφο λέξεων, το οποίο είναι μακρύ. Παρακάτω είναι ο κωδικός.
Κώδικας:
Sub word_cloud () Dim WordCloud As Range Dim x As Integer, y As Integer Dim ColumnA As Range, ColumnB As Range Dim WordCount As Integer Dim ColumCount As Integer, RowCount As Integer Dim WordColumn As Integer, WordRow As Integer Dim plotarea As Range, c As Range, d As Range, e As Range, f As Range, g As Range Dim z As Integer, w As Integer Dim plotareah1 As Range, plotareah2 As Range, dummy As Range Dim q As Integer, v As Integer Dim RedColor As Integer , GreenColor As Integer, BlueColor As Integer UserForm1.Show WordCount = -1 Ορισμός WordCloud = Sheets ("Word Cloud"). Εύρος ("B2: H7") ColumnCount = WordCloud.Columns.Count RowCount = WordCloud.Rows.Count για καθένα ColumnA In Sheets ("List Formula"). Range ("A: A") If ColumnA.Value = ""Στη συνέχεια, Έξοδος για άλλο WordCount = WordCount + 1 Τέλος εάν Επόμενη στήληA Επιλέξτε υπόθεση WordCount Περίπτωση WordCount = 0 έως 20 WordColumn = WordCount / 5 Case WordCount = 21 έως 40 WordColumn = WordCount / 6 Case WordCount = 41 έως 40 WordColumn = WordCount / 8 Case WordCount = 80 έως 9999 WordColumn = WordCount / 10 End Επιλέξτε WordRow = WordCount / WordColumn x = 1 Set c = Sheets ("Word Cloud"). Range ("A1"). Offset ((RowCount / 2 - WordRow / 2), (ColumnCount / 2 - WordColumn / 2)) Set d = Sheets ("Word Cloud"). Range ("A1"). Offset ((RowCount / 2 + WordRow / 2), (ColumnCount / 2 + WordColumn / 2)) Ορισμός plotarea = Sheets ("Word Cloud"). Range (Sheets ("Word Cloud"). Cells (c.Row, c.Column), Sheets ("Word Cloud"). Κελιά (d.Row, d.Column) ) Για κάθε e In plotarea e.Value = Sheets ("Λίστα τύπων"). Εύρος ("A1 "). Offset (x, 0). Value e.Font.Size = 8 + Sheets (" Formula List "). Range (" A1 "). Offset (x, 0). Offset (0, 1). Value / 4 Επιλέξτε θήκη ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 BlueColor = 255 BlueColor = 255 BlueColor = 255 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα έξοδος για τερματισμό εάν Επόμενο e plotarea.Columns.AutoFit Τέλος ΥποτΛίστα τύπων "). Εύρος (" A1 "). Offset (x, 0). Offset (0, 1). Value / 4 Select Case CaseCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα Έξοδος για Τέλος Αν Επόμενο e plotarea.Columns.AutoFit End SubΛίστα τύπων "). Εύρος (" A1 "). Offset (x, 0). Offset (0, 1). Value / 4 Select Case CaseCopType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 End Select e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα Έξοδος για Τέλος Αν Επόμενο e plotarea.Columns.AutoFit End SubΤιμή / 4 Επιλέξτε θήκη ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 BlueColor = 255 BlueColor = 255 BlueColor = 255 BlueColor 255 End Επιλέξτε e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα, Έξοδος για το τέλος, εάν το επόμενο e plotarea.Columns. AutoFit End SubΤιμή / 4 Επιλέξτε θήκη ColorCopeType Case 0 RedColor = (255 * Rnd) + 1 GreenColor = (255 * Rnd) + 1 BlueColor = (255 * Rnd) + 1 Case 1 RedColor = 0 GreenColor = 0 BlueColor = 0 Case 2 RedColor = 255 GreenColor = 0 BlueColor = 0 Case 3 RedColor = 0 GreenColor = 255 BlueColor = 0 Case 4 RedColor = 0 GreenColor = 0 BlueColor = 255 Case 5 RedColor = 255 GreenColor = 255 BlueColor = 100 Case 6 RedColor = 255 GreenColor = 255 BlueColor = 255 BlueColor = 255 BlueColor = 255 BlueColor = 255 BlueColor 255 End Επιλέξτε e.Font.Color = RGB (RedColor, GreenColor, BlueColor) e.HorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα, Έξοδος για το τέλος, εάν το επόμενο e plotarea.Columns. AutoFit End SubAutoFit End SubAutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα, βγείτε από το τέλος αν το επόμενο e plotarea.Columns.AutoFit End SubHorizontalAlignment = xlCenter e.VerticalAlignment = xlCenter x = x + 1 Εάν e.Value = "" Έπειτα, βγείτε από το τέλος αν το επόμενο e plotarea.Columns.AutoFit End Sub
Αντιγράψτε και επικολλήστε τον παραπάνω κώδικα στη λειτουργική σας μονάδα. Το φύλλο εργασίας που έχει μια λίστα τύπων θα πρέπει να ονομάζεται "Λίστα τύπων". Στη συνέχεια, εισαγάγετε ένα νέο φύλλο εργασίας στο excel και ονομάστε το ως "Word Cloud".
Στο φύλλο που προστέθηκε πρόσφατα, ρυθμίστε το ζουμ στο 40% και ρυθμίστε το ύψος της σειράς στο 85.
Τώρα, εκτελέστε τον κώδικα στο VBA πατώντας το κουμπί F5, θα δείτε το χρώμα επιλέγοντας φόρμα χρήστη.
Επιλέξτε το χρώμα σύμφωνα με την επιθυμία σας. Αν δεν θέλετε ένα χρώμα, επιλέξτε "Διαφορετικά χρώματα". Θα λάβουμε το σύννεφο λέξεων στο φύλλο "Word Cloud".
Έτσι, χρησιμοποιώντας την κωδικοποίηση VBA, μπορούμε να δημιουργήσουμε το Word Cloud.
