|
基本的なコードの書き方が、間違っています。
シートから標準モジュールのマクロを実行する場合。
Sub Macro1()
UserForm1.Show
End Sub
シート上にコマンドボタンを配置して実行する場合は、
シートモジュールに
Private Sub CommandButton1_Click()
Userform1.Show
End Sub
−−−−−−−−−−−−−−−−−−−−−−
あとはユーザーフォームのモジュールに、
ボタンを押したときのコードを記述して下さい。
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
|
|