A Tassos le gustaría que Excel reproduzca un archivo de audio cuando el valor en una celda determinada exceda un umbral. Por ejemplo, cuando el valor en una celda excede 999, le gustaría que se reprodujera un archivo de sonido en particular.

No hay una forma incorporada de hacer esto en Excel (aunque sería una adición interesante a las funciones de formato condicional de Excel). Sin embargo, puede reproducir un archivo de sonido utilizando una macro para realizar una llamada a la API de Windows.

Debe comenzar colocando un código en el objeto Hoja del libro. (Haga clic con el botón derecho en la pestaña de la hoja de trabajo y elija Ver código en el menú contextual.) Declare la función «sonido» usando el siguiente código:

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

A continuación, puede crear una pequeña macro que realmente reproducirá el archivo de sonido. Suponiendo que el archivo de sonido está en el mismo directorio que el libro de trabajo, el siguiente código funcionará. (Debe modificar el código para que contenga el nombre de archivo y la ubicación correctos).

Sub PlayWAV()

WAVFile = ThisWorkbook.Path & "\MyAudioFile.wav"

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

Por último, establezca el criterio de reproducción del archivo. En este caso, desea que el archivo de sonido se reproduzca siempre que el valor en la celda de destino exceda el valor de umbral de 999. Lo siguiente verificará esa condición en la celda C5 y, si se justifica, reproducirá el archivo de sonido:

Private Sub Worksheet_Change(ByVal Target As Range)

Threshold = 999     If Range("C5").Value > Threshold Then PlayWAV End Sub

Ahora, siempre que el valor en la celda C5 cambie y supere 999, el archivo de audio se reproducirá una vez. Si los valores se cambian a menos de 999, no se reproduce nada. Si el valor cambia a otro valor superior a 999, el archivo de sonido se reproducirá de nuevo.

Para obtener ideas adicionales sobre la reproducción de archivos de audio, consulte estos sitios:

http://www.j-walk.com/ss/excel/tips/tip87.htm http://www.cpearson.com/excel/PlaySound.aspx

También debe tener en cuenta que puede hacer que Excel reproduzca un sonido del sistema mediante la validación de datos. Simplemente configure los criterios de validación (descritos en otros números de ExcelTips) y luego, en la pestaña Error, especifique si desea que Excel detenga, advierta o informe al usuario. Cuando se ingresa un valor en la celda que no se ajusta a los criterios, se muestra un cuadro de diálogo y se escucha el sonido del sistema.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (6559) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.