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

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

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

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

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

Private Sub Workbook_Open ( )

Blink

End Sub

Private Sub Workbook_BeforeClose ( Cancel As Boolean )

NoBlink

End Sub

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

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

Δημόσια Timecount As Double

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

5

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

Sub αναβοσβήνει ( )

με ThisWorkbook.Worksheets ( " Φύλλο1 " ) . Range ( "A1 : A10 " ) Font

Αν ColorIndex = 3 τότε

ColorIndex = 2

Else

ColorIndex = 3 <. . . . br >

End If

End With

Timecount = τώρα TimeSerial + ( 0 , 0 , 1 )

Application.OnTime Timecount , " Blink " , , True

End Sub

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

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

Sub noblink ( )

ThisWorkbook.Worksheets ( " Φύλλο1 " ) Range. . ( "A1 : A10 " ) Font.ColorIndex = _

xlColorIndexAutomatic

Εφαρμογή . OnTime Timecount , " Blink " , , False

End Sub

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

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

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