MENU
当サイトはアフィリエイト広告を利用しています

VBA学習ツール無料配布!#21 テーマ:vbaでwhileループしよう!

VBA学習ツール-テーマ:vbaでwhileループしよう! VBA学習
VBA学習ツール-テーマ:vbaでwhileループしよう!

日本最大級のAI人工知能プログラミングスクール

Aidemy「強み」3選

  1. 3ヶ月集中でAIプログラミング習得
  2. 完全オンライン完結!
  3. 会員登録者数 65,000名突破!

本学習テーマ紹介動画

👆本学習テーマを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でwhileループしよう!の問題文&解答シート
VBA学習ツール-テーマ:vbaでwhileループしよう!の問題文&解答シート
VBA学習ツール-テーマ:vbaでwhileループしよう!の正答シート
VBA学習ツール-テーマ:vbaでwhileループしよう!の正答シート
VBA学習ツール-テーマ:vbaでwhileループしよう!の読み込みシート
VBA学習ツール-テーマ:vbaでwhileループしよう!の読み込みシート

VBA設定

尚, 本ツールには, 「VBA」(Excelのプログラミング言語)が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。

ダウンロード

ぜひ, 勉強にご活用下さい!(xlsmファイル)👇

コメント

タイトルとURLをコピーしました