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

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

演習問題2

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

演習問題3

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


演習問題4

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


演習問題5

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

第8話へ 第10話へ

トップ

vc++講義へ

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