VBA練習問題
VBA100本ノック 22本目:FizzBuzz発展問題

VBAを100本の練習問題で鍛えます
最終更新日:2020-11-12

VBA100本ノック 22本目:FizzBuzz発展問題


一般的なFizzBuzz問題を少しだけエクセル用に発展させた問題です。


ツイッター連動企画です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。


出題

出題ツイートへのリンク

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


頂いた回答

解説

割り切れるかは、剰余が0なら割り切れると判定できますね。
VBAで剰余はMod演算子を使います。
3,5,15で割り切れるかの判定は、最初に15で割り切れるか判定が必要です。
ここまで分かれば、IF...ElseIfまたはSelect Caseを使って書けます。

Sub VBA100_22_01()
  Dim i As Long
  Cells.Clear
  For i = 1 To 100
    If i Mod 15 = 0 Then
      Cells(i, 4) = "FizzBuzz"
    ElseIf i Mod 3 = 0 Then
      Cells(i, 2) = "Fizz"
    ElseIf i Mod 5 = 0 Then
      Cells(i, 3) = "Buzz"
    Else
      Cells(i, 1) = i
    End If
  Next
End Sub

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

もう少し考えていくと、
3,5の時に1列右、15の時にさらに1列右
既定で1列として、3または5で割り切れるときに+1すれば良い事になります。
このような考えでコード書いてみます。

Sub VBA100_22_03()
  Dim i As Long, c As Long, fb As String
  Cells.Clear
  For i = 1 To 100
    c = 1: fb = ""
    If i Mod 3 = 0 Then: c = c + 1: fb = "Fizz"
    If i Mod 5 = 0 Then: c = c + 2: fb = fb & "Buzz"
    Cells(i, c) = IIf(c = 1, i, fb)
  Next
End Sub


工夫することで、いろいろなコードで書くことができます。
発想を変えれば、かなり短いコードにも出来そうです。
回答にはとても短いものや、ループを使わないというものまであります。
お遊びの腕試しですが、いろいろチャレンジしてみるのも良いと思います。


補足

今回は補足はありません。


サイト内関連ページ

第15回.四則演算と注釈(コメント)
エクセルは表計算ソフトですから、計算が出来なくては話になりません。四則演算(加減剰余)は必須です。この四則演算で使う算術演算の演算子は、ワークシートの演算子と同じです。あわせて、注釈(コメント)の書き方も覚えましょう。
第20回.条件分岐(If)
ある条件の時だけ処理したい、ある条件の時は処理したくない、そのような条件によって処理内容を変更したい場合があります。VBAで条件により処理を分岐させたい場合に使うのが、Ifステートメントです。マクロVBAで自動化する場合の多くは、条件により処理を変えつつ一定回数繰り返すという事です。
第21回.条件分岐(ElseIf)
前回のIFステートメントでは、真か偽の二択でした。今回は、もっと多くの分岐が必要な、Ifステートメントで多肢条件分岐の場合の書き方です。ステートメントとしては、Ifステートメントです。IfステートメントのElseIfの構文 If条件式1Then 条件式1が真の処理 [ElseIf条件式2Then 条件式2が真の処理] [ElseIf条件式3Then 条件…
第22回.条件分岐(Select Case)
前回のElseIf以外に、多肢条件分岐の別の書き方があります。それがSelectCaseになります。むしろElseIfより、このSelectCaseの方が、より多肢条件分岐に適していると言えます。SelectCaseは、多肢条件分岐に特化したステートメントになります。




同じテーマ「Python入門」の記事

VBA100本ノック 19本目:図形のコピー
VBA100本ノック 20本目:ブックのバックアップ
VBA100本ノック 21本目:バックアップファイルの削除
VBA100本ノック 22本目:FizzBuzz発展問題
VBA100本ノック 23本目:シート構成の一致確認
VBA100本ノック 24本目:全角英数のみ半角
VBA100本ノック 25本目:マトリック表をDB形式に変換
VBA100本ノック 26本目:ファイル一覧作成
VBA100本ノック 27本目:ハイパーリンクのURL
VBA100本ノック 28本目:シートをブックに分割
VBA100本ノック 29本目:画像の挿入


新着記事NEW ・・・新着記事一覧を見る

VBA100本ノック 34本目:配列の左右回転|VBA練習問題(11月28日)
VBA100本ノック 33本目:マクロ記録の改修|VBA練習問題(11月26日)
VBA100本ノック 32本目:Excel終了とテキストファイル出力|VBA練習問題(11月25日)
VBA100本ノック 31本目:入力規則|VBA練習問題(11月24日)
将棋とプログラミングについて~そこには型がある~|エクセル雑感(11月22日)
VBA100本ノック 30本目:名札作成(段組み)|VBA練習問題(11月22日)
VBA100本ノック 29本目:画像の挿入|VBA練習問題(11月21日)
VBA100本ノック 28本目:シートをブックに分割|VBA練習問題(11月19日)
VBA100本ノック 27本目:ハイパーリンクのURL|VBA練習問題(11月18日)
VBA100本ノック 26本目:ファイル一覧作成|VBA練習問題(11月17日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
5.マクロって何?VBAって何?|VBA入門
6.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
7.繰り返し処理(For Next)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.マクロはどこに書くの(VBEの起動)|VBA入門




このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。



このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
本文下部へ