Wie spiele ich einen Sound ab, wenn eine Bedingung in Excel erfüllt ist?
In Excel können wir die bedingte Formatierung anwenden, um die Zellen zu formatieren und hervorzuheben, um die Bedingung nach Bedarf zu erfüllen. Manchmal möchten Sie jedoch möglicherweise einen Sound abspielen, wenn eine Bedingung erfüllt ist. Wenn beispielsweise der Zellenwert in A1 größer als 300 ist, möchte ich, dass ein Ton abgespielt wird. Excel unterstützt diese Funktion nicht. In diesem Artikel werde ich einige VBA-Codes vorstellen, um diese Aufgabe zu lösen.
Spielen Sie einen Standard-System-Piepton basierend auf dem Zellenwert mit VBA-Code ab
Spielen Sie einen benutzerdefinierten Sound basierend auf dem Zellenwert mit VBA-Code ab
Spielen Sie einen Sound ab, wenn sich der Zellenwert in einer bestimmten Spalte mit VBA-Code ändert
Spielen Sie einen Standard-System-Piepton basierend auf dem Zellenwert mit VBA-Code ab
Hier ist ein praktischer Code, mit dem Sie einen Standard-System-Piepton abspielen können, wenn eine bestimmte Bedingung erfüllt ist. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Spielen Sie einen Standard-System-Piepton basierend auf einem Zellenwert ab:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Speichern und schließen Sie dann dieses Codefenster, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = IF (A1> 300, BeepMe (), "") in eine leere Zelle neben der Zelle enthält den Wert, auf dem Sie einen Sound abspielen möchten, und drücken Sie dann Enter Taste, nichts wird in der Formelzelle angezeigt, siehe Screenshot:
4. Wenn der in Zelle A1 eingegebene Wert größer als 300 ist, wird ein Standard-System-Piepton abgespielt.
Spielen Sie einen benutzerdefinierten Sound basierend auf dem Zellenwert mit VBA-Code ab
Wenn Sie einen anderen Sound als den Standard-System-Piepton abspielen möchten, kann Ihnen auch ein VBA-Code einen Gefallen tun.
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Spielen Sie einen bestimmten Sound basierend auf einem Zellenwert ab:
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
3. Speichern und schließen Sie dann dieses Codefenster, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = IF (A1> 300, SoundMe (), "")in eine leere Zelle neben der Zelle enthält den Wert, auf dem Sie einen Sound abspielen möchten, und drücken Sie dann Enter Taste, nichts wird in der Formelzelle angezeigt, siehe Screenshot:
4. Wenn von nun an ein Wert größer als 300 in Zelle A1 eingegeben wird, wird sofort ein bestimmter Ton abgespielt.
Notizen: Im obigen Code können Sie die Sound-WAV-Datei nach Ihren Wünschen ändern c: \ windows \ media \ Dateipfad. Siehe Screenshot:
Spielen Sie einen Sound ab, wenn sich der Zellenwert in einer bestimmten Spalte mit VBA-Code ändert
Wenn Sie einen Sound abspielen möchten, wenn sich der Zellenwert in einer bestimmten Spalte ändert, können Sie den folgenden VBA-Code anwenden.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", auf der Sie einen Sound abspielen möchten, wenn sich der Wert in einer Spalte ändert, und wählen Sie dann Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Spielen Sie einen Sound ab, wenn sich der Zellenwert in einer Spalte ändert:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
If Intersect(Target, Columns(3)) Is Nothing Then
Exit Sub
Else
For Each xCell In Columns(3)
On Error Resume Next
If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
Beep
Exit For
End If
Next
End If
End If
End Sub
Note: Im obigen Code die Nummer 3 im Skript Spalten (3) ist die Spaltennummer, die Sie abspielen möchten, wenn sich der Wert in dieser Spalte ändert.
2. Speichern und schließen Sie dann dieses Codefenster. Wenn sich jetzt ein Zellenwert in der dritten Spalte ändert, wird ein Standard-System-Piepton abgespielt.
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!