Hogyan kell 2007-es excel makróba 10x10-es szorzótáblát írni?

Mi a pontos feladat?

Pl. készítsünk makrót ami feltölti az A1:J10 tartományt a 10*10-es szorzótáblával?

Sub Szorzo()

'

' Szorzo Makró

'

'

Range("A1").Select

ActiveCell.FormulaR1C1 = "1"

Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries

Range("A1:A10").Select

Range("A1").Select

Selection.AutoFill Destination:=Range("A1:J1"), Type:=xlFillSeries

Range("A1:J1").Select

Range("B2").Select

ActiveCell.FormulaR1C1 = "=R1C*RC1"

Range("B2").Select

Selection.AutoFill Destination:=Range("B2:J2"), Type:=xlFillCopy

Range("B2:J2").Select

Selection.AutoFill Destination:=Range("B2:J10"), Type:=xlFillCopy

Range("B2:J10").Select

End Sub

Innen: [link]

Az előző a szép megoldás, ez meg legyen az általános iskolás:

Sub szorzotabla()

Dim i, j As Integer

For i = 1 To 10

For j = 1 To 10

Cells(i, j).Value = i * j

Next j

Next i

End Sub

Makróablakot ALT+F8-cal hozhatod elő (vagy Nézet fül jobb szélén a Makró gomb) ott beírsz valami Makrónevet > Létrehozás > bemásolod a fenti kódok közül a szimpatikusabbat (az első és utolsó sor nem kell: SUB és END SUB) és a Makróablakból indíthatod is (vagy a Visual Basic ablakból).