【ExcelVBAベーシック】For～Nextステートメント、Ifステートメント①【練習問題】

csuzuki

ExcelVBAベーシックの試験範囲に関する練習問題を記載していきます。
勉強して得た知識が定着しているかを確認しましょう。
他の練習問題を見たい場合は練習問題一覧を押下し確認してください。

【問題】

以下のような表があり、CBR600RRの場合はホンダ、WR250Rの場合はヤマハ、ファットボーイSの場合はハーレー、エスティマの場合はトヨタとそれぞれC列のセルに表示する場合のコードを記述してください。

【解答と解説】

※問題の要件を満たしていれば正解としてください。

まずこの問題は「○○の場合は△△、□□の場合は☆☆」となっているので、「Ifステートメント」を使います。
また、複数行あることから「For～Nextステートメント」も一緒に記述します。
コードは以下のようになります。

For i = 3 To 6

    If Cells(i, 2) = "CBR600RR" Then
        Cells(i, 3) = "ホンダ"
    ElseIf Cells(i, 2) = "WR250R" Then
        Cells(i, 3) = "ヤマハ"
    ElseIf Cells(i, 2) = "ファットボーイS" Then
        Cells(i, 3) = "ハーレー"
    ElseIf Cells(i, 2) = "エスティマ" Then
        Cells(i, 3) = "トヨタ"
    End If

Next

1行目の「i = 3 To 6」というのは3行目から6行目を指定するためこのように書いています。
forが一周するたびに一行づつB列の値を判定しC列にメーカーを出力しています。

▼実際に試したのがこちら

それぞれの車種の隣の列(メーカー)に値が出力されました。