|
▼INA さん:
いつもすばやい回答
ありがとうございます。
>>希望としては、エクセル上に入力ボックスを
>>出現させ、
>1.ユーザーフォームを表示させます。
>フォームの表示をシート上のコマンドボタンを押して実行させる場合は、
>「コントロールツールボックス」−「コマンドボタン」をシート上に配置。
>そのボタンをダブルクリック→VBEが起動。
すみません。コントロールツールボックスというのが
分からなくて・・・。
ちなみに、マクロを使って入力ボックスまでは表示できるんです。
以下のコマンドで。
Sub Macro3()
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
TextBox5.Text = TextBox3.Text - TextBox1.Text '時間
TextBox6.Text = TextBox4.Text - TextBox2.Text '電位
'電流密度 * 時間 / 電位
TextBox8.Text = TextBox7.Text * TextBox5.Text / TextBox6.Text
End Sub
でも、数値を入力してOKボタンを押しても、
計算どころか、反応がないのです。
こんなに簡単なプログラムなのに・・・。
>コードウィンドウに
>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
>
>
>これで、シート上のボタンを押すとフォームが表示され、
>フォーム上のボタンを押すと、計算され結果が出力されます。
|
|