総合練習問題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