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

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



第3話へ 第5話へ

トップ

vc++講義へ

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