Excel bietet keinen blinkenden oder blinkenden Text als Schriftartoption. Mit dem in Excel integrierten Visual Basic für Applikationen können Sie jedoch Code verwenden, um die Farbe des Textes in jedem Abschnitt zu ändern, wodurch ein blinkender Effekt entsteht.
Schritt 1
Öffnen Sie die Microsoft Excel 2010-Datei, in der Sie den Text blinken lassen möchten. Drücken Sie "Alt" und "F11", um die VBA-Konsole zu öffnen.
Video des Tages
Schritt 2
Klicken Sie mit der rechten Maustaste auf den Eintrag "ThisWorkbook" auf der linken Seite der VBA-Konsole. Bewegen Sie die Maus über "Einfügen" und wählen Sie "Modul".
Schritt 3
Doppelklicken Sie auf die Option "DieseArbeitsmappe". Kopieren Sie den folgenden Code und fügen Sie ihn in den weißen Bereich auf der rechten Seite des Bildschirms ein:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Cancel As Boolean) NoBlink End Sub
Dieser Code startet und der blinkende Text, wenn Sie diese Arbeitsmappe öffnen, und stoppt den blinkenden Text wenn Sie die Arbeitsmappe schließen, sobald Sie den Code einfügen, um Excel mitzuteilen, was Blink und NoBlink eigentlich sind bedeuten.
Schritt 4
Doppelklicken Sie in der Liste auf der linken Seite des Bildschirms auf "Modul 1". Platzieren Sie Ihren Cursor auf der rechten Seite des Bildschirms und geben Sie die folgende Zeile ein:
Öffentliche Zeitzählung als Double
Dadurch wird eine Variable namens "Timecount" erstellt, die Sie in jedem Unterprogramm verwenden können.
Schritt 5
Drücken Sie die Eingabetaste, um den Cursor in die nächste Zeile zu bewegen und geben Sie den folgenden Code ein:
Sub blink() mit ThisWorkbook. Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Anwendung. OnTime Timecount, "Blink", True End Sub
Dadurch wird eine Unterroutine namens "Blink" erstellt, die bewirkt, dass der gesamte Text innerhalb des definierten Bereichs blinkt. Sie können den Bereich von "A1:A10" in einen beliebigen Bereich ändern, einschließlich einer einzelnen Zelle.
Schritt 6
Drücken Sie "Enter", um in die nächste Zeile zu gelangen und geben Sie folgenden Code ein:
Sub noblink() ThisWorkbook. Worksheets("Sheet1").Range("A1:A10").Font. ColorIndex = _ xlColorIndexAutomatische Anwendung. OnTime Timecount, "Blink", False End Sub
Dadurch wird eine Unterroutine erstellt, die ausgeführt wird, wenn Sie die Arbeitsmappe schließen. Dadurch wird der gesamte Text wieder schwarz, sodass jemand, der die Arbeitsmappe ohne aktivierte Makros öffnet, nicht versehentlich nichts in den Textfeldern sieht.
Schritt 7
Schließen Sie die VBA-Konsole, indem Sie oben rechts auf das "X" klicken. Klicken Sie oben auf dem Bildschirm auf die Registerkarte "Datei" und wählen Sie "Speichern unter". Wählen Sie "Excel Macro-enabled Workbook" aus dem Dropdown-Feld und geben Sie einen Namen für die Arbeitsmappe ein. Klicken Sie auf "Speichern".
Schritt 8
Schließen Sie die Excel-Datei und öffnen Sie sie erneut. Ihr Text innerhalb des im Makro definierten Bereichs beginnt zu blinken. Abhängig von Ihren Sicherheitseinstellungen müssen Sie möglicherweise oben auf dem Bildschirm auf die Schaltfläche "Makros aktivieren" klicken, um den blinkenden Text zu sehen.
