В Excel 5 и 95 е възможно да прикачите бележки към клетка с помощта на звуков файл.
Тази звукова бележка може да се възпроизведе чрез отваряне на диалоговия прозорец за редактиране на клетъчни бележки.
Макросът по -долу може също да възпроизведе звуковата бележка, прикрепена към клетка вместо вас:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'само за Excel 5 и 95, ако не е приложение. CanPlaySounds След това излезте от Sub On Error Resume Next' в случай, че няма обхват на soundnote (CellAddress). SoundNote.Play On Error GoTo 0 End Sub
Excel 97 или по -нова версия вече не поддържа използването на звукови бележки.
С макросите по -долу е възможно да се създаде заобиколно решение за постигане на същия ефект:
Публично обявяване на функция 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 (WavFileNa then Ex) Sub „няма файл за възпроизвеждане, ако изчакате след това“ възпроизвеждане на звук, преди да стартирате още код sndPlaySound WavFileName, 0 Друг „възпроизвеждане на звук, докато кодът работи sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)“ заобиколно решение за възпроизвеждане на звукови бележки в Excel 97 или по -нова версия Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'възниква грешка, ако клетката няма бележка SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Тогава Излезте от Sub „без клетка бележка Ако InStr (1, SoundFileName, Chr (10))> 0 Тогава„ бележката съдържа прекъсване на ред “използвайте първия ред като име на файл SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Край Ако PlayFileWav SoundFileName, False End Sub
Как да създадете звукова бележка:
Вмъкнете коментар в клетка, като щракнете с десния бутон в клетка и изберете Вмъкване на коментар….
Попълнете пълното име на файла и пътя до звуковия файл, който ще се възпроизведе в първото изречение в коментара на клетката,
напр. C: \ Име на папката \ Soundfilename.wav.
Ако искате да добавите писмено съобщение в допълнение към името на звуковия файл, натиснете клавиша ENTER след името на файла
за да създадете ново изречение в коментара. Добавете желания текст към новото изречение.
Макросът PlaySoundNotesInExcel97 може да бъде активиран от eventmacro Worksheet_SelectionChange (),
това ще накара звуковата нота да се възпроизвежда всеки път, когато потребителят активира клетката със звуковата нота.
