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!
Vastaukset 20
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
Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S60889- 34837
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää125786- 102780
Lehtikankaan oppilas kuolema
Mistä lie tyttöparka löytyny, mikä ajaa tekemään itsemurhan tuon ikäsenä 😞15710- 34672
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.72576- 42559
- 40557
Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle63529Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.28515Nyt kaatuu Kuisla
Reima Kuisla hakee saneeraukseen – Joitakin velkoja on jo ulosotossa https://www.ilkkapohjalainen.fi/reima-kuisla-hakee26477- 88448
- 59443
Miesten (epä)viehättävyydestä kysymys
Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev107438- 45436
Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas
Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei1427- 36427
- 39413
- 35407