Excelis 5 ja 95 on võimalik helifaili abil lahtrisse märkmeid lisada.
Seda helimärget saab taasesitada, avades dialoogi lahtrite märkmete redigeerimiseks.
Allpool olev makro saab teie jaoks esitada ka lahtrile lisatud helinoodi:
Alammäng PlaySoundNotesInExcel95 (CellAddress as String) Exceli jaoks 5 ja 95 ainult juhul, kui see pole rakendus. CanPlaySounds Seejärel väljuge veast Jätka järgmisena, kui helimärkide vahemikku pole (CellAddress). SoundNote.Play On Error GoTo 0 End Sub
Excel 97 või uuem versioon ei toeta enam helimärkuste kasutamist.
Allpool olevate makrodega saate sama efekti saavutamiseks luua lahenduse.
Avalik deklareerimisfunktsioon sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileName) = " Alam „faili ei esitata, kui oodata”, esitage heli enne koodi käivitamist sndPlaySound WavFileName, 0 Muu ”esitage heli koodi töötamise ajal Excelis 97 või uuemas versioonis Dim SoundFileName As String SoundFileName = "" On Error Resume Next "ilmneb tõrge, kui lahtril pole märget SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName =" "Siis Exit Sub 'no cell note Kui InStr (1, SoundFileName, Chr (10))> 0 Siis' märkus sisaldab reavahet ', kasutage esimest rida failinimena SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Lõpp, kui PlayFileWav SoundFileName, vale lõpp -alam
Helimärkme loomine:
Lahtrikommentaari lisamiseks paremklõpsake lahtril ja valige Lisa kommentaar….
Täitke lahtri kommentaari esimeses lauses täielik failinimi ja esitatava helifaili tee,
nt. C: \ Kaustanimi \ Helifaili nimi.wav.
Kui soovite helifaili nimele lisada ka kirjaliku sõnumi, vajutage failinime järel klahvi ENTER
luua kommentaari uus lause. Lisage uuele lausele soovitud tekst.
Makro PlaySoundNotesInExcel97 saab aktiveerida sündmusmakro abil Worksheet_SelectionChange (),
see paneb helimärguande esitama iga kord, kui kasutaja helimärgiga lahtri aktiveerib.
