ExcelマクロVBA練習問題解答
第26回.総合練習問題2解答

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