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

VBA学習ツール無料配布!#6 テーマ:if 複数条件

if 複数条件 VBA学習
if 複数条件

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

Aidemy「強み」3選

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

本学習テーマ紹介動画

👆本学習テーマをYouTubeで紹介しています!
チャンネル登録宜しくお願いします!
効果音ラボ ナレーション 音読さん

*基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。

本学習ツールでの問題文・解答例

問題文
以下の要件を満たすVBAのプログラムを実装して下さい。

要件

シート「読み込み&書き込みシート」の読み込みセルの値を取得し,
その値に応じて以下のように「書き込みセル」に書き込む。
読み込みセルの値:「あなたの出身地は?」→書き込みセルに書き込む値:「東京都」
読み込みセルの値:「好きな食べ物は?」→書き込みセルに書き込む値:「寿司」
読み込みセルの値:「あなたの職業は?」→書き込みセルに書き込む値:「エンジニア」
(読み込みセルの値:空白→書き込みセルに書き込む値:空白)
実行完了時にはMsgBox関数で「実行完了」のメッセージを表示する。
要件

解答例

Option Explicit

Sub correctAnswerExample()
    Dim readWriteSht As Worksheet
    Dim writeCell As Range
    Dim readValue As String
    Dim writeValue As String
    ' 読み込み&書き込みシートを取得
    Set readWriteSht = ThisWorkbook.Sheets("読み込み&書き込みシート")
    ' 読み込みセルの値を取得
    readValue = readWriteSht.Cells(6, 2).Value
    ' 書き込みセルの範囲を指定
    Set writeCell = readWriteSht.Cells(6, 4)
    ' 読み込み値に応じて書き込みセルに書き込む値を設定(読み込み値が空白の場合は, writeValueは初期値(空白)のまま)
    If readValue = "あなたの出身地は?" Then
        writeValue = "東京都"
    ElseIf readValue = "好きな食べ物は?" Then
        writeValue = "寿司"
    ElseIf readValue = "あなたの職業は?" Then
        writeValue = "エンジニア"
    End If
    ' 書き込みセルに値を書き込む
    writeCell.Value = writeValue
    ' 「実行完了」のメッセージを表示
    Call MsgBox("実行完了")
End Sub

上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい!

本学習ツールの内容

下👇の画像のように, vbaでif文を使って, 複数の条件分岐を実装する方法を学ぶことが出来ます!

*2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。

VBA学習ツール-テーマ:if 複数条件の問題文&解答シート
VBA学習ツール-テーマ:if 複数条件の問題文&解答シート
VBA学習ツール-テーマ:if 複数条件の正答シート
VBA学習ツール-テーマ:if 複数条件の正答シート
VBA学習ツール-テーマ:if 複数条件の読み込み&書き込みシート
VBA学習ツール-テーマ:if 複数条件の読み込み&書き込みシート

本学習テーマの格言

  • if文の複数の条件分岐で, プログラムの機能の幅を広げよう!
    • 「If ~ Then, ElseIf ~ Then, End If」を使って, 複数での条件分岐を実装できれば, 様々な場合に対応できるプログラムを作成できるようになります!

VBA設定

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

ダウンロード

ぜひ, 勉強にご活用下さい!👇

コメント

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