Excel piippaamaan

xlsti

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ä.

4

477

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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 moduuliin

        Tosin 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

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      236
      4600
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      76
      3035
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2463
    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1767
    5. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      25
      1613
    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1439
    7. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      85
      1285
    8. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      143
      965
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      69
      938
    10. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      894
    Aihe