Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8594 / 76732

←次へ　｜　前へ→


	【73708】Re:ユーザーフォームで最小値と最大値を取得して計算

ichinose - 13/2/5(火) 23:18 -


	引用なし

	パスワード

こんばんは。

>Private Sub CommandButton1_Click()
>Dim 最大値 As Single
>Dim 最小値 As Single
>
Dim t(1 To 3) As Variant
t(1) = IIf(TextBox1.Value = "", "", Val(TextBox1.Value))
t(2) = IIf(TextBox2.Value = "", "", Val(TextBox2.Value))
t(3) = IIf(TextBox2.Value = "", "", Val(TextBox3.Value))
>
最大値 = Application.Max(t())
最小値 = Application.Min(t())
>
>'テキストボックス４の計算
>TextBox4.Value = (最大値 + 最小値) / 2
>
>'整数のみ表示
>TextBox4.Value = Fix(TextBox4.Value)

試してみてください

342 hits

▼

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