Excel funktio

Tutki solun muutosta Worksheet_Change-tapahtumassa, jossa sitten vaikka Date-funktion avulla alat selvittelemään ajankohtaa jne.

jos Sheet1 välilehtenä niin VBA:ssa Sheet1 kohtaan (ei module1 kohtaan):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Alue As Range
Static Keskeytä As Boolean

Set Alue = Range("A1")
If Intersect(Alue, Target) Is Nothing Then
Exit Sub
End If

If Keskeytä = True Then
Keskeytä = False
Exit Sub
End If

Keskeytä = True

If Month(Date) > 3 And Month(Date) < 10 Then
Range("A1").Value = Range("A1").Value 10
Else
Range("A1").Value = Range("A1").Value 20
End If

End Sub

Voi käyttää å, ä ja ö.