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
1194
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
Mieleni harhailee sinussa
Uskon että tykkäät minusta. On vain yksi elämä. Silti jään paikoilleni ja odotan että jokin muuttuu. Menin palasiksi, ei184131Jännitän sinua J mies
Ei tästä tulee mitään. Tuskin kaikki olis mennyt näin moneen solmuun, jos olis tarkoitettu meidät yhteen.1261474- 961323
Orpo suunnittelee palestiinalaislasten Suomeen siirtoa
"Sairaalahoitoa tarvitsevien lasten ottaminen Suomeen on lisäksi selvityksessä, Orpo sanoo. – Jos meillä on mahdolli3131251Kuinka kauan kesti että ihastuit
Kaivattuusi? Jos lasketaan siitä hetkestä alkaen kun näit hänet ensi kerran. Oliko jokin tilanne tai tapahtuma, joka voi621202Olen käyttäytynyt sinua kohtaan väärin toistuvasti
Puolustuksekseni täytyy sanoa, että ei ole ollut tahallista vaan seurausta harhaisista luuloista ja ajatuksista. Esimerk721130- 451124
Tunneälyä testaamaan!
Testi pitää sisällään viisi osa-aluetta. Itse sain täydet tuosta ensimmäisestä eli 25/25. Kokonaispistemäärä oli 100/1253961- 86895
Saanko mies tulla sun kainaloon nukkumaan?
En saa unta kun mietin sua❤️ Saako tulla sun viereen ja käpertyä sun kainaloon?48838