Olá! Utilizo uma planilha para monitorar algumas ação da bolsa de valores e gostaria que o excel 2003 emitisse um som quando a célula A1 atingisse um valor menor que 100. Os valores de A1 são gerados por “dados externos” de um site. O mais próximo que cheguei foi isso: MÓDULO GERAL 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 Sub PlayWAV() WAVFile = “alarm.wav” WAVFile = ThisWorkbook.Path & “” & WAVFile Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) End Sub MÓDULO WORKBOOK Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As _ Excel.Range) If Sh.Name = “Plan1″ And Target.Address = “$A$1″ Then If Target.Value < 100 Then Call PlayWAV End If End If End Sub O PROBLEMA É QUE SÓ FUNCIONA SE A CÉLULA A1 FOR ALIMENTADA MANUALMENTE, QUANDO É ALIMENTADA A PARTIR DE OUTRA CÉLULA NÃO FUNCIONA, POR EXEMPLO, A1 SENDO ALIMENTADA A PARTIR DE A2 (A1=A2)
See the original post here:
excel emitir um som de acordo com o valor da célula