2022.07.16 2023.01.31

【VBA】VBAでFizzBuzzをやってみる。配列の速さも検証。

momeq

モー

今回は、VBAで有名なFizzBuzz問題をやって見たいと思います。

FizzBuzz問題とは?
英語圏で使われる有名な言葉遊び。
プログラミングでは、ループと条件分岐を使用するため、基本的な問題として使われる。１から順番に数字を数えていき、３の倍数で「Fizz」、５の倍数で「Buzz」、３と５の倍数のときに「FizzBuzz」に変えます。

（例）1, 2, Fizz, 4, Buzz, Fizz, 7, 8, Fizz, Buzz, 11, Fizz, 13, 14, FizzBuzz, 16,・・・

ニャー

今回は、FizzBuzzを1万行やってみるにゃ。また、速度も測定して、１行ずつセル入力する場合と、配列で一括入力の場合を比べてみるにゃ。

この記事は・・・

「FizzBuzz問題」を知りたい人
VBAでループと条件分岐を使いたい人
配列での一括入力の速度を知りたい人

にお勧めです。

【GAS】GASで有名なFizzBuzzを解いてみた。実行速度も計測！

Contents

実際のコード
- 一行ずつ実行するコード
- 配列で一括入力のコード
配列で速度が速くなる理由
プログラミングを学ぶならTechAcademy（テックアカデミー）がおすすめ！

実際のコード

一行ずつ実行するコード

Sub sample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim ary(10000)
    startTime = Timer
    For i = 1 To 10000
        If i Mod 3 = 0 And i Mod 5 = 0 Then
            ws.Cells(i, 1) = "FizzBuzz"
        ElseIf i Mod 3 = 0 Then
            ws.Cells(i, 1) = "Fizz"
        ElseIf i Mod 5 = 0 Then
            ws.Cells(i, 1) = "Buzz"
        Else
            ws.Cells(i, 1) = i
        End If
    Next
    endTime = Timer
    Debug.Print endTime - startTime
End Sub
>> 0.234375

ニャー

1万行だと大体0.23秒程度だにゃ。

配列で一括入力のコード

Sub sample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim ary(10000)
    startTime = Timer
    For i = 0 To 10000
        If i Mod 3 = 0 And i Mod 5 = 0 Then
            ary(i) = "FizzBuzz"
        ElseIf i Mod 3 = 0 Then
            ary(i) = "Fizz"
        ElseIf i Mod 5 = 0 Then
            ary(i) = "Buzz"
        Else
            ary(i) = i
        End If
    Next
    ws.Range("A1:A10000") = WorksheetFunction.Transpose(ary)
    endTime = Timer
    Debug.Print endTime - startTime
End Sub
>> 0.046875

モー

0.046秒程度。一行ずつ実行するよりもかなり早いですね。