VBA100本ノック 22本目：FizzBuzz発展問題
一般的なFizzBuzz問題を少しだけエクセル用に発展させた問題です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
出題
たまにはちょっと遊んでみましょう！
A列に1からの連番を出力してください。
ただし、
・3で割り切れる場合はB列に"Fizz"を出力。
・5で割り切れる場合はC列に"Buzz"を出力。
・両者で割り切れる場合はD列に"FizzBuzz"を出力。
※出力する数値範囲は適当に
頂いた回答
解説
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
発想を変えれば、かなり短いコードにも出来そうです。
回答にはとても短いものや、ループを使わないというものまであります。
お遊びの腕試しですが、いろいろチャレンジしてみるのも良いと思います。
補足
サイト内関連ページ
同じテーマ「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コードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。