総合練習問題2回答｜ExcelマクロVBA練習問題解答

最終更新日：2015-10-22

第26回.総合練習問題2回答

回答ページです、

以下の表を使用します。

では、

InputBox関数で数値を値を入力し、

A列の数値が、指定数値以上の合計を求め、MsgBox関数で表示して下さい。

ヒント：

InputBox関数の受け取りは文字列になります。

+ 0 のように計算するか、数値型の変数に入れれば、数値として扱えます。

シンキングタイム

では開始

・
・・
・・・
・・・・
・・・・・

はい、終了

Sub 練習1()
　　Dim strIn As String　　　　　　　　　　　　　　　　　　　　　　　　 'InputBox関数の受け取り
　　Dim lngIn As Long　　　　　　　　　　　　　　　　　　　　　　　　　 '数値型への変換に使用
　　Dim i As Long　　　　　　　　　　　　　　　　　　　　　　　　　　　　'行数
　　Dim lngTotal As Long　　　　　　　　　　　　　　　　　　　　　　　 '合計

　　strIn = InputBox("数値を指定して下さい。", "数値入力")　 'InputBox関数
　　If strIn = "" Then

　　　　MsgBox "数値が指定されませんでした。", , "警告"　　　'未入力の場合
　　Else
　　　　lngIn = strIn　　　　　　　　　　　　　　　　　　　　　　　　　　 '数値型への変換
　　　　lngTotal = 0　　　　　　　　　　　　　　　　　　　　　　　　　　 '合計を初期化
　　　　For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row　　　　 '最終行まで
　　　　　　If Cells(i, 1) >= lngIn Then　　　　　　　　　　　　　　　　'指定数値以上
　　　　　　　　lngTotal = lngTotal + Cells(i, 1)　　　　　　　　　　　'合計に加算
　　　　　　End If
　　　　Next i
　　　　MsgBox "合計:" & lngTotal　　　　　　　　　　　　　　　　　'MsgBoxで合計を表示
　　End If
End Sub

最終行までの処理、

IfとFor～Nextのネスト

変数への加算

ここはしっかり体得して下さい。

また、上記サンプルのように、

ネストした場合は、しっかりと、インデント（字下げ）を付けましょう。

インデント方法は、

Subの中は、１段下げて書き始める。

If、For、Doの次は、１段下げる。

End If、Next、Loopで元の位置に戻す。