第４話 性格診断
前話解答例
Private Sub CommandButton1_Click()
Dim a1 As String, a2 As String, a3 As String, a4 As String
Dim b1 As String, b2 As String
Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String
a1 = "太郎"
a2 = "千里"
a3 = "次郎"
a4 = "美香"
b1 = "は"
b2 = "で"
x1 = "明るく"
x2 = "元気"
x3 = "誠実"
x4 = "前向き"
x5 = "忍耐強い"
Cells(6, 1) = a1 + b1 + x2 + b2 + x5
Cells(7, 1) = a2 + b1 + x3 + b2 + x4
Cells(8, 1) = a3 + b1 + x1 + x3
Cells(9, 1) = a4 + b1 + x2 + b2 + x4
End Sub
（Private Sub CommandButton2_Click()については基本的に同じですので、
大きな変更がない限り、これからは省略します。）
文字の足し算を利用すれば、性格診断テストも作れますね。
そして、高校の先生方を悩ませている推薦書も、
VBAを活用すれば、単語を入力し、文字数などを指定して、
自動的に完成できるようにすることもできます。
皆さん、コードをいろいろいじって遊んでみましょう。
さて、次話は文字の加工を勉強します。
第３話へ 第５話へ
vc++講義へ
