parillinen/

pariton?

Kuinka kirjoitetaan VBA:lla
jos solu A1 on pariton, niin kopioidaan soluihin A2-A10 solujen B2-B10 arvo.
Jos ei kopioidaan soluihin A2-A10 solujen C2-C10 arvo?

Olen etsinyt netistä ties kuinka kauan VBA koodia jaollinen kaavalle, mutta tietoa olen löytänyt vain muille ohjelmointiohjelmille.

Jos jollakulla olisi hyvä sivu tiedossa, voisitteko laittaa linkkejä?

8

1078

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Piru

      Jos A1 jakojäännös 2 = 0

      niin A1 on parillinen

      Visual Basicissä jakojäännös saadaan

      jaannos = jaettava Mod jakaja

      • pariton?

        Kiitos, mutta en kyllä käsitä kuinka se toimii.
        Excelin kaavalla osaan tuon tehdä, mutta pitäisi tehdä VBA:lla ettei asetuksia muutettaisi vahingossa.
        Excelin soluja kun ei voi lukita kun silloin kaava ei toimi.

      • Kunde
        pariton? kirjoitti:

        Kiitos, mutta en kyllä käsitä kuinka se toimii.
        Excelin kaavalla osaan tuon tehdä, mutta pitäisi tehdä VBA:lla ettei asetuksia muutettaisi vahingossa.
        Excelin soluja kun ei voi lukita kun silloin kaava ei toimi.

        Public Luku As Boolean
        Function Parillinen(Numero As Double) As Boolean
        If (Numero And 1) Then
        Parillinen = False
        Else
        Parillinen = True
        End If
        End Function

        Sub Testi()
        If Not Parillinen(Range("A1")) Then
        Range("B2:B10").Copy Destination:=Range("A2")
        Else
        Range("C2:C10").Copy Destination:=Range("A2")
        End If
        End Sub

      • tuollakaan
        Kunde kirjoitti:

        Public Luku As Boolean
        Function Parillinen(Numero As Double) As Boolean
        If (Numero And 1) Then
        Parillinen = False
        Else
        Parillinen = True
        End If
        End Function

        Sub Testi()
        If Not Parillinen(Range("A1")) Then
        Range("B2:B10").Copy Destination:=Range("A2")
        Else
        Range("C2:C10").Copy Destination:=Range("A2")
        End If
        End Sub

        koodilla,kiitos kuitenkin. Katselin VBA:n omia ohjeita, mutta ei niistäkään mitään apuja ollut.

        Voi itku, taitaa taulukko jäädä kaava-asteelle ilman suojausta...

      • VBA
        tuollakaan kirjoitti:

        koodilla,kiitos kuitenkin. Katselin VBA:n omia ohjeita, mutta ei niistäkään mitään apuja ollut.

        Voi itku, taitaa taulukko jäädä kaava-asteelle ilman suojausta...

        kyllä taatusti toimii. Mitäs se ei tehnyt?
        Pyysit koodia jolla kopioidaan solut riipuuen A1 arvon parillisuudesta.
        Olikos syynä taulukon suojaus vai? jos niin korvaa koodi seuraavalla.
        Taulukko suojattu salasanalla 'kunde' ja solusta A1 poistettu lukitus.

        Public Luku As Boolean
        Function Parillinen(Numero As Double) As Boolean
        If (Numero And 1) Then
        Parillinen = False
        Else
        Parillinen = True
        End If
        End Function

        Sub Testi()
        ActiveSheet.Unprotect Password:="kunde"
        If Not Parillinen(Range("A1")) Then
        Range("B2:B10").Copy Destination:=Range("A2")
        Else
        Range("C2:C10").Copy Destination:=Range("A2")
        End If
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
        ActiveSheet.EnableSelection = xlUnlockedCells
        End Sub

      • pariton?
        VBA kirjoitti:

        kyllä taatusti toimii. Mitäs se ei tehnyt?
        Pyysit koodia jolla kopioidaan solut riipuuen A1 arvon parillisuudesta.
        Olikos syynä taulukon suojaus vai? jos niin korvaa koodi seuraavalla.
        Taulukko suojattu salasanalla 'kunde' ja solusta A1 poistettu lukitus.

        Public Luku As Boolean
        Function Parillinen(Numero As Double) As Boolean
        If (Numero And 1) Then
        Parillinen = False
        Else
        Parillinen = True
        End If
        End Function

        Sub Testi()
        ActiveSheet.Unprotect Password:="kunde"
        If Not Parillinen(Range("A1")) Then
        Range("B2:B10").Copy Destination:=Range("A2")
        Else
        Range("C2:C10").Copy Destination:=Range("A2")
        End If
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
        ActiveSheet.EnableSelection = xlUnlockedCells
        End Sub

        sain toimimaan kun laitoin painikkeen sille. Saiskos tuota toimimaan automaattisesti, että kun luku vaihtuu kopioituis solut?

        Kun kokeili ilman painiketta ei tehnyt mitään.

      • Kunde
        pariton? kirjoitti:

        sain toimimaan kun laitoin painikkeen sille. Saiskos tuota toimimaan automaattisesti, että kun luku vaihtuu kopioituis solut?

        Kun kokeili ilman painiketta ei tehnyt mitään.

        Ei koodi voi tietenkään toimia ilman tapahtumaa mikä sen käynnistäisi. No nyt koodi haluamasi taulukon moduuliin esim. taul1

        Public Luku As Boolean

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Testi
        End Sub

        Function Parillinen(Numero As Double) As Boolean
        If (Numero And 1) Then
        Parillinen = False
        Else
        Parillinen = True
        End If
        End Function

        Sub Testi()
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        ActiveSheet.Unprotect Password:="kunde"
        If Not Parillinen(Range("A1")) Then
        Range("B2:B10").Copy Destination:=Range("A2")
        Else
        Range("C2:C10").Copy Destination:=Range("A2")
        End If
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
        ActiveSheet.EnableSelection = xlUnlockedCells
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        End Sub

      • pariton?
        Kunde kirjoitti:

        Ei koodi voi tietenkään toimia ilman tapahtumaa mikä sen käynnistäisi. No nyt koodi haluamasi taulukon moduuliin esim. taul1

        Public Luku As Boolean

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Testi
        End Sub

        Function Parillinen(Numero As Double) As Boolean
        If (Numero And 1) Then
        Parillinen = False
        Else
        Parillinen = True
        End If
        End Function

        Sub Testi()
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        ActiveSheet.Unprotect Password:="kunde"
        If Not Parillinen(Range("A1")) Then
        Range("B2:B10").Copy Destination:=Range("A2")
        Else
        Range("C2:C10").Copy Destination:=Range("A2")
        End If
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="kunde"
        ActiveSheet.EnableSelection = xlUnlockedCells
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        End Sub

        Tosi suuret kiitokset, nyt alkoi toimimaan haluamallani tavalla!

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tällä kertaa Marinia kadehtii Minäminä Päivärinta

      Kokoomuksen tyhjäntoimittelija itkeä tuhertaa, kun kansainvälinen superstaramme ei leiki hänen kanssaan. Oikean puoluee
      Maailman menoa
      386
      1492

    2. Minua itkettää tämä tilanne

      Meidän pitäisi jutella. Eikö niin? Miehelle.
      Ikävä
      104
      1273

    3. Miksi koulut pakottavat

      Lapset uimaan sekaryhmänä? Murrosikäiset tunnetusti häpeilevät vartalossa tapahtuvia muutoksia. Tulee turhia poissaoloja
      Maailman menoa
      116
      1200

    4. Miksi jollain jää "talvi päälle"

      Huvittaa kastoa ullkona jotain vahempaa äijää joka pukeutuu edelleen kun olisi +5 astetta lämmittä vaikka on helle keli
      Maailman menoa
      158
      1092

    5. Mitkä oli suurimmat

      Syyt mihin hänessä ihastuit alussa ja pikkuhiljaa tunteiden edetessä
      Ikävä
      44
      977

    6. Minulla oli tunteita

      Tein itsestäni pellen. Sait hyvät naurut ja minä 💔
      Ikävä
      63
      896

    7. Se katse silloin

      Oli hetki, jolloin katseemme kohtasivat. Oli talvi vielä. Kerta toisensa jälkeen palaan tuohon jaettuun katseeseen. Tunt
      Ikävä
      32
      816

    8. Suomen Pallolitto: Tasoryhmät lasten jalkapallossa - Erätauko-tilaisuus ma 20.5.2024

      Tasoryhmät lasten ja nuorten jalkapallossa herättävät paljon keskustelua. Mitä tasoryhmät ovat ja mikä on niiden tarkoit
      Suomi24 Blogi ★
      0
      800

    9. Susanne Päivärinta kirjassaan: Sannalla nousi valta päähän, Big Time!

      Päivärinta toteaa ettei ole nähnyt kenenkään muuttuvan niin totaalisesti kuin Marinin, eikä siis todellakaan parempaan s
      Maailman menoa
      91
      794

    10. Tuhdit oluet kauppoihin. Miksi vastustaa?

      8% oluet kauppoihin mutta mikä siinä on että osa politikoista vstustaa ? Kauppa kuitenkin hinnoittelee vahvan oluen ni
      Maailman menoa
      167
      671
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt