Olen väsännyt tokaluokkalaiselle tyttärelle taulukon, jossa voi harjoitella kertotaulua. Mulla on niin että jos vastaus on oikein viereiseen kenttään tulee teksti OIKEIN, jne. Mutta onnistuisko jollain tapaa seuraava: Jos vastaus on oikein, kuuluisi esim. Windowsissa oleva waw-ääni tadaa tms. Väärästä vastauksesta joku toinen ääni?. Onnistuuko siis jotenkin makrolla vai mitä tarttis tehdä.
Äänitehoste tms. Exceliin
kertolasku
6550
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 6
Vanhimmat
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function PlayWAV(ehto As Boolean) As String
If ehto Then WAVFile = "ringin.wav" Else WAVFile = "newemail.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
PlayWAV = ""
End Function
Kopsasin tuon edellisen viestin jutun paikkaan missä makro kirjoitetaan. Tein joitain muutoksia ja ajoin läpi. Herjailee milloin mitäkin. Makrojen kirjoitus on mulle aika tuntematon juttu, joten osaisiko edellisen viestin kirjoittaja tai joku muu auttaa "kädestä pitäen"?
Kopioi äänitiedostot samaan kansioon jossa työkirja on.
Makro uuteen moduuliin.
Kaavariville =PlayWAV(B1="Oikein")
En vielä(kään) onnistunut tässä. Taitaa olla mission imbossible...
Mitä virheitä tulee?
Apua... En nyt niitä muista kaikkia, mutta ainakin jotain tyyliin... "Error in statement.."Error,value or togo.." Eli kirjoitusvirheistä nuo johtuu, olen niitä sitten yrittänyt muokata eri tavoin, mtta kun ei tiedä mitä tehdä niin virheilmoitukset jatkuu...