Emissione condizionale di un suono (Microsoft Excel)
Ken sa come creare formati condizionali in Excel. Ciò che vuole veramente fare, tuttavia, è che Excel emetta un suono udibile (un segnale acustico o altro) se le condizioni sono soddisfatte.
Non c’è modo per farlo senza ricorrere all’uso di macro. Se vuoi solo emettere un segnale acustico, puoi usare qualcosa del genere:
Function BeepMe() As String Beep BeepMe = "" End Function
Tutto ciò che fa questa funzione definita dall’utente è riprodurre un suono (che varierà a seconda del sistema in uso) e quindi restituire una stringa vuota.
Puoi usare la funzione nel tuo foglio di lavoro in questo modo:
=IF(A12>300,BeepMe(),"")
Se desideri riprodurre un suono diverso dal segnale acustico di sistema predefinito, dovrai utilizzare la funzione PlaySound dell’API di Windows. Il codice seguente crea una funzione definita dall’utente che riprodurrà il “tada” predefinito
suono così diffuso 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
Questa funzione può essere chiamata come nell’esempio precedente:
=IF(A12>300,SoundMe(),"")
Se si desidera riprodurre un file WAV diverso, è sufficiente modificare le specifiche del file nella funzione SoundMe.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (7658) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui: