Excel VBA質問箱 IV

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

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


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

8593 / 76732

←次へ　｜　前へ→


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

ウッシ - 13/2/5(火) 23:20 -


	引用なし

	パスワード

こんばんは

テキストボックスに入力して実行するのが決めなら、

Private Sub CommandButton1_Click()
　　Dim 最大値 As Single
　　Dim 最小値 As Single
　　Dim i　　　As Long
　　Dim t()　　As Single
　　i = 0
　　If TextBox1.Value <> "" Then
　　　　i = i + 1
　　　　ReDim Preserve t(1 To i)
　　　　t(i) = TextBox1.Value
　　End If
　　If TextBox2.Value <> "" Then
　　　　i = i + 1
　　　　ReDim Preserve t(1 To i)
　　　　t(i) = TextBox2.Value
　　End If
　　If TextBox3.Value <> "" Then
　　　　i = i + 1
　　　　ReDim Preserve t(1 To i)
　　　　t(i) = TextBox3.Value
　　End If
　　
　　If i > 0 Then
　　　　最大値 = Application.Max(t)
　　　　最小値 = Application.Min(t)
　　　　
　　　　'テキストボックス４の計算
　　　　TextBox4.Value = (最大値 + 最小値) / 2
　　　　
　　　　'整数のみ表示
　　　　TextBox4.Value = Fix(TextBox4.Value)
　　End If

End Sub

こんな感じでも。

440 hits

▼

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