VBA練習

Sub Sayhello()  
   MsgBox "こんにちは"
End Sub

Sub Lower()
     Range("F3").value = Range("F3").value - 1
End Sub
Sub Higher()
     Range("F3").value = Range("F3").value + 1
End Sub

Sub MoveUp()
     Selection.Offset(-1, 0).Select
End Sub
Sub MoveDown()
     Selection.Offset(1, 0).Select
End Sub
Sub MoveRight()
     Selection.Offset(0, 1).Select
End Sub
Sub MoveLeft()
     Selection.Offset(0, -1).Select
End Sub

Sub ListwithLoop()
Dim counter As Integer
For counter = 0 To 10
     Selection.Value = counter
     Selection.Offset(1, 0).Select
Next counter
End Sub