Villkor Göra ett ljud

September 3

Ken vet hur man skapar villkorsformat i Excel. Vad han egentligen vill göra är dock ha Excel gör ett hörbart ljud (ett pip eller vad som helst) om villkoren är uppfyllda.

Det finns inget sätt att göra detta utan att ta till hjälp av makron. Om du bara vill göra en ljudsignal, kan du använda ungefär så här:

Funktion BeepMe () As String
Beep
BeepMe = ""
End Function

Allt detta användardefinierad funktion gör är att spela ett ljud (som kommer att variera beroende på vilket system du använder) och sedan returnera en tom sträng. Du kan använda funktionen i kalkylbladet på detta sätt:

= OM (A12> 300, BeepMe (), "")

Om du vill spela något annat än standardsystemet pipljud, måste du använda Windows API Playsound-funktionen. I följande kod skapas en användardefinierad funktion som kommer att spela standard "tada" ljud så utbredd i många versioner av Windows.

Privat 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

Funktion SoundMe () As String
Ring Playsound ("c: \ windows \ media \ tada.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function

Denna funktion kan kallas samma som föregående exempel:

= OM (A12> 300, SoundMe (), "")

Om du vill spela en annan WAV-fil, helt enkelt ändra filen specifikationen i SoundMe funktionen.

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (5834) gäller för Microsoft Excel 2007, 2010 och 2013. Du kan hitta en version av detta tips för den äldre menygränssnittet i Excel här: Villkor Göra ett ljud.