|
こんにちは。
また困ってます。よ炉しくお願いします。
マクロを使って、入力した値を計算をして、表示させる、
ということをさせたいのですが、うまくいきません。
フォームは、
座標を入力してください。
(____、___)(___、___)
電流密度___
OK
計算結果____
という具合です。
マクロに組み込もうとして、
次のようにつくってみたのですが、
3段目のPrivate Sub 〜の前にEnd Subをいれろ!
というエラーが出てしまいます。
なにがいけないのでしょうか。
教えてください。
Sub Macro3()
Load UserForm1
UserForm1.Show
Private Sub CommandButton1_Click()
Dim MC As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim D As Single
Dim E As Single
Dim F As Single
Dim G As Single
A = TextBox1.Text
B = TextBox2.Text
C = TextBox3.Text
D = TextBox4.Text
G = TextBox7.Txet '電流密度
E = C - A '時間
F = D - B '電位
TextBox5.Text = E
TextBox6.Text = F
MC = G * E / F
TextBox8.Text = MC
End Sub
End Sub
|
|