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
1224
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
Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille
Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest154804Yritystuet pois ja työeläkevaroilla maksettava valtion velka pois
Nyt on teille kerrottu keino kuinka Suomen velkaongelmasta päästää eroon kertalaakista. Älkää saatanat enää minulle tul854251Suomen kansa puhunut: Purra huonoimpia ministereitä
Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden2653586Ylen juttu sisäministeristä oli selvän tarkoitushakuinen
haluttiin vielä vuoden loppuun saada joku "kohu". (Olisiko Yle tehnyt jutun jos sisäministerinä olisi esim. RKP:n, jota1063074Suomalaista yrittäjää ei kommunistista erota
Muualla maailmassa yrittäjät elävät asiakkaiden rahoilla, Suomessa palkansaajien maksamilla veroilla. Palkansaajahan ma412633- 241961
Ulkoministeriön konsulipäällikkö arvostelee rajusti Haavistoa: "Täällä on pelon ilmapiiri"
"– Täällä on ministerin toimien takia aivan selvästi pelon ilmapiiri. Jos sellaisen annetaan pesiytyä virkamieskulttuuri71795Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?
Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed991723- 2301695
Pyydän anteeksi etten osannut ratkaista
Mitään muuta kuin lähtemällä. Et oikein tullut vastaan etkä kuunnellut. Tuntui että minun piti koittaa sopia ja sovitell711631