Onko Exceliin mahdollista saada laskuritoimintoa joka laskisi yhteen ennalta sovittuun soluun lisätyt peräkkäiset luvut ja näyttäisi lukujen summan/erotuksen toisessa solussa?
Esimerkiksi jos laittaisin ensiksi soluun A1 luvun 5 ja sen jälkeen luvun 3 ja sitten luvun 6 niin solussa A2 olisi tämän jälkeen lukema 14. Eli vanha luku ei "katoaisi" mihinkään vaan pysyisi jossain muistin sopukoissa.
Onkohan moinen mahdollista?
Laskuri
Josie86
6
1232
Vastaukset
- 20+11
kokeile.
ko taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
'laskee solun A1 arvoja soluun C1
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("C1") = Range("C1") Target
End If
End SubOpenOfficen Basiciin jonkunverran tutustuneena meni aikaa ja virtuaalitupakkaa, että tuon ymmärsi.
Eipä sillä, että sitä ainakaan minun tarvitsisi ymmärtääkään (kunhan se toimii), mutta tuo Target-olio vaikuttaa aika kätevältä.
Niin esimerkkinä tupakan kulumiesta on tuo:
If Not Intersect(Target, Range("A1")) Is Nothing
joka siis tarkoittanee, että jos alueet leikkaavat, mutta Not Intersect sanois ihan kuin ei leikkaa.tuttumies kirjoitti:
OpenOfficen Basiciin jonkunverran tutustuneena meni aikaa ja virtuaalitupakkaa, että tuon ymmärsi.
Eipä sillä, että sitä ainakaan minun tarvitsisi ymmärtääkään (kunhan se toimii), mutta tuo Target-olio vaikuttaa aika kätevältä.
Niin esimerkkinä tupakan kulumiesta on tuo:
If Not Intersect(Target, Range("A1")) Is Nothing
joka siis tarkoittanee, että jos alueet leikkaavat, mutta Not Intersect sanois ihan kuin ei leikkaa.If Not Intersect(Target, Range("A1")) Is Nothing
joka siis tarkoittanee, että jos alueet leikkaavat, mutta Not Intersect sanois ihan kuin ei leikkaa.
eli ei leikkaus(aktiivinen solu ja tarkasteltava solualue/solut) ei ole mitään
eli jos leikkaa- ei oo mitään =FALSE ja ei kääntää sen TRUE ja koodi suoritetaan...
jos ei leikkaa- ei oo mitään on =TRUE ja ei kääntää sen FALSE ja koodia ei suoriteta
leikkauksessa -argumenttejä voi olla muistaakseni 30 kpl ja jos nimettyjä alueita käyttää niin melkoisen alueen saa katettua
leikkasiko ;-)
kepp Excelling
@Kunde
- pohtijaja
Vaikka onkin jo vanha keskustelu, niin lisään oman kyssärin tähän.
Saako tolla samalla koodilla tehtyä sellasen, että siirtää kahteen soluun solussa C1 olleiden lukujan min ja maks arvot?
Vaikkapa seuraavanlaisessa tilanteessa:
solussa C1 olleita arvoja: 2; 5; 6; 2,5; 10; 3,8; 7
Solussa E1 olis arvo 2,5 ja F1 olis arvo 10.- ...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then
If Target < Range("E1") Then Range("E1") = Target
If Target > Range("F1") Then Range("F1") = Target
End If
End Sub
?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vasemmistohallitus palauttaa hintasääntelyn, esim. bensalitra vain 1e.
Tuleva vasemmistolaisista koostuva hallitus ottaa käyttöön vanhat hyvät keinot pitää hinnat kurissa. Tähän tarkoitukse964784Vasemmistolainen valehteli jälleen - Purra tai persut eivät luvanneet "euron bensaa"
Väite "euron bensasta" on ensisijaisesti poliittisten vastustajien käyttämä puhdas vale. Persut kyllä kampanjoivat näky1133922Arman Alizadin viesti puna-aktivisteille: "Pitäkää lärvinne nytkin kiinni"
Arman Alizad kritisoi vasemmiston kaksinaismoralismia. Iranissa syntynyt suosikkijuontaja Arman Alizad pakeni perheensä2083814Minja Koskela nostanut vasemmistoliiton kannatuksen ennätykseen
Koskela valittiin puolueen johtoon lokakuussa 2024, ja silloin Ylen kysely antoi puolueelle 9,3 prosentin kannatuksen.1122229Antti johtaa Petteriä jo 7,1 prosenttiyksiköllä
Tällä menolla sdp menee kokoomuksesta kierroksella ohi jo tällä vaalikaudella. https://yle.fi/a/74-20213575771964Mitä on tullut
Entisen abcn rakennuksen tilalle se oli tyhjillään monta vuotta siellä oli jo nyt valot onko huoltoasema? 5:30.801346- 1321268
Palosta selvinnyt 18 vuotias munira tarvitsi tulkin kun puhui Iltalehdelle
Suomessa asuva 18 vuotias tarvii tulkin !!! Tää Suomea puhumaton on palossa kuolleen naisen veli ja asui perheen kanssa.1641260En ymmärrä ateisteja!
Raamattu on aitoa historiaa, jotka ovat kirjoittaneet aikalaiset! Mitä änkyröitte turhaa???5211110- 531105