| 
    
     |  | 基本的なコードの書き方が、間違っています。 
 シートから標準モジュールのマクロを実行する場合。
 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
 
 
 |  |