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
1234
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
Virkamiehille tarvitaan tuntuvat palkankorotukset
Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi383662Riikka Purran kaudella nousi bensan hinta yli 2 euron
Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal273219- 652855
Olisipa saanut sinuun
Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak832690- 351748
Mitäs nyt sijoittajat?
Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no801680- 281507
- 151485
Olisitpa se hellä
Ja herkkä minkä kuvan sain sinusta irl. Haluaisin että elämässäni olisi sellainen joka arvostaa minua juuri sellaisena k231474- 281468