Excel VBA 質問スレッド No.811 (解決済)

入力された数値のうち閾値以上の値の合計を求め、メッセージ ボックスに表示させたい。

投稿者 : P     投稿日時 : 2022/06/19(Sun) 23:06:14     OS : Windows 10     EXCEL : Excel 2019
閲覧ありがとうございます。
学校の方の課題が分からず、質問させていただきます。
vba初心者ですので分かりにくい文章でしたら申し訳ございません。


<課題>
1.ボタンを押すとスタート。

2.適当に10個の数値をインプットボックスで入力。

3.現在の数値が何番目の入力か、入力時のインプットボックスに表示。

4.入力された10個の数値はA列に表示していく。

5.「閾値」をインプットボックスで入力。

6.入力した「閾値」以上の値の合計を求めて、メッセージボックスに表示させる。
例:○○以上の値の合計は△△

※無効な文字等が入力されたときは、メッセージボックスに表示し、再入力させる。



現在、5までは出来ています。下記にコードを記しておきます。


Private Sub CommandButton1_Click()

Dim suuti, ikiti
Dim i As Integer

For i = 1 To 10

suuti = InputBox(i & "番目の数値を入力してください。", "数値入力")
Cells(i, 1).Value = suuti
Next i

ikiti = InputBox("閾値を入力してください。")

End Sub


課題の6からが分からず悩んでおります。
分かる方がいましたら、この先をご教授いただければ幸いです。

[返信 1] Re : 入力された数値のうち閾値以上の値の合計を求め、メッセージ ボックスに表示させたい。
投稿者 : てらてら     投稿日時 : 2022/06/20(Mon) 06:42:58
こんにちは。

参考にしてください。

Sub ボタン1_Click()
Dim suuti As Long, ikiti As Long
Dim i As Integer
Dim total As Long

For i = 1 To 10

suuti = InputBox(i & "番目の数値を入力してください。", "数値入力")
Cells(i, 1).Value = suuti

Next i

ikiti = InputBox("閾値を入力してください。")

'6.入力した「閾値」以上の値の合計を求めて、メッセージボックスに表示させる。
total = 0
For i = 1 To 10
If ikiti <= Cells(i, 1) Then
total = total + Cells(i, 1)
End If
Next i

MsgBox ikiti & "以上の値の合計は" & total

End Sub

[返信 2] Re : 入力された数値のうち閾値以上の値の合計を求め、メッセージ ボックスに表示させたい。
投稿者 : P     投稿日時 : 2022/06/20(Mon) 19:54:49
■[返信 1] てらてらさん(2022-06-20 06:42:58)の記事

解答していただきありがとうございます。


課題通りの動きになりました!
分かりやすく書いてくださったためvbaが苦手な私でも理解できました。
長い間悩んでいたためとても助かりました。


解決に導いてくださり感謝いたします。
また、ご教授頂き本当にありがとうございました。

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 13:26:54 )

Page
Top