第３講 文字型変数を理解しよう
第４話 性格診断
前話解答例
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を活用すれば、単語を入力し、文字数などを指定して、
自動的に完成できるようにすることもできます。
皆さん、コードをいろいろいじって遊んでみましょう。

さて、次話は文字の加工を勉強します。


第３話へ　第５話へ

初心者のためのc++ vc++ c言語 入門 基礎から応用までへ
初心者のための excel 2007 2010 2013 vba 入門 基礎から応用まで
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
vb講義トップへ
ＶＢ講義基礎へ
専門用語なしのC++入門へ
専門用語なしのJava入門へ
専門用語なしのVBA入門

数独のページ
魔方陣のページ
数学研究室に戻る
本サイトトップへ