第２話 文字を入れる箱の活用
では、文字を入れる箱の活用例を見てみましょう。
例えば、実行を押すと次のように表示されるマクロを考えます。
皆さん、実行（CommandButton1）のプログラムの文章は、どうなりますか。
文字を入れる箱のことを知らなければ、
次のように書くしかありませんよね。
Private Sub CommandButton1_Click()
Cells(6, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(7, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(8, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(9, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(10, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(11, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
End Sub
Private Sub CommandButton2_Click()
Rows("6:11").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
文字を入れる箱を活用して、このプログラムを改善しましょう。
文字を入れる箱を用意するときの呪文は、
Dim a As String
でしたね。
箱を用意して、
その箱に『アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？』
を入れておいて活用するのです。
箱に入れるには、
a = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
とすればよいのです。
一度箱に入れたものは、
Cells(7,1)=a
とすれば、箱の中身を表示させることができます。
箱の中身を見ること（見せること＝表示させること）を参照といいます。
それでは皆さんプログラムを改善しましょう。
解答例は、30行下に記します。
解答例
Private Sub CommandButton1_Click()
Dim a As String
a = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(6, 1) = a
Cells(7, 1) = a
Cells(8, 1) = a
Cells(9, 1) = a
Cells(10, 1) = a
Cells(11, 1) = a
End Sub
Private Sub CommandButton2_Click()
Rows("6:11").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
どうですか。
Private Sub CommandButton1_Click()
Cells(6, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(7, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(8, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(9, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(10, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
Cells(11, 1) = "アベノミクスは本当にデフレを脱却させて景気がよくなり､私たちの生活がよくなるの？"
End Sub
Private Sub CommandButton2_Click()
Rows("6:11").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
と見比べてみると、かなりすっきりしますね。
箱を用意する意義の1つは、何度でも再利用できるです。
でも、これではまだまだありがたみがわかりませんね。
この他、文字の足し算ができる、文字の加工ができる、などのメリットがあります。
えっ、文字の足し算ですって？？？
えっ、文字の加工ですって？？？
当然の疑問ですね。次話以降でお答えしましょう。
専門用語を覚えよう！
箱の中身を見ること（見せること＝表示させること）を参照といいます。
皆さん、参照という言葉を２０回唱えて覚えましょう。
第１話へ 第３話へ
vc++講義へ
