
Option Explicit Sub bippo() Beep End Sub |
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 Public Function Allarme() WAVFile = "c:winntmedia ada.wav" Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) End Function ''' ******************* Esempio: =SE(A1>10;Allarme();"") |
