Makrojen ja VB koodin ristiriidat?

outoa

Excelin makrossa on tällainen koodin pätkä:
Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select

Eli tämä valitsee BCDEFHJKL sarakkeet. Minkä takia VB koodi ei ymmärrä tätä valintaa vaan alkaa heti bugittamaan? Haittana siis se, että ei voi käyttää ohjausobjektien nappeja vaan ne täytyy tehdä lomake työkalurivin napeilla. Ärsyttävää. Vai onko VB:n koodiin olemassa yhtä yksinkertaista valintakoodia?

4

385

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kyllä toi toimii ihan ok, jos excelissä VBA koodia väsäät-jos VB:llä niin sitten eri juttu.

      Private Sub CommandButton1_Click()
      Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select
      End Sub


      voit kokeilla lisätä koodiin taulukon aktivoinnin niin silloin ainakin toimii...

      esim.
      Private Sub CommandButton1_Click()
      Worksheets("Sheet1").Activate
      Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select
      End Sub

      • outo

        Aina tyssää koodi tuohon

        Range("B:B,C:C,D:D,E:E,F:F,H:H,J:J,K:K,L:L").Select

        kohtaan. Mikäli sitä yrittää ohjausobjekteissa käyttää.


      • outoa

        Eli tuohan toimii jos nappi on samalla välilehdellä, mutta jos haluaa esim. vaihtaa välilehteä ja sieltä tehdä valinnan niin se herkeää toimimasta.

        Private Sub CommandButton1_Click()
        Sheets("taul2").Select
        Range("A:A,B:B").Select
        End Sub

        Tuo koodin pätkä ei toimi, mutta jos ottaa Sheets("taul2").select rivin pois niin kyllä se sitten valitse taulukosta A ja B sarakkeen.


      • ....
        outoa kirjoitti:

        Eli tuohan toimii jos nappi on samalla välilehdellä, mutta jos haluaa esim. vaihtaa välilehteä ja sieltä tehdä valinnan niin se herkeää toimimasta.

        Private Sub CommandButton1_Click()
        Sheets("taul2").Select
        Range("A:A,B:B").Select
        End Sub

        Tuo koodin pätkä ei toimi, mutta jos ottaa Sheets("taul2").select rivin pois niin kyllä se sitten valitse taulukosta A ja B sarakkeen.

        ActiveSheet.Range("A:A,B:B").Select


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Suomen markka otettiin käyttöön vuonna 1860

      Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli
      Maailman menoa
      37
      9291
    2. "Mä elän vieläkin"

      Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn
      Tampere
      32
      3841
    3. Yksityinen sektori aiheuttanut Suomen taantuman

      Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi
      Maailman menoa
      81
      2419
    4. Pate Mustajärvi on kuollut

      Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html
      Maailman menoa
      119
      2373
    5. Kylläpä asiat onkin nyt hyvin verrattuna Sannan aikaan

      Sannan aikana aähkön alv oli 10%, nyt 25,5%. Ajatelkaa nytkin pörssisähkö on ilmaista, keskellä talvea! Bensan hinta on
      Maailman menoa
      25
      1925
    6. Kaivatullesi viesti ensi vuoteen?

      Kerro meneekö naiselle vai miehelle ja vähintään yksi tunniste, esim. kirjain.
      Ikävä
      37
      1899
    7. Miten ikinä kelpaisin sulle

      Sinä saat niiltä muilta naisilta paljon enemmän, mitä minulta... Tai mihin minä olisin valmis. Enkä edes olisi niin tait
      Ikävä
      15
      1590
    8. Edes vitamiinit eivät taanneet loputonta elämää

      Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.
      Maailman menoa
      32
      1411
    9. Kuinka kauan vielä

      jaksetaan vastustaa toisiamme?
      Ikävä
      71
      1247
    10. Esko ja Martina viettävät joulua

      Entisen avioparin joulunvietto on ylittänyt IS uutiskynnyksen
      Kotimaiset julkkisjuorut
      171
      1038
    Aihe