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
1398
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
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä3211566Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa614151Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1503463Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie2372743Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin1342446Sanna Marin vetänyt leukoja 11 kertaa
Tästähän oli joskus polemiikkia, kun muistaakseni lupasi kymmenen tai jotain vedellä. No nyt niin on, ainakin omien san72306Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh2061919Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.3571312- 741163
Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta20987