VBA100本ノック 22本目：FizzBuzz発展問題 - bimori466のエクセルブログ

この記事から得るもの

ＩＦ文、Select Case文での条件分岐

１　今回のお題

たまにはちょっと遊んでみましょう！
A列に1からの連番を出力してください。
ただし、
・3で割り切れる場合はB列に"Fizz"を出力。
・5で割り切れる場合はC列に"Buzz"を出力。
・両者で割り切れる場合はD列に"FizzBuzz"を出力。
※出力する数値範囲は適当に

２　今回のお題の意図

３，５，１５で割れる数を処理する順番を考慮する。

３　回答

私の回答

Sub ノック22本目_1()

Dim ws As Worksheet: Set ws = Worksheets("sheet1")
Dim amount As Integer


For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
    amount = ws.Cells(i, 1)
    
    If amount Mod 15 = 0 Then
        ws.Cells(i, 2) = "FizzBuzz"
    
    ElseIf amount Mod 3 = 0 Then
        ws.Cells(i, 2) = "Fizz"
        
    ElseIf amount Mod 5 = 0 Then
        ws.Cells(i, 2) = "Buzz"
    End If
Next

End Sub

ポイントは、１５で割れる数を条件の最初にもってくることです。その後に３、５で割れる数を条件判定します。
処理画面は以下の通り↓↓
f:id:bimori466:20201119080846p:plain

よく考えたら、「A列に1からの連番を出力してください。」というお題に応えられていませんでした。
最初はSelect Caseで書こうと思ったのですが、書き方がぱっと浮かばずにIFで記述しました。
サイト管理者のSelect Caseバージョンは以下の通り

サイト管理者のSelect Caseでの記述

Sub VBA100_22_02()

Dim i As Long

Cells.Clear

For i = 1 To 100
    Select Case True
        Case i Mod 15 = 0
            Cells(i, 4) = "FizzBuzz"
        Case i Mod 3 = 0
            Cells(i, 2) = "Fizz"
        Case i Mod 5 = 0
            Cells(i, 3) = "Buzz"
        Case Else
            Cells(i, 1) = i
    End Select
Next
    
End Sub

このコードから学べることが2点ありました。
１．セルデータをすべて消去して、「For i = 1 To 100」で連番とする。
２．３，５，１５で割り切れた結果を別の列に記述する。

この２点を踏まえた私の最終回答。

私の最終回答

Sub ノック22本目_2()

Dim ws As Worksheet: Set ws = Worksheets("sheet1")
Dim amount As Integer

'セルデータを削除
ws.Cells.Clear

'FizzBuzz判定
For i = 1 To 30
    ws.Cells(i, 1) = i
    amount = ws.Cells(i, 1)
    
    If amount Mod 15 = 0 Then
        ws.Cells(i, 4) = "FizzBuzz"
    
    ElseIf amount Mod 3 = 0 Then
        ws.Cells(i, 2) = "Fizz"
        
    ElseIf amount Mod 5 = 0 Then
        ws.Cells(i, 3) = "Buzz"
    End If
Next