Bedingt einen Ton erzeugen (Microsoft Excel)
Ken weiß, wie man bedingte Formate in Excel erstellt. Was er jedoch wirklich tun möchte, ist, dass Excel ein hörbares Geräusch (ein Piepton oder was auch immer) macht, wenn die Bedingungen erfüllt sind.
Es gibt keine Möglichkeit, dies zu tun, ohne auf Makros zurückzugreifen. Wenn Sie nur einen Piepton erzeugen möchten, können Sie Folgendes verwenden:
Function BeepMe() As String Beep BeepMe = "" End Function
Diese benutzerdefinierte Funktion besteht lediglich darin, einen Sound abzuspielen (der je nach verwendetem System variiert) und dann eine leere Zeichenfolge zurückzugeben.
Sie können die Funktion in Ihrem Arbeitsblatt folgendermaßen verwenden:
=IF(A12>300,BeepMe(),"")
Wenn Sie einen anderen Sound als den Standard-Systemton abspielen möchten, müssen Sie die Windows API PlaySound-Funktion verwenden. Der folgende Code erstellt eine benutzerdefinierte Funktion, die die Standardeinstellung „tada“
wiedergibt klingt so weit verbreitet in Windows.
Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 Function SoundMe() As String Call PlaySound("c:\windows\media\tada.wav", _ 0, SND_ASYNC Or SND_FILENAME) SoundMe = "" End Function
Diese Funktion kann wie im vorherigen Beispiel aufgerufen werden:
=IF(A12>300,SoundMe(),"")
Wenn Sie eine andere WAV-Datei abspielen möchten, ändern Sie einfach die Dateispezifikation in der SoundMe-Funktion.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (7658) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: