Kahden solun yhteenlasku...

hurtoze

Moro. Miten saan kaksi solua laskettua yhteen siten, että toisen solun luku päivittyy... siis... esim solut a1 ja b1. B1:ssä on luku 5 ja kun laitan a1:een luvun 5 b1 lisäisi tuon 5:n itseensä, jolloin b1:een tulisi 10. Tämä voisi (pitäisikin?) toimia jollakin napilla koska muutenhan tuosta tulee luuppi joka kestää äärettömaan kun A1 lisäisi kokoajan 5 B1:een. Voi perse.... onnistuuko mitenkään?

9

955

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • paavali50

      Tee painike ja liitä siihen makro.

      Sub Makro1()
      [B1] = [B1] [A1]
      End Sub

      • hurtoze

        miten tuon saisi sillä tavalla ettei se olisi rivinumeroon sidonnainen tuo makro.

        Pitäisi saada aikaan systeemi että painikkeesta tulee aina uusi rivi joka sisältää tuon makron, jolloin edellinen rivi siirtyy rivin alaspäin ja tuo makro ei enää toimi...


      • hurtoze kirjoitti:

        miten tuon saisi sillä tavalla ettei se olisi rivinumeroon sidonnainen tuo makro.

        Pitäisi saada aikaan systeemi että painikkeesta tulee aina uusi rivi joka sisältää tuon makron, jolloin edellinen rivi siirtyy rivin alaspäin ja tuo makro ei enää toimi...

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syott?m?si arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End Sub


      • hurtoze
        kunde kirjoitti:

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syott?m?si arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        Exit Sub
        End If
        End If
        End Sub

        Tämä moduulijuttu on aika uutta meikäläiselle, joten jos hieman lisää apua.

        >visual basic >insert >module/class module (kumpi) >sitten tuo koodin pätkä, entäs sitten miten tuo siirretään tai tallennetaan taulukkoon ja miten/mistä sen saa toimimaan taulukossa.


      • hurtoze kirjoitti:

        Tämä moduulijuttu on aika uutta meikäläiselle, joten jos hieman lisää apua.

        >visual basic >insert >module/class module (kumpi) >sitten tuo koodin pätkä, entäs sitten miten tuo siirretään tai tallennetaan taulukkoon ja miten/mistä sen saa toimimaan taulukossa.

        Taul1 tai mihinka olemassa olevaan taulukossa haluat koodin toimivan liita se ko taulukon moduuliin Projektin hallinta/Excelin objektit.Taulukon moduulit(niissa on taulukon kuva) on ThisWorkbook(vihrea x valkealla paperilla) moduulin ylapuolella.Ala lisaa uutta moduulia.
        nyt lisaa myos rivin, olikin tullut tuplana toi koodi...

        Sub Worksheet_Change(ByVal Target As Range)
        On Error GoTo virhe:
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Target.Offset(1, 0).EntireRow.Insert
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        GoTo virhe
        End If
        End If
        virhe:
        Application.EnableEvents = True
        End Sub


      • hurtoze
        kunde kirjoitti:

        Taul1 tai mihinka olemassa olevaan taulukossa haluat koodin toimivan liita se ko taulukon moduuliin Projektin hallinta/Excelin objektit.Taulukon moduulit(niissa on taulukon kuva) on ThisWorkbook(vihrea x valkealla paperilla) moduulin ylapuolella.Ala lisaa uutta moduulia.
        nyt lisaa myos rivin, olikin tullut tuplana toi koodi...

        Sub Worksheet_Change(ByVal Target As Range)
        On Error GoTo virhe:
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target) Then
        Target.Offset(0, 1) = Target.Offset(0, 1) Target
        Target.Offset(1, 0).EntireRow.Insert
        Else
        MsgBox "syottamasi arvo ei ollut luku! "
        Target.Select
        GoTo virhe
        End If
        End If
        virhe:
        Application.EnableEvents = True
        End Sub

        mutta tyhmä kun olen en kyllä vieläkään ymmärrä miten saan tuon taulukossani toimimaan. miten palaan takaisin exceliin, pitääkö tuo moduuli tallentaa jotenkin ja miten sen nyt saan taulukossani laskemaan kuten ensimmäisessä viestissäni toivoin....


      • hurtoze kirjoitti:

        mutta tyhmä kun olen en kyllä vieläkään ymmärrä miten saan tuon taulukossani toimimaan. miten palaan takaisin exceliin, pitääkö tuo moduuli tallentaa jotenkin ja miten sen nyt saan taulukossani laskemaan kuten ensimmäisessä viestissäni toivoin....

        liitä makro ohjeiden mukaan ja tallenna työkirja, Makro toimii siinä taulukossa mihin koodin liitit automaattisesti. Eli kun syötät luvun A sarakkeeseen lisää sen vastaavaan B sarakkeen lukuun. Ei toimi muissa sarakkeissza vain ja ainosataan kun A sarakkeen solun arvo muuttuu


      • hurtoze
        kunde kirjoitti:

        liitä makro ohjeiden mukaan ja tallenna työkirja, Makro toimii siinä taulukossa mihin koodin liitit automaattisesti. Eli kun syötät luvun A sarakkeeseen lisää sen vastaavaan B sarakkeen lukuun. Ei toimi muissa sarakkeissza vain ja ainosataan kun A sarakkeen solun arvo muuttuu

        Kiitos vaan, upposihan se oppi kovempaankin kalloon kun väkisin runnoi...


    • taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error Resume Next
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      If IsNumeric(Target) Then
      Range("B1") = Range("B1") Range("A1")
      Else
      MsgBox "syottämäsi arvo ei ollut luku! "
      Range("A1").Select
      Exit Sub
      End If
      End If
      End Sub

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

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      146
      2785
    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      363
      2012
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1747
    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      35
      1658
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      28
      1370
    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1213
    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173
    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      945
    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      938
    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe