|
▼kamo さん:
TextBoxのValueは あくまで文字列です。なので それを使っての数値計算
はいろいろと厄介です。
で、ひとつの考え方ですけど、各TextBoxを シートのセルとリンクさせて
おけば、MAX関数 MIN関数 AVERAGE関数 を使って目的の数値をTextBox4に
表示させることができます。
(以下のサンプルでは Sheet1 のHH列をリンク先として使っています)
Private Sub UserForm_Initialize()
TextBox1.ControlSource = "Sheet1!HH1"
TextBox2.ControlSource = "Sheet1!HH2"
TextBox3.ControlSource = "Sheet1!HH3"
Sheet1.[HH4].Formula = "=Average(MAX(HH1,HH2,HH3),MIN(HH1,HH2,HH3))"
End Sub
Private Sub CommandButton1_Click()
TextBox4.Text = Sheet1.[HH4].Value
End Sub
|
|