Wie lässt man eine Form in Excel immer wieder blinken oder blinken?
Wenn Sie eine Form in einem Arbeitsblatt immer wieder blinken lassen möchten, kann Ihnen eine Methode in diesem Artikel helfen.
Lassen Sie eine Form mit VBA-Code immer wieder blinken
Lassen Sie eine Form mit VBA-Code immer wieder blinken
Gehen Sie im Arbeitsblatt wie folgt vor, damit eine Form blinkt.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Lassen Sie eine Form im Arbeitsblatt immer wieder blinken
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End Sub
Notizen:
3. Drücken Sie die Taste Andere + Q Tasten zusammen, um die zu verlassen Microsoft Visual Basic für Applikationen Fenster.
4. Fügen Sie eine Schaltfläche in das Arbeitsblatt ein, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Schaltfläche (Formularsteuerung) wie unten Screenshot gezeigt.
5. Beim Auftauchen Makro zuweisen Dialogfeld auswählen Blinken (Flash) der Makroname Feld, und klicken Sie dann auf OK .
6. Ändern Sie dann den Anzeigetext auf der Schaltfläche nach Bedarf. In diesem Fall ändere ich den Anzeigetext in Start blinken, wie im folgenden Screenshot gezeigt.
7. Wiederholen Sie die obigen Schritte 4 und 5, um eine neue Schaltfläche einzufügen und die zuzuweisen Hör auf Makro zu dieser Schaltfläche.
8. Ändern Sie den Anzeigetext dieser neuen Schaltfläche.
Anschließend werden zwei Schaltflächen mit unterschiedlichen Makros in das Arbeitsblatt eingefügt. Siehe Screenshot:
Wenn Sie von nun an auf die Schaltfläche Start blinken klicken, beginnt die Form mit verschiedenen Farben zu blinken. Wenn Sie den Blitz stoppen möchten, klicken Sie auf die Schaltfläche Stopp blinken.
In Verbindung stehender Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!