本学習テーマ紹介動画
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| シート「読み込みシート」の「0.5以下の乱数の発生回数」を読み取り, その値を整数型変数goalCntに代入する。 |
| whileループで0以上1未満の乱数の値がgoalCnt回, 0.5以下になるまでループしつづけて, ループした回数をLong型変数loopCntに格納する。 |
| プログラムの最後に, シート「読み込みシート」をアクティベートにして, MsgBox関数で「実行完了」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("読み込みシート")
' 「0.5以下の乱数の発生回数」を読み込む
Dim goalCnt As Integer: goalCnt = ws.Cells(6, 2).Value
Dim cnt As Integer: cnt = 0
' ループ回数カウント用変数
Dim startTime As Double: startTime = Timer
Dim loopCnt As Long
Do While cnt <= goalCnt
If Rnd <= 0.5 Then
cnt = cnt + 1
End If
loopCnt = loopCnt + 1
Loop
' シート「読み込みシート」をアクティベートにする
ws.Activate
' ループ回数の表示
MsgBox ("ループ回数:" & CStr(loopCnt))
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでwhileループするプログラムを実装し, そのプログラムを実際に実行することが出来ます！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント