Programmā Excel 5 un 95 ir iespējams pievienot piezīmes šūnai, izmantojot skaņas failu.
Šo skaņu piezīmi var atskaņot, atverot šūnu piezīmju rediģēšanas dialoglodziņu.
Tālāk esošais makro var arī atskaņot šūnai pievienoto skaņas piezīmi:
Apakš PlaySoundNotesInExcel95 (CellAddress As String) programmai Excel 5 un 95 tikai tad, ja tā nav lietojumprogramma. CanPlaySounds tad iziet no kļūdas Atsākt nākamo ", ja nav skaņas piezīmju diapazona (CellAddress). SoundNote.Play On Error GoTo 0 End Sub
Excel 97 vai jaunāka versija vairs neatbalsta skaņu piezīmju izmantošanu.
Izmantojot tālāk norādītos makro, ir iespējams izveidot risinājumu, lai panāktu tādu pašu efektu:
Publiskās deklarēšanas funkcija 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 (WavFileNit) = " Apakšdaļa “nav faila, ko atskaņot, ja pagaidāt”, atskaņo skaņu, pirms tiek palaists kods sndPlaySound WavFileName, 0 Cita ”atskaņo skaņu, kamēr kods darbojas sndPlaySound WavFileName, 1 Beigas, ja beigas Sub Sub PlaySoundNotesInExcel97 (CellAddress As String)” risinājums skaņas piezīmju atskaņošanai programmā Excel 97 vai jaunākā versijā Dim SoundFileName As String SoundFileName = "" On Error Resume Next "rodas kļūda, ja šūnai nav piezīmes SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName =" "Tad Iziet no apakšpunkta “bez šūnu piezīmes Ja InStr (1, SoundFileName, Chr (10))> 0 Tad“ piezīme satur rindas pārtraukumu ”, izmantojiet pirmo rindu kā faila nosaukumu SoundFileName = Pa kreisi (SoundFileName, InStr (1, SoundFileName, Chr) (10)) - 1) Beigas Ja PlayFileWav SoundFileName, False End Sub
Kā izveidot skaņas piezīmi:
Ievietojiet šūnas komentāru, ar peles labo pogu noklikšķinot uz šūnas un atlasiet Ievietot komentāru….
Šūnas komentāra pirmajā teikumā ievadiet pilnu faila nosaukumu un atskaņojamās skaņas faila ceļu,
piem. C: \ mapes vārds \ skaņas faila nosaukums.wav.
Ja papildus skaņas faila nosaukumam vēlaties pievienot rakstisku ziņojumu, nospiediet taustiņu ENTER aiz faila nosaukuma
lai komentārā izveidotu jaunu teikumu. Pievienojiet jaunajam teikumam vajadzīgo tekstu.
Makro PlaySoundNotesInExcel97 var aktivizēt, izmantojot eventmacro Worksheet_SelectionChange (),
tādējādi skaņu piezīme tiks atskaņota katru reizi, kad lietotājs aktivizēs šūnu ar skaņas piezīmi.
