Cree avisos de alarma sonora automáticos a través de VBA en EXCEL~~

Hoja de trabajo secundaria privada_Cambio (objetivo por valor como rango)

En caso de error, reanudar siguiente

Atenuar máximo como único, mínimo como único

Atenuar s como cadena, d como único

If Cells(1, 256) = "" Then

s = InputBox("Ingrese el número máximo y mínimo de límites" amp; Chr ( 13) amp; "Separe los dos números con el símbolo "/"", "Mensaje rápido")

max = Val(s)

min = Val(Mid(s) , InStr(s, "/") 1))

Si max lt min Entonces d = max: max = min: min = d

Celdas(1, 256) = max

Cells(2, 256) = min

s = MsgBox("El número límite que ingresó se almacena en la última columna de celdas" amp; Chr(13) amp; "Máximo El número es: "amp; max amp; Chr(13) amp "El número mínimo es: "amp min, "Nota")

Más: max = Cells(1, 256) ): min = Celdas(2, 256)

Fin si

Si Val(Target.Value) gt; max O Val(Target.Value) lt min Entonces

Target.Font.ColorIndex = 3

Target.Font.Bold = True

Pitido

Fin si

Fin Sub

El programa anterior puede cumplir con sus requisitos. Tenga en cuenta que el programa no se puede pegar en el código de macro para ejecutarse. Si tienes alguna pregunta, por favor contacta