Excel VBA質問箱 IV

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

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


8596 / 76732 ←次へ | 前へ→

【73706】ユーザーフォームで最小値と最大値を取得して計算
質問  kamo  - 13/2/5(火) 22:42 -

引用なし
パスワード
   教えてください。
ユーザーフォームのテキストボックス1〜3に数字を入力し、コマンドボタンを押すとその数値の最大値と最小値を取得し、取得した2値の中間値をテキストボックス4に表示させたいのですが、テキストボックス1〜3が1つでも空欄だとエラーになります。空欄を無視して最小値と最大値を取得したいのですが、うまくいきません。
よろしくおねがいします。
Private Sub CommandButton1_Click()
Dim 最大値 As Single
Dim 最小値 As Single

Dim T1 As Single, T2 As Single, T3 As Single

T1 = TextBox1.Value
T2 = TextBox2.Value
T3 = TextBox3.Value

最大値 = Application.Max(T1, T2, T3)
最小値 = Application.Min(T1, T2, T3)

'テキストボックス4の計算
TextBox4.Value = (最大値 + 最小値) / 2

'整数のみ表示
TextBox4.Value = Fix(TextBox4.Value)
345 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 お礼

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