I Excel 5 og 95 er det mulig å legge notater til en celle ved hjelp av en lydfil.
Denne lydnoten kan spilles av ved å åpne dialogboksen for redigering av cellennoter.
Makroen nedenfor kan også spille lydnoten som er festet til en celle for deg:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'bare for Excel 5 og 95 Hvis ikke Application.CanPlaySounds Avslutt deretter Sub On Error Resume Next' i tilfelle det ikke er et lydnoteområde (CellAddress) .SoundNote.Play On Error GoTo 0 End Sub
Excel 97 eller nyere støtter ikke lenger bruk av lydnoter.
Med makroene nedenfor er det mulig å lage en løsning for å oppnå samme effekt:
Offentlig erklære funksjon 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 more code sndPlaySound WavFileName, 0 Else 'play sound while code is running sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)' løsning for å spille lydnotater i Excel 97 eller nyere Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'en feil oppstår hvis cellen ikke har et notat SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Then Avslutt Sub 'no cell note If InStr (1, SoundFileName, Chr (10))> 0 Deretter' inneholder notatet et linjeskift 'bruk den første linjen som filnavnet SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Slik oppretter du en lydnote:
Sett inn en cellekommentar ved å høyreklikke i en celle og velg Sett inn kommentar ….
Fyll ut hele filnavnet og banen til lydfilen som skal spilles av i den første setningen i cellekommentaren,
f.eks. C: \ Mappnavn \ Soundfilename.wav.
Hvis du vil legge til en skriftlig melding i tillegg til lydfilnavnet, trykker du på ENTER-tasten etter filnavnet
for å lage en ny setning i kommentaren. Legg til teksten du vil ha i den nye setningen.
Makroen PlaySoundNotesInExcel97 kan aktiveres av eventmacro Worksheet_SelectionChange (),
Dette vil få lydnoten til å spille hver gang brukeren aktiverer cellen med lydnoten.
