¿Cómo implementar avisos de alarma sonora cuando cambian los datos en EXCEL?

De hecho, sonará cuando B1 o C1 sea 1.

Busque una celda e ingrese la siguiente fórmula:

=IF(OR(B1=1, C1=1), alarm(""),"")

la alarma es una función personalizada, el código en el módulo es el siguiente:

Función de declaración privada PlaySound Lib "winmm.dll"

_Alias ​​​​"PlaySoundA" (ByVal lpszName como cadena,

_ByVal hModule como larga, ByVal dwFlags como larga) como larga

Función alarma(str como cadena) como cadena

Dim WAVFile como cadena

Const SND_ASYNC = amp; H1

Const SND_FILENAME = amp; H20000

alarma = str

WAVFile = "xxx.wav" 'Defina su propio archivo de sonido

Llame a PlaySound(WAVFile, 0amp;, SND_ASYNC o SND_FILENAME)

Función final