Deseamos reproducir sonido en celda Excel. Al seleccionar una celda o un rango se reproduzca un sonido o una locución.
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.Escribir el código de la macro:
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strCelda As String
strCelda = ActiveCell.Address(False, False)
Select Case strCelda
Case "A1"
WAVFile = "C:\Sonido\01.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Case "D1"
WAVFile = "C:\Sonido\02.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Case "F5"
WAVFile = "C:\Sonido\03.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Case Else
End Select
End Sub
WAVFile = "C:\Sonido\02.wav" ' (Carpeta y archivo deseado)
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) '(Instrucción para reproducir)
Mediante una macro podemos reproducir sonido en celda Excel.
Excel Experto VBA - Macros- Consultar:
Buen día. Me pareció buenísimo y re clara la explicación!!! Uds. podrán enviarme sonidos de teclas en formato wav?
Gracias! Saludos. Iván
Quisiera introducir un boton de control y al accionarlo me reproduzca una gravación
Hola José Luis,
Depende de lo que necesites, hay soluciones, con macros o incluso con Windows Mediaplayer,
revisa: Música en Excel.
Saludos.
Hola!
Tengo 9 rangos de celdas que pueden tener tres valores (F, , J). Necesito que cuando el valor pase a ser F, suene un sonido, y cuando pase a ser J suene otro. Si está en blanco que no suene nada. Es un mero control de entrega de actividades.
Gracias.
Buenos días amigo, una pregunta y como se hace para desactivar la lectura en excel cuando se escribe en cada celda o columna? GRACIAS
Hola Julio Cesar,
Cambia el evento de la macro Worksheet_SelectionChange() por el deseado.
Saludos.