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

533

    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. Nato kaatamassa Petterin haaveileman Tunnin junan?

      Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,
      Maailman menoa
      107
      5358
    2. Puoluebarometri: Marinin hallituksella 7 parasta mittaustulosta

      Orpon hallitusta pitää huonona 2/3 kansalaisista, joka on aika hyvin linjassa hallituspuolueiden yhteenlasketun kannatuk
      Maailman menoa
      66
      3972
    3. Donald Trump pääsi samalle listalle Sanna Marinin kanssa

      Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/5937699
      Maailman menoa
      26
      3505
    4. Vieläkö olet

      Rakastunut minuun? Minä sinuun
      Ikävä
      81
      2556
    5. Pride-rautu korvaamaan kirjolohi

      Kekkosen saatanan tunari meni muuttamaan aikoinaan sateenkaariväen kalan nimen. Unkarin vallankumouksen innoittamana n
      Maailman menoa
      11
      2047
    6. Ei siinä kauan

      Menisi jos olisimme kahden
      Ikävä
      24
      1969
    7. Grahn-laasonen taas todisti millaista porukkaa

      kokoomusloiset ovat...työttömät jäävät kuulemma kotiin nukkumaan kun naapuri lähtee töihin...eikös taannoin kokoomuslois
      Maailman menoa
      413
      1928
    8. Purran aikaisemmat kannattajat siirtyneet Lindtmanin leiriin

      Melkoinen muutos on käynnissä Suomen politiikan kentällä. Tulevista häviäjistä on hirmuinen kiire päästä ajoissa voittaj
      Maailman menoa
      3
      1824
    9. Tekeekö hän

      Tekeekö hän sinut h*lluksi ja millä tavalla? Uusi yritys, kun edellinen aloitus poistettiin.
      Ikävä
      30
      1721
    10. Laine voitti oikeudessa

      Onnea Savonlinna! Laine voitti oikeudessa kuten arvelinkin ja lieköhän palaa valtaisuimelleen?
      Savonlinna
      63
      1677
    Aihe