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
1390
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
Putin lähti takki auki sotaan....
Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,1063576Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista
ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv2312350Ulkoistin makuaistini Yleisradiolle
Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,02130Sanna on pakottaja, domina
Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k381879Skodan hankintaan painostaminen toi potkut
Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll91679- 951128
No onneks ei tartte sit olla
Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....5930- 51892
Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä
Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu72871Sinkkuihmisten suppea kuva maailmasta.
Siskoni on jo vannoutunut sinkku. Hän ei haaveile mitään suhdejuttuja. Mutta välillä mietin, miten vähän ja suppeasti130832