Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21589 / 76732

←次へ　｜　前へ→


	【60536】Re:ボックス間の掛け算とその解の表示

neptune - 09/2/26(木) 11:59 -


	引用なし

	パスワード

▼ヒロさん：
こんにちは

>1.textbox1→1000入力
>2.combobox1→65%選択
>3.textbox2→650入力
>
>という入力・選択の流れのなかで
>現在は3.の段階で電卓で計算しています。
>簡単な計算ならばいいのですが
>1.が細かい数字の場合があります。
>
>できれば1.2.の入力・選択の結果が3.に反映されるもの、
>1.2.を変更したら3.が変更されるものにしたいのです。

こういうことですか？？
簡単なサンプル。
新規userformにtextbox　2個　,combobox 1個
を配置

Private Sub ComboBox1_Change()
　　Call Calc
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　Call Calc
End Sub

Private Sub Calc()
Dim strTxt As String
Dim stCmb As String
　　strTxt = TextBox1.Text
　　stCmb = ComboBox1.Text
　　If IsNumeric(strTxt) Then
　　　　If IsNumeric(stCmb) Then
　　　　　　'データ型は自分の環境に合わせて適当に変更の必要アリ
　　　　　　TextBox2.Text = CStr(CCur(strTxt) * CCur(stCmb))
　　　　End If
　　End If
End Sub

Private Sub UserForm_Initialize()
Dim i As Long
　　　　For i = 50 To 100 Step 5
　　　　　　Me.ComboBox1.AddItem i
　　　　Next i
End Sub

3 hits

▼

【60501】ボックス間の掛け算とその解の表示 ヒロ 09/2/24(火) 20:32