第８話 練習問題解答
演習問題１
実行ボタンを押すと、
Private Sub CommandButton1_Click()
Range("A6") = "プログラミングの学習は難しい"
Range("A7") = "だけど、基礎から手順を踏んで学習していくと理解できて、"
Range("A8") = "楽しい。"
End Sub
Private Sub CommandButton2_Click()
Range("A6").Select
Selection.ClearContents
Range("A7").Select
Selection.ClearContents
Range("A8").Select
Selection.ClearContents
Range("A1").Select
End Sub
演習問題２
Private Sub CommandButton1_Click()
Range("A6") = 7
Range("B6") = 18
Range("C6") = 25
End Sub
Private Sub CommandButton2_Click()
Range("A6").Select
Selection.ClearContents
Range("B6").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Range("A1").Select
End Sub
演習問題３
Private Sub CommandButton1_Click()
Cells(6, 1) = "プログラミングの学習は難しい"
Cells(7, 1) = "だけど、基礎から手順踏んで学習していくと理解できて、"
Cells(8, 1) = "楽しい。"
End Sub
Private Sub CommandButton2_Click()
Cells(6, 1).Select
Selection.ClearContents
Cells(7, 1).Select
Selection.ClearContents
Cells(8, 1).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
演習問題４
Private Sub CommandButton1_Click()
Cells(6, 1) = 7
Cells(6, 2) = 18
Cells(6, 3) = 25
End Sub
Private Sub CommandButton2_Click()
Cells(6, 1).Select
Selection.ClearContents
Cells(6, 2).Select
Selection.ClearContents
Cells(6, 3).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
演習問題５
Private Sub CommandButton1_Click()
Cells(6, 1) = 12
Cells(6, 2) = 4
Cells(7, 1) = 9
Cells(7, 2) = 17
Cells(8, 1) = 23
Cells(8, 2) = 6
End Sub
Private Sub CommandButton2_Click()
Cells(6, 1).Select
Selection.ClearContents
Cells(6, 2).Select
Selection.ClearContents
Cells(7, 1).Select
Selection.ClearContents
Cells(7, 2).Select
Selection.ClearContents
Cells(8, 1).Select
Selection.ClearContents
Cells(8, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
ところで、
Private Sub CommandButton2_Click()
Cells(6, 1).Select
Selection.ClearContents
Cells(6, 2).Select
Selection.ClearContents
Cells(7, 1).Select
Selection.ClearContents
Cells(7, 2).Select
Selection.ClearContents
Cells(8, 1).Select
Selection.ClearContents
Cells(8, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
などは芸がありませんね。
実は、セルはまとめて選択することもできます。
その方法については、次話で学びます。
第７話へ 第９話へ
