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

1266

Äänestä

    Vastaukset 8

    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. Olen tumma ja tulinen

      Ja vielä suora - en ollut sinua varten. n to m
      Ikävä
      170
      1054

    2. Tunnustuksia

      Haluatko tunnustaa jotain, mitä on sydämelläsi?
      Ikävä
      63
      854

    3. Mitä kysyisit

      Mihin haluaisit vastauksen häneltä eli mitä kysyisit?
      Ikävä
      86
      800

    4. Mitä luulet

      Mitä luulet kaivattusi ajattelevan sonusta? Onko jotain mitä haluaisit oikaista hänelle?
      Ikävä
      72
      737

    5. Sä et vaan töllö tajua että rakastuin

      Mikä stana siinä on niin vaikea ymmärtää?! Täh
      Ikävä
      46
      673

    6. Vielä hyvinvointitalosta

      Suurin osa pyhäjärvisistä on sivistynyttä fiksua porukkaa ja on täysin hankkeen kannalla. Nyt vain pieni äänekäs joukko
      Pyhäjärvi
      78
      623

    7. Kerro jokin

      👻 tarina
      Ikävä
      62
      599

    8. Rakastan sua mies joka päivä vähän enemmän

      Ei uskois 😉
      Ikävä
      28
      575

    9. Suhde sinuun on ollut yhtä draamaa

      ilman draamaa ja suhdetta. 😅 Oikeasti ei naurata. Nainen, olet pitänyt minut pihdeissäsi. Tunne on välillä vahva ja su
      Ikävä
      35
      575

    10. Luule ja ajattele minusta

      mitä tykkäät nainen, olet ajat sitten antanut itsestäsi ihan omanlaisen kuvan.. 😅
      Ikävä
      46
      569
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt