Äänimuistioiden toistaminen VBA: n avulla Microsoft Excelissä

Sisällysluettelo

Excel 5: ssä ja 95: ssä on mahdollista liittää muistiinpanoja soluun äänitiedoston avulla.
Tämä äänimerkki voidaan toistaa avaamalla valintaikkuna solumuistiinpanojen muokkaamista varten.
Alla oleva makro voi myös toistaa soluun liitetyn äänimerkin puolestasi:

Sub PlaySoundNotesInExcel95 (CellAddress as String) 'vain Excel 5: lle ja 95: lle, jos se ei ole Application.CanPlaySounds Sitten Exit Sub On Error Jatka seuraavaksi', jos soundnote Range (CellAddress) ei ole.

Excel 97 tai uudempi ei enää tue äänimerkintöjen käyttöä.
Alla olevien makrojen avulla voit luoda kiertotavan saman vaikutuksen saavuttamiseksi:

Julkinen ilmoitustoiminto sndPlaySound Lib "winmm.dll" _ Alias ​​"sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) Kuten Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileName) = " Ala 'ei toistettavaa tiedostoa, jos odotat', toista ääni ennen kuin jatkat koodin käyttämistä sndPlaySound WavFileName, 0 Muu 'toista ääni koodin ollessa käynnissä Excel 97: ssä tai uudemmassa Dim SoundFileName As String SoundFileName = "" On Error Resume Next "tapahtuu virhe, jos solussa ei ole huomautusta SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName =" "Sitten Exit Sub 'no cell note Jos InStr (1, SoundFileName, Chr (10))> 0 Sitten' huomautus sisältää rivinvaihdon ', käytä ensimmäistä riviä tiedostonimenä SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Lopeta, jos PlayFileWav SoundFileName, False End Sub

Äänimerkin luominen:
Lisää solukommentti napsauttamalla solua hiiren kakkospainikkeella ja valitse Lisää kommentti….
Täytä solun kommentin ensimmäisessä lauseessa koko tiedostonimi ja toistettavan äänitiedoston polku,
esim. C: \ Kansionimi \ Äänitiedostonimi.wav.
Jos haluat lisätä kirjallisen viestin äänitiedoston nimen lisäksi, paina ENTER-näppäintä tiedostonimen jälkeen
luoda uusi lause kommenttiin. Lisää haluamasi teksti uuteen lauseeseen.
PlaySoundNotesInExcel97 -makron voi aktivoida eventmacro Worksheet_SelectionChange (),
tämä saa äänimerkin toistumaan aina, kun käyttäjä aktivoi solun äänimerkin avulla.

Tulet auttaa kehittämään sivuston jakaminen sivu ystävillesi

wave wave wave wave wave