|
▼ヒロ さん:
こんにちは
>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
|
|