Πώς να κάνει τα λόγια Blink στο Excel

Αναβοσβήνει κείμενο μπορεί να σύρει το μάτι σε ένα συγκεκριμένο φύλλο κελί ή περιοχή κελιών και προειδοποιεί το χρήστη για σημαντικές πληροφορίες . Αν και μπορείτε να αλλάξετε το κείμενο σε πολλά χρώματα και τις γραμματοσειρές στο Microsoft Excel , το πρόγραμμα δεν έχει ενσωματωμένη λειτουργία που κάνει κείμενο να αναβοσβήνει . Με Visual Basic for Applications ( VBA ) , ωστόσο , μπορείτε να προσαρμόσετε το Excel για να ταιριάζει στις ανάγκες σας - και αυτό περιλαμβάνει τη δημιουργία μια μονάδα προγραμματισμού που θα κάνει κείμενο να αναβοσβήνει . Οδηγίες
Η

1 Ανοίξτε το Visual Basic Editor πατώντας το πλήκτρο " Alt " και " F11 " μαζί . 2

Κάντε κλικ στο " Εισαγωγή" και στη συνέχεια κάντε κλικ στο " New Module . "

Η 3

αντιγραφή και επικόλληση τον παρακάτω κωδικό στο κενό παράθυρο ενότητα :

Δημόσια RunWhen As Double

Sub StartBlink ( )

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

Αν . ColorIndex = 3 τότε « κόκκινο κείμενο

. ColorIndex = 2 « Λευκή Κείμενο

Αλλιώς

. ColorIndex = 3 'Red Κείμενο

End If

End With

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

Application.OnTime RunWhen , " " & ThisWorkbook.Name & " ! StartBlink " , , True

End Sub Sub

StopBlink ( )

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

xlColorIndexAutomatic

Application.OnTime RunWhen , " " & ThisWorkbook.Name & " ' ! StartBlink " , , False

End Sub
Η 4

Αλλάξτε την τρίτη γραμμή του κώδικα με τον πραγματικό αριθμό φύλλου και τον αριθμό τηλεφώνου που θέλετε να αναβοσβήνει . Η διεύθυνση κύτταρο μπορεί να είναι μια σειρά . Για παράδειγμα , για να κάνει τα κύτταρα Β1 έως Β10 αναβοσβήνει , αντικαταστήστε το " A1 " με " B1 : . B10 » .
5

Κάντε κλικ στο " Αυτό το βιβλίο εργασίας " από τη λίστα στην αριστερή sidebar

6

Αποκοπή και επικόλληση τον παρακάτω κωδικό στο κενό παράθυρο ενότητα :

Private Sub Workbook_Open ( )

StartBlink

End Sub

Private υπο Workbook_BeforeClose ( Cancel As Boolean )

StopBlink

End Sub
Η

7 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη ρουτίνα .
εικόνων
Η