本学習テーマ紹介動画
- YouTube
YouTube でお気に入りの動画や音楽を楽しみ、オリジナルのコンテンツをアップロードして友だちや家族、世界中の人たちと共有しましょう。
youtube.com
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| シート「読み込みシート」の日付（B列）の最下行を取得し, 6行目から最下行までfor文でループして, 獲得金額を取得し, 貯金額を計算, 記入していく。 |
| 最後に, シート「読み込み＆書き込みシート」をアクティベートにして, MsgBox関数で「実行完了」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim ws As Worksheet
Dim lastRow As Long
Dim row As Long
Dim earnedAmount As Long
Dim sum As Long
' 「読み込み＆書き込みシート」を設定する
Set ws = ThisWorkbook.Sheets("読み込み＆書き込みシート")
' B列の最後の行を取得する
lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).row
For row = 6 To lastRow
earnedAmount = ws.Cells(row, 3).Value
sum = sum + earnedAmount
ws.Cells(row, 4) = sum
Next row
'「読み込み＆書き込みシート」をアクティベートにする
ws.Activate
' メッセージを表示する
MsgBox "実行完了"
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでfor文を使ってループ処理を行う方法を学ぶことが出来ます！
＊2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。
本学習テーマの格言
- for文ループ習得は, 大量データ処理への第一歩！
- for文を使えれば, 大量の行のデータに対してプログラムを実行できる為, Excel業務をより自動化できるようになります！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント