Tuota edellistä ongelmaa katsoessani törmäsin siihen, että koneessani XP/Office2003 ei tunnu Beep toimivan lainkaan.
Miten excelin saisi ylipäätään piippaamaan? Ohjeita löytyy useammasta paikasta, mutta muuten puhelias koneeni ei piipahtele niillä käskyillä.
Excel piippaamaan
xlsti
4
431
Vastaukset
Mulla Excel 2003 ja piippaa ihan kivasti.
siis taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value = 0 Then
PlayWAV
End If
End Sub
ja moduuliin ...
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
Sub PlayWAV()
WAVFile = "beep.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub- xlsti
Hei, kerropa tarkemmin mihin ja miten laitetaan nuo scriptit. Visual Basic Editorilla olen tyrkännyt ne kohtaan Modules Module1 ja Module2. En vaan saa soimaan. Wav toimii, mutta tuo ehdollistaminen ei toimi.
xlsti kirjoitti:
Hei, kerropa tarkemmin mihin ja miten laitetaan nuo scriptit. Visual Basic Editorilla olen tyrkännyt ne kohtaan Modules Module1 ja Module2. En vaan saa soimaan. Wav toimii, mutta tuo ehdollistaminen ei toimi.
mun viesteissä tarkoittaa
taulukon moduuliin...
taulukon valitsemasta klikkaat hiiren oikealla ja klikkaat Näytä koodi/View Code ja seuraavaksi aukeaa VBA editorissa taulukon moduuli mihin liität koodin tai
excelin puolella ALT F11 ja aukeaa VBA editori ja ja vasemmalta VBAProject "työkirjan nimi" tuplaklikkaat taulukon nimeä mihin koodin haluat liittää
jos VBAProject ikkuna ei ole näkyvissä sen saat näkyviin valikosta View/Project Explorer tai CTRL R
moduuliin...
valikosta Insert/Module ja liität koodin aukeavaan moduuliin
Class moduuliin...
valikosta Insert/Class Module ja liität koodin aukeavaan moduuliin
sun tapauksessa nyt toi eka taulukkokoodi on tavallisessa moduulissa eikä taulukon moduulissa, joten ei voi toimia...
siirrä se siis sinne taulukon moduuliin- xlsti
kunde kirjoitti:
mun viesteissä tarkoittaa
taulukon moduuliin...
taulukon valitsemasta klikkaat hiiren oikealla ja klikkaat Näytä koodi/View Code ja seuraavaksi aukeaa VBA editorissa taulukon moduuli mihin liität koodin tai
excelin puolella ALT F11 ja aukeaa VBA editori ja ja vasemmalta VBAProject "työkirjan nimi" tuplaklikkaat taulukon nimeä mihin koodin haluat liittää
jos VBAProject ikkuna ei ole näkyvissä sen saat näkyviin valikosta View/Project Explorer tai CTRL R
moduuliin...
valikosta Insert/Module ja liität koodin aukeavaan moduuliin
Class moduuliin...
valikosta Insert/Class Module ja liität koodin aukeavaan moduuliin
sun tapauksessa nyt toi eka taulukkokoodi on tavallisessa moduulissa eikä taulukon moduulissa, joten ei voi toimia...
siirrä se siis sinne taulukon moduuliinTosin vaati muutaman yrityksen, mutta sitten alkoi pelittää. Ongelma taisi olla se, että koodissa ei ollut 0 vaan oli O. Kiitän!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t3912490V*ttuu että mä haluan sua
Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!914291Nolointa ikinä miehelle
On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai1104023- 513658
Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳533351- 1163304
Sattuma ja muutama väärinkäsitys
vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul482235- 392143
Keskusta hajoaa Palojärvi lähtee
Suomen Keskustan ryhmä hajoaa Kemijärvellä. Kalastaja Palojärvi sai tarpeekseen ja loikkasi Sitoutumattomat Aati Virkkul271968On sillä rääpyä
Tuo ex kuntajohtaja Lea Tolonen kehtaakin tulla Ähtäriin. Ajoi laivan Karille. Kari Heikkilä oikaisi taloutta, sai laiva131661