Έτσι επισημαίνετε κείμενα στους πίνακες σας
Εάν θέλετε να επισημάνετε όλο το μη αριθμητικό περιεχόμενο στους πίνακες σας, υπάρχουν διάφοροι τρόποι για να το κάνετε. Μια παραλλαγή είναι να επισημάνετε τα κείμενα χρησιμοποιώντας κατάλληλη μορφοποίηση υπό όρους.
Μια άλλη παραλλαγή είναι η εργασία με μακροεντολή. Η ακόλουθη μακροεντολή επισημαίνει όλο το περιεχόμενο κειμένου στον τρέχοντα πίνακα με κόκκινο χρώμα φόντου:
Sub MarkTexts ()
Dim Cell As Range
Για κάθε κελί στο ActiveSheet.UsedRange
Εάν IsNumeric (Cell.Value) = False Τότε
Cell.Interior.ColorIndex = 3
Αλλού
Cell.Interior.ColorIndex = xlColorIndexΚανένα
Τέλος εαν
Επόμενο κελί
Τέλος υπο
Στο σχήμα μπορείτε να δείτε έναν πίνακα μετά την έναρξη της μακροεντολής. Το χρώμα φόντου όλου του αριθμητικού περιεχομένου είναι αμετάβλητο. Σε όλο το περιεχόμενο κειμένου έχει δοθεί ένα κόκκινο χρώμα.
Εάν θέλετε να χρησιμοποιήσετε διαφορετικό χρώμα αντί για κόκκινο, αντικαταστήστε τον αριθμό 3 στην εκχώρηση τιμής στην ιδιότητα ColorIndex κατά άλλη τιμή.
Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: www.exceldaily.de/excel-makros-vba/artikel/d/so-gend-sie-makros-in -excel- a.html
