Πώς να φτιάξετε κείμενο Flash στο Excel

Το Excel δεν διαθέτει κείμενο που αναβοσβήνει ή αναβοσβήνει ως επιλογή γραμματοσειράς. Χρησιμοποιώντας την ενσωματωμένη Visual Basic για Εφαρμογές του Excel, ωστόσο, μπορείτε να χρησιμοποιήσετε κώδικα για να αλλάξετε το χρώμα του κειμένου σε κάθε ενότητα, δημιουργώντας ένα εφέ που αναβοσβήνει.

Βήμα 1

Ανοίξτε το αρχείο Microsoft Excel 2010 στο οποίο θέλετε να κάνετε το κείμενο να αναβοσβήνει. Πατήστε "Alt" και "F11" για να ανοίξετε την κονσόλα VBA.

Το βίντεο της ημέρας

Βήμα 2

Κάντε δεξί κλικ στην καταχώρηση "ThisWorkbook" στην αριστερή πλευρά της κονσόλας VBA. Μετακινήστε το ποντίκι σας πάνω από το "Insert" και επιλέξτε "Module".

Βήμα 3

Κάντε διπλό κλικ στην επιλογή "This Workbook". Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τον στο λευκό διάστημα στη δεξιά πλευρά της οθόνης:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose (Cancel As Boolean) NoBlink End Sub

Αυτός ο κωδικός θα ξεκινήσει και το κείμενο που αναβοσβήνει όταν ανοίξετε αυτό το βιβλίο εργασίας και θα σταματήσει το κείμενο που αναβοσβήνει όταν κλείνετε το βιβλίο εργασίας, μόλις εισαγάγετε τον κώδικα για να πείτε στο Excel τι Blink και NoBlink στην πραγματικότητα σημαίνω.

Βήμα 4

Κάντε διπλό κλικ στο "Module 1" από τη λίστα στην αριστερή πλευρά της οθόνης. Τοποθετήστε τον κέρσορα στη δεξιά πλευρά της οθόνης και εισαγάγετε την ακόλουθη γραμμή:

Δημόσια μέτρηση χρόνου ως διπλή

Αυτό δημιουργεί μια μεταβλητή που ονομάζεται "Timecount" που μπορείτε να χρησιμοποιήσετε σε κάθε υπορουτίνα.

Βήμα 5

Πατήστε enter για να μετακινήσετε τον κέρσορα στην επόμενη γραμμή και πληκτρολογήστε τον ακόλουθο κωδικό:

Sub blink() With This Workbook. Φύλλα εργασίας("Φύλλο1").Εύρος("A1:A10").Γραμματοσειρά Εάν .ColorIndex = 3 Στη συνέχεια .ColorIndex = 2 Άλλο .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Εφαρμογή. OnTime Timecount, "Blink",, True End Sub

Αυτό δημιουργεί μια υπορουτίνα που ονομάζεται "Blink" που θα κάνει όλο το κείμενο εντός του καθορισμένου εύρους να αναβοσβήνει. Μπορείτε να αλλάξετε το εύρος από "A1:A10" σε όποιο εύρος επιθυμείτε, συμπεριλαμβανομένου ενός μεμονωμένου κελιού.

Βήμα 6

Πατήστε "Enter" για πρόσβαση στην επόμενη γραμμή και πληκτρολογήστε τον ακόλουθο κωδικό:

Sub noblink() This Workbook. Φύλλα εργασίας ("Φύλλο 1"). Εύρος ("A1:A10"). Γραμματοσειρά. ColorIndex = _ xlColorIndexAutomatic Application. OnTime Timecount, "Blink",, False End Sub

Αυτό θα δημιουργήσει μια υπορουτίνα που θα εκτελείται όταν κλείσετε το βιβλίο εργασίας. Γυρίζει όλο το κείμενο ξανά σε μαύρο, έτσι ώστε κάποιος που ανοίγει το βιβλίο εργασίας χωρίς ενεργοποιημένες μακροεντολές να μην βλέπει κατά λάθος τίποτα στα πλαίσια κειμένου.

Βήμα 7

Κλείστε την κονσόλα VBA κάνοντας κλικ στο "X" στην επάνω δεξιά γωνία. Κάντε κλικ στην καρτέλα "Αρχείο" στο επάνω μέρος της οθόνης και επιλέξτε "Αποθήκευση ως". Επιλέξτε "Excel Macro-enabled Workbook" από το αναπτυσσόμενο πεδίο και πληκτρολογήστε ένα όνομα για το βιβλίο εργασίας. Κάντε κλικ στο "Αποθήκευση".

Βήμα 8

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