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

517

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mikaela Nylander: Jos pakkoruotsi poistetaan, niin ruotsin kielen asema romahtaa

      (Nylander on vanha RKP:nen) Mutta niin heikossa vedossa muumiruotsi siis on Suomessa, että vain tekohengityksellä se pys
      Maailman menoa
      65
      2572

    2. Nainen aion pilata elämäsi täysin, opetus sulle, että pelasit väärän ihmisen sydämellä.

      Empatiani sua kohtaan katosi siinä kohtaan, kun teit tietoisen valinnan leikkiä mun sydämellä. Luulet olevas joku älykäs
      Ikävä
      241
      1585

    3. Kaivattusi nimi vol.3

      Kaipaajankin nimi olisi kiva. 🥰
      Ikävä
      94
      1380

    4. 6 vkoa kulunut ilman sua

      …ihme että olen vielä hengissä. 😔 Kyynelillä pessyt lattioita. Rakastan ja odotan sua ikuisesti❤️Projekti jäi kesken jo
      Ikävä
      8
      901

    5. Viestisi kaipaamallesi ihmiselle

      Mitä ajattelet tilanteestanne tänään?
      Ikävä
      65
      882

    6. Jotenkin se harmittaa

      Etten voinut antaa itselleni mahdollisuutta tutustua. Tulit vain liian lähelle ja syvälle kemia oli alusta alkaen liian
      Ikävä
      46
      700

    7. Olen yrittänyt tavoittaa sinut kolmesti

      Elämän aikana. Kahdesti hakenut numeroa ja lähettänyt jollekkin nimisellesi viestin. Kerran aivan summassa keksimääni os
      Ikävä
      2
      652

    8. Haluan kysyä vain yhden asian

      Miksi et koskaan halunnut kohdata minua kasvotusten silloin, kun molemmilla oli tunteita? Kaiken muun olen jo hyväksymäs
      Ikävä
      39
      579

    9. Mies aion pilata elämäsi

      Ole hyvä vaan, olet ansainnut sen.
      Ikävä
      73
      562

    10. Kauneus on katsojan silmissä

      Mitä kaunista sun silmät näkevät?
      Ikävä
      22
      512
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt