Private Sub CommandButton1_Click()
Dim a As String, b As String, c As String, d As String
Dim x As String
Dim p As String, q As String
z = "一郎"
a = "明るい"
b = "前向き"
c = "粘り強い"
d = "優しい"
p = "は"
q = " "
x = "太郎"
x = x + p
x = x + a
x = x + q
x = x + d
Cells(5, 1) = x
y = "太郎"
y = y + p
y = y + b
y = y + q
y = y + c
Cells(6, 1) = y
z = "太郎"
z = z + p
z = z + b
z = z + q
z = z + d
Cells(7, 1) = z
End Sub
参考ダウンロード添付ファイル
プログラムが、大部長くなってしまいました。
ですが、短いほどいいプログラムというわけではありません。
今回のプログラムは、長くなりましたが、
プログラミングを飛躍させるための手法が入っています。
表示
は芸がありませんが、ちゃんとした文章にするためには、
If文などを学ぶ必要があります。
第３講で、For文を学んだ後に、第４講でif文を学びます。
第９話へ 第３講第１話へ
