総合練習問題2解答｜VBA練習問題解答

公開日：2013年5月以前　最終更新日：2019-11-10

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

マクロVBA練習問題の解答ページです。

マクロVBA練習問題

以下の表を使用します、メッセージボックスと数値集計の問題です。

InputBox関数で数値を入力し、
A列の数値が、指定数値以上の合計を求め、MsgBox関数で表示して下さい。
例えば、
InputBox関数で10と入力したら、
14+11+12+13+18を計算し、
MsgBox関数で68を表示するという事です。

ヒント！

InputBox関数の受け取りは文字列になります。
+ 0 のように計算するか、数値型の変数に入れれば、数値として扱えます。

シンキングタイム

シンキングタイム開始

シンキングタイム終了

マクロVBA練習問題解答

では解答のマクロVBAコードです。
※.Valueは適宜省略しています。


  
    
      
      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

　　　　MsgBox "合計:" & lngTotal 'MsgBoxで合計を表示

　　End If

End Sub

最終行までの処理
IfとFor～Nextのネスト
変数への加算
ここはしっかり体得して下さい。

また、上記サンプルのように、
ネストした場合は、しっかりと、インデント（字下げ）を付けましょう。

インデント方法

Subの中は、１段下げて書き始める。
If、For、Doの次は、１段下げる。
End If、Next、Loopで元の位置に戻す。

※数値以外を入力するとエラーになります。
数値かの判定にはVBA関数を使いますが、VBA関数の学習はもう少し先になります。

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

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

マクロVBA練習問題

シンキングタイム

マクロVBA練習問題解答

同じテーマ「マクロVBA練習問題解答」の記事

新着記事NEW ・・・新着記事一覧を見る

アクセスランキング ・・・ ランキング一覧を見る

アクセスランキング・・・ランキング一覧を見る