Programmeerimine
Selgita iga programmi rea taha, mida teeb programm ja ütle kokkuvõttes missugust ülesannet täidab
see programm.
Kopeeri see programm Wordi ja kirjuta käskude selgitused ning lõpuks lae fail siia.
Sub kesk_nupp()
Dim myrange As Range ’myrange on muutuja
Dim myTotal As Range ’ myTotal on muutuja
m = Selection.Rows.Count ’ Valitud ala. Ridade Arv
n = Selection.Columns.Count ’ Valitud ala veergude arv
r = Selection.Row ’ märgistatud rida
v = Selection.Column ’ märgistatud veerg
Range("c13") = m: Range("c14") = n: Range("c15") = r: Range("c16") = v ’ 4 käsku on ühte ritta
pandud : märgiga. M tuleb lahtrisse C13 jne.
If m > n Then ’ Kas ridu on rohkem kui veerge?
annaabi.ee 
