を実現するプログラム例
Private Sub CommandButton1_Click()
Dim a As String, b As String, c As String, d As String
Dim x As String, y As String, z As String
Dim p As String, q As String
v = "太郎"
w = "花子"
x = "次郎"
y = "京子"
z = "一郎"
a = "明るい"
b = "前向き"
c = "粘り強い"
d = "優しい"
p = "は"
q = " "
Cells(5, 1) = x + p + a + q + d
Cells(6, 1) = y + p + b + q + c
Cells(7, 1) = x + p + b + q + d
End Sub
参考ダウンロード添付ファイル
② 演算が出来る
は、文字の場合より数字の場合の方がもっと大きな破壊力を示します。
皆さん次の
ダウンロード添付ファイル
を開いて下さい。
Private Sub CommandButton1_Click()
End Sub
Private Sub CommandButton2_Click()
Range("B9").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
とCommandButton1_Click()のコードが空っぽになっています。
コードを埋めて、
合計が計算できるようにして下さい。
第５話へ 第７話へ
