Excel VBA質問箱 IV

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

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


8595 / 76732 ←次へ | 前へ→

【73707】Re:ユーザーフォームで最小値と最大値を取得して計算
発言  kanabun  - 13/2/5(火) 23:11 -

引用なし
パスワード
   ▼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

347 hits

【73706】ユーザーフォームで最小値と最大値を取得して計算 kamo 13/2/5(火) 22:42 質問
【73707】Re:ユーザーフォームで最小値と最大値を取... kanabun 13/2/5(火) 23:11 発言
【73709】Re:ユーザーフォームで最小値と最大値を取... ウッシ 13/2/5(火) 23:20 回答
【73731】Re:ユーザーフォームで最小値と最大値を取... kamo 13/2/7(木) 0:18 お礼
【73730】Re:ユーザーフォームで最小値と最大値を取... kamo 13/2/6(水) 23:55 お礼
【73708】Re:ユーザーフォームで最小値と最大値を取... ichinose 13/2/5(火) 23:18 発言
【73732】Re:ユーザーフォームで最小値と最大値を取... kamo 13/2/7(木) 0:29 お礼
【73733】Re:ユーザーフォームで最小値と最大値を取... ichinose 13/2/7(木) 6:07 発言
【73743】Re:ユーザーフォームで最小値と最大値を取... kamo 13/2/8(金) 0:22 お礼

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