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

1 hits

【60501】ボックス間の掛け算とその解の表示 ヒロ 09/2/24(火) 20:32 質問
【60502】Re:ボックス間の掛け算とその解の表示 neptune 09/2/24(火) 22:18 発言
【60535】Re:ボックス間の掛け算とその解の表示 ヒロ 09/2/26(木) 11:35 質問
【60536】Re:ボックス間の掛け算とその解の表示 neptune 09/2/26(木) 11:59 回答
【60552】Re:ボックス間の掛け算とその解の表示 ヒロ 09/2/27(金) 18:49 お礼

21589 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free