В Excel 5 и 95 можно прикреплять заметки к ячейке с помощью звукового файла. Эту звуковую заметку можно воспроизвести, открыв диалоговое окно для редактирования заметок ячейки.

Приведенный ниже макрос также может проигрывать звуковую ноту, прикрепленную к ячейке:

Sub PlaySoundNotesInExcel95(CellAddress As String)

' for Excel 5 and 95 only

If Not Application.CanPlaySounds Then Exit Sub

On Error Resume Next ' in case there is no soundnote

Range(CellAddress).SoundNote.Play

On Error GoTo 0

End Sub

Excel 97 или более поздняя версия больше не поддерживает использование звуковых заметок.

С помощью приведенных ниже макросов можно создать обходной путь для достижения того же эффекта:

Public Declare Function sndPlaySound Lib "winmm.dll" _

Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _

ByVal uFlags As Long) As Long

Sub PlayWavFile(WavFileName As String, Wait As Boolean)

If Dir(WavFileName) = "" Then Exit Sub ' no file to play

If Wait Then ' play sound before running any more code

sndPlaySound WavFileName, 0

Else ' play sound while code is running

sndPlaySound WavFileName, 1

End If

End Sub

Sub PlaySoundNotesInExcel97(CellAddress As String)

' workaround for playing sound notes in Excel 97 or later

Dim SoundFileName As String

SoundFileName = ""

On Error Resume Next ' an error occurs if the cell doesn't have a note

SoundFileName = Range(CellAddress).Comment.Text

On Error GoTo 0

If SoundFileName = "" Then Exit Sub ' no cell note

If InStr(1, SoundFileName, Chr(10)) > 0 Then ' the note contains a line-break

' use the first line as the filename

SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr(10)) - 1)

End If

PlayFileWav SoundFileName, False

End Sub

Как создать звуковую заметку:

Вставьте комментарий к ячейке, щелкнув ячейку правой кнопкой мыши и выбрав «Вставить комментарий …​.

Введите полное имя файла и путь к звуковому файлу для воспроизведения в первом предложении в комментарии к ячейке, например C: \ Foldername \ Soundfilename.wav.

Если вы хотите добавить письменное сообщение в дополнение к звуковому имени файла, нажмите клавишу ENTER после имени файла, чтобы создать новое предложение в комментарии. Добавьте нужный текст в новое предложение.

Макрос PlaySoundNotesInExcel97 может быть активирован с помощью eventmacro Worksheet_SelectionChange (), это заставит звуковую заметку воспроизводиться каждый раз, когда пользователь активирует ячейку со звуковой заметкой.