Codi d’una macro

Copieu el codi que us ha aparegut a l’editor de Visual Basic
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 13/04/2010 por SGTI
'
' Acceso directo: CTRL+r
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "casa"
Range("A2").Select
End Sub


o Que volen dir Sub y End Sub? Sub significa que comença la definició d'una funció. End Sub és per indicar quan s'ha acabat de definir el seu codi.

o Que vol dir l’apòstrof que apareix davant algunes línies? Indica que el
que està escrit a continuació no és informació per l’ordinador sinó per
la persona o programador que l’està fent servir.

o Quina funció fa la instrucció Range("A1").Select? Selecciona a la cel·la A1.

o Que passaria si poses Range("B1").Select? Que se seleccionaria la cel·la B1.

o Quina funció fa la instrucció ActiveCell.FormulaR1C1 = "casa"? Escriu la paraula entre cometes, en aquest cas casa, en la cel·la que està seleccionada.

o Canvieu el codi per un que escrigui a les cel·les
§ A1: Hola
§ A2: Què tal?
§ A3: Adéu!

o Comproveu que fa la funció desitjada i copieu el codi que us ha sortit a l’article.

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 13/04/2010 por SGTI
'
' Acceso directo: CTRL+r
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "Hola"
Range("A2").Select
ActiveCell.FormulaR1C1 = "Què tal?"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Adéu"
End Sub

Hem modificat la macro per tal que escrigui paraules en els rangs ("B1:C2") i ("A2:A4") i que aquestes paraules tinguin un format diferent (estiguin en negreta, tinguin el fons negre i siguin de color blanc). El codi és el següent:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 25/05/2010 por SGTI
'
' Acceso directo: CTRL+r
'
Range("B1:F1").Select
Selection.Font.Bold = True
Range("A2:A4").Select
Selection.Font.Bold = True
Range("B1:F1").Select
Selection.Font.ColorIndex = 2
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Range("A2:A4").Select
Selection.Font.ColorIndex = 2
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Range("B1:C1").Select
Selection.Font.Bold = True
Range("A2:A4").Select
Selection.Font.Bold = True
Range("B1").Select
ActiveCell.FormulaR1C1 = "Aprovats"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Suspesos"
Range("A2").Select
ActiveCell.FormulaR1C1 = "Mates"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Caste"
Range("A4").Select
ActiveCell.FormulaR1C1 = "Socis"
End Sub