第１講 VBAを体験しよう！
第９話 練習問題解答
演習問題１
実行ボタンを押すと、

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
などは芸がありませんね。
実は、セルはまとめて選択することもできます。
その方法については、次話で学びます。

第８話へ　第10話へ



vc++講義へ

初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義へ
ＶＢ講義基礎へ
初心者のためのJava 入門 基礎から応用まで
数学研究室に戻る