|
>希望としては、エクセル上に入力ボックスを
>出現させ、
1.ユーザーフォームを表示させます。
フォームの表示をシート上のコマンドボタンを押して実行させる場合は、
「コントロールツールボックス」−「コマンドボタン」をシート上に配置。
そのボタンをダブルクリック→VBEが起動。
コードウィンドウに
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
とする。
>そこに数値を入力し、
>計算結果をエクセル上のテキストボックスに記入する、
>ということをしたいのです。
2.ユーザーフォーム上にテキストボックスとコマンドボタンを配置。
3.計算および結果の出力は、コマンドボタンで実行する場合、
ユーザーフォーム上のコマンドボタンをダブルクリックして
コードウィンドウに
Private Sub CommandButton1_Click()
TextBox5.Text = TextBox3.Text - TextBox1.Text '時間
TextBox6.Text = TextBox4.Text - TextBox2.Text '電位
'電流密度 * 時間 / 電位
'ユーザーフォーム上のTextBox8に計算結果を出力
TextBox8.Text = TextBox7.Text * TextBox5.Text / TextBox6.Text
'シート上にTextBox1を配置して、結果を出力。
'↓このように、どこにあるTextboxかを指示する必要があります。
Worksheets("Sheet1").TextBox1.Text = _
TextBox7.Text * TextBox5.Text / TextBox6.Text
End Sub
これで、シート上のボタンを押すとフォームが表示され、
フォーム上のボタンを押すと、計算され結果が出力されます。
|
|