Puuhastelen mielelläni Excelin parissa, vaikka matemaattinen lahjattmuuteni hankaloittaa sitä pahasti. Onko olemassa hyviä linkkejä, joista löytyisi ymmärrettäviä ja tavikselle selviä matemattisia kaavoja ja yhtälöitä ihan peruskäyttöön? Nyt ongelmana sellainen, että haluan syöttää syöttösolusta A lukua soluun B, jossa summa olisi kumulatiivinen niin, että kun A:n tyhjää, sinne siirretty luku jäisi summaan voimaan, mutta kun tyhjään A:n katoaa luku B:stä eikä summa kumuloidu. Miten se on estettävissä? Ja kiitos, jos niitä linkkejä tiedossa!
Kaavaa haussa
ihanpönttö
20
1367
Vastaukset
Taulukon moduuliin ja muuta solut sopiviksi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
Range("B1") = Range("B1") Range("A1")
End If
End Sub- ihanpönttö
Kiitos kaavasta.....Kutes mun nikki sanoo, en oikee hallitte näitä juttuja. En oo ikuna vääntäny makroo. Se vähä mitä yritin aiheutti virheilmoituksen "Expected end sub"?? Jos suinkin viittisit sillee ihan rautalangasta vielä vääntää selkokielelle ton tekniikan... Kiitos!
- yksinkertaisesti
ihanpönttö kirjoitti:
Kiitos kaavasta.....Kutes mun nikki sanoo, en oikee hallitte näitä juttuja. En oo ikuna vääntäny makroo. Se vähä mitä yritin aiheutti virheilmoituksen "Expected end sub"?? Jos suinkin viittisit sillee ihan rautalangasta vielä vääntää selkokielelle ton tekniikan... Kiitos!
syötä haluamasi luku vaikkapa soluun A1 näin: =123.
Kun haluat lisätä summaa, valitse solu A1, mene kaavariville ja kirjoita =123:n perään haluamasi luku vaikkapa 150. Aina kun valitset solun A1 näet kaavarivillä lisätyt luvut ja itse solussa kumulatiivisen arvon..... No joo..... - vastaakos
yksinkertaisesti kirjoitti:
syötä haluamasi luku vaikkapa soluun A1 näin: =123.
Kun haluat lisätä summaa, valitse solu A1, mene kaavariville ja kirjoita =123:n perään haluamasi luku vaikkapa 150. Aina kun valitset solun A1 näet kaavarivillä lisätyt luvut ja itse solussa kumulatiivisen arvon..... No joo.....tämä viesti sinun mielestäsi tuohon kysymykseen...
- ihanpönttö
vastaakos kirjoitti:
tämä viesti sinun mielestäsi tuohon kysymykseen...
Ihan varmaan toimaava vaihtoehto:) Tattis vaan ajatuksesta! Tietysti aina "fiinimpää" hienoilla kaavoilla, mutta hyvä näin.
- kiinnostaisi myös
tietää miten tuo sinne vba:han kirjoitetaan ja miten saadaan toimivaksi. Kokeilin monta kertaa, kerran sain toimimaan itse toiminnon yhden kerran vaan en toista :=) No, ei se mitään, harmi kun excelin ohjeissa ei ole vba:n suomenkielistä ohjetta millä pääsisi edes jyvälle.
- ihanpönttö
kiinnostaisi myös kirjoitti:
tietää miten tuo sinne vba:han kirjoitetaan ja miten saadaan toimivaksi. Kokeilin monta kertaa, kerran sain toimimaan itse toiminnon yhden kerran vaan en toista :=) No, ei se mitään, harmi kun excelin ohjeissa ei ole vba:n suomenkielistä ohjetta millä pääsisi edes jyvälle.
Kiinnostais kyllä kans tietää systeemi ja nähdä loppuun asti, mutta liekö Kundella kärsivällisyyttä kertoo näin matalalle tasolle?? Näyttäis ainaki homma olevan hallussa.
- ...
ihanpönttö kirjoitti:
Kiinnostais kyllä kans tietää systeemi ja nähdä loppuun asti, mutta liekö Kundella kärsivällisyyttä kertoo näin matalalle tasolle?? Näyttäis ainaki homma olevan hallussa.
Kenkunkielinen ohje
http://www.ozgrid.com/VBA/run-macros-change.htm - joku
ihanpönttö kirjoitti:
Kiinnostais kyllä kans tietää systeemi ja nähdä loppuun asti, mutta liekö Kundella kärsivällisyyttä kertoo näin matalalle tasolle?? Näyttäis ainaki homma olevan hallussa.
Eikös se onnistu kun kopioit tuon Kunden makron Private sanasta lähtien leikepöydälle ja menet excelliin ja valitset hiiren oikealla korvalla sen välilehden johon makron haluat ja siitä näytä koodi sen jälkeen aukeaa vba johon vain kopioit äskeisen koodin, sen jälkeen voit sammuttaa vba ja kokeilla solua A1.
- tuotakin kokeilin
joku kirjoitti:
Eikös se onnistu kun kopioit tuon Kunden makron Private sanasta lähtien leikepöydälle ja menet excelliin ja valitset hiiren oikealla korvalla sen välilehden johon makron haluat ja siitä näytä koodi sen jälkeen aukeaa vba johon vain kopioit äskeisen koodin, sen jälkeen voit sammuttaa vba ja kokeilla solua A1.
vaan ei toimi.... terv. ulkopuolinen.
- se toimii
tuotakin kokeilin kirjoitti:
vaan ei toimi.... terv. ulkopuolinen.
hyvin pelaa,kun tekee just noin,toinen ulkopuolinen...
- teen just noin
se toimii kirjoitti:
hyvin pelaa,kun tekee just noin,toinen ulkopuolinen...
niin ei toimi - tai jos vba:ssa testaa f5:llä niin heittää nollaksi vaan sen jälkeen ei toimi! Vika on minussa, tiedän.....
- ihanpönttö
teen just noin kirjoitti:
niin ei toimi - tai jos vba:ssa testaa f5:llä niin heittää nollaksi vaan sen jälkeen ei toimi! Vika on minussa, tiedän.....
.. ny toisella toimaa ja toisella ei?? Ite vasta odotan töistä pääsyä, että pääsisin koklaamaan tota uutta ohjetta. Paan korteni tähän kekoon jahka testi läpäisty.
- ihanpönttö
joku kirjoitti:
Eikös se onnistu kun kopioit tuon Kunden makron Private sanasta lähtien leikepöydälle ja menet excelliin ja valitset hiiren oikealla korvalla sen välilehden johon makron haluat ja siitä näytä koodi sen jälkeen aukeaa vba johon vain kopioit äskeisen koodin, sen jälkeen voit sammuttaa vba ja kokeilla solua A1.
Löysin tovin kokeiluun, nopea homma ja - kaava toimi!! MUTTA se ei LISÄNNYT lukua, vaan kertoi sen kahdella. Jos pani A1:een 3, tuli B1:een 6, jos pani 2, tuli 4 jne. Eli tos kaavas pitäis ny muuttaa jotain, koska idea on se, että kun panen A1:een esim. 4, tulee B1:een 4. Kun seuraavan kerran panen A1:een vaikkapa 12, pitää B1:een tulla silloin 16 jne.Eli summaa pitää lykätä B1:een niin että A1:n voi nollata ilman, että B1 luku muuttuu. Nyt se toimaa, mutta ker´tomalla, ei summaamalla Eli pientä fiilausta......mutta miten....?
- ihanpönttö
ihanpönttö kirjoitti:
Löysin tovin kokeiluun, nopea homma ja - kaava toimi!! MUTTA se ei LISÄNNYT lukua, vaan kertoi sen kahdella. Jos pani A1:een 3, tuli B1:een 6, jos pani 2, tuli 4 jne. Eli tos kaavas pitäis ny muuttaa jotain, koska idea on se, että kun panen A1:een esim. 4, tulee B1:een 4. Kun seuraavan kerran panen A1:een vaikkapa 12, pitää B1:een tulla silloin 16 jne.Eli summaa pitää lykätä B1:een niin että A1:n voi nollata ilman, että B1 luku muuttuu. Nyt se toimaa, mutta ker´tomalla, ei summaamalla Eli pientä fiilausta......mutta miten....?
Vain ensimmäisen A1:een pantavan luvun kohdalla tapahtuu 2:lla kertominen, sen jälkeen lisättävät luvut summautuvat ihan oikein ja normaalisti. Miksi ensimmäinen syötettävä luku A1:ssä kertoutuu kahdella B1:ssä???
ihanpönttö kirjoitti:
Vain ensimmäisen A1:een pantavan luvun kohdalla tapahtuu 2:lla kertominen, sen jälkeen lisättävät luvut summautuvat ihan oikein ja normaalisti. Miksi ensimmäinen syötettävä luku A1:ssä kertoutuu kahdella B1:ssä???
ei kyllä pitäisi noin tapahtua, mutta kokeiles tällä
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target = Range("A1") Then
Range("B1") = Range("B1") Range("A1")
End If
Application.EnableEvents = True
End Sub
jos haluat suoraan samaan soluun kumulatiivisen laskurin niin tolla tällä se onnistuuu
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static Summa As Double
On Error Resume Next
Application.EnableEvents = False
If Target.Address = "$B$1" Then 'solu B1
Summa = Summa Target.Value
Target.Value = Summa
End If
Application.EnableEvents = True
End Sub- ihanpönttö
kunde kirjoitti:
ei kyllä pitäisi noin tapahtua, mutta kokeiles tällä
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target = Range("A1") Then
Range("B1") = Range("B1") Range("A1")
End If
Application.EnableEvents = True
End Sub
jos haluat suoraan samaan soluun kumulatiivisen laskurin niin tolla tällä se onnistuuu
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static Summa As Double
On Error Resume Next
Application.EnableEvents = False
If Target.Address = "$B$1" Then 'solu B1
Summa = Summa Target.Value
Target.Value = Summa
End If
Application.EnableEvents = True
End SubNyt toimaa!! Se Kunden ensimmäinen kahdesta uudesta kaavasta tykitti heti. Kiitos:))!
- Parka
Toimii varmaan parhaiten jollain "jos" funktiolla. Muistais vaan sen paremmin, kun käytöstä on parisen vuotta...
- ihanpönttö
Voiko Kunde tai joku neuvoa miten menetellään, jos haluaa samaan tehtävään useamman vastaavan syöttösölu-summasolu yhdistelmän? Vaikka G8:sta H9:iin jne jne. Voiko jotenkin samalla menetelmällä tehdä useamman samanlaisen syöttörakennelman? Kiitos!
- ...
Samalla tavalla edellisen if-lauseen perään.
If Target = Range("G8") Then
Range("H9") = Range("H9") Range("G8")
End If
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww685623- 613764
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1532755Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1052196Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1092045Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-211329Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381297En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois961278Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1951232- 1731146