Laskuri

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.

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.

Lue lisää

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

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

?