VBA100本ノック 22本目:FizzBuzz発展問題
一般的なFizzBuzz問題を少しだけエクセル用に発展させた問題です。
ツイートでの見やすさを考慮して、ブック・シート指定等を適宜省略しています。
出題
出題ツイートへのリンク
#VBA100本ノック 22本目
たまにはちょっと遊んでみましょう!
A列に1からの連番を出力してください。
ただし、
・3で割り切れる場合はB列に"Fizz"を出力。
・5で割り切れる場合はC列に"Buzz"を出力。
・両者で割り切れる場合はD列に"FizzBuzz"を出力。
※出力する数値範囲は適当に
たまにはちょっと遊んでみましょう!
A列に1からの連番を出力してください。
ただし、
・3で割り切れる場合はB列に"Fizz"を出力。
・5で割り切れる場合はC列に"Buzz"を出力。
・両者で割り切れる場合はD列に"FizzBuzz"を出力。
※出力する数値範囲は適当に
VBA作成タイム
この下に頂いた回答へのリンクと解説を掲載しています。
途中まででも良いので、できるだけ自分でVBAを書いてみましょう。
他の人の回答および解説を見て、書いたVBAを見直してみましょう。
頂いた回答
解説
割り切れるかは、剰余が0なら割り切れると判定できますね。
VBAで剰余はMod演算子を使います。
3,5,15で割り切れるかの判定は、最初に15で割り切れるか判定が必要です。
ここまで分かれば、IF...ElseIfまたはSelect Caseを使って書けます。
もう少し考えていくと、
3,5の時に1列右、15の時にさらに1列右
既定で1列として、3または5で割り切れるときに+1すれば良い事になります。
このような考えでコード書いてみます。
工夫することで、いろいろなコードで書くことができます。
発想を変えれば、かなり短いコードにも出来そうです。
回答にはとても短いものや、ループを使わないというものまであります。
お遊びの腕試しですが、いろいろチャレンジしてみるのも良いと思います。
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)・Ifステートメントの構文 ・IFステートメントの条件式 ・Ifステートメントの使用例文 ・Ifステートメントのネスト(入れ子) ・サイト内のIfステートメント参考ページ ・最後に
第21回.条件分岐(ElseIf)前回のIFステートメントでは、真か偽の二択でした。今回は、もっと多くの分岐が必要な、Ifステートメントで多肢条件分岐の場合の書き方です。ステートメントとしては、Ifステートメントです。IfステートメントのElseIfの構文 If条件式1Then 条件式1が真の処理 [ElseIf条件式2Then 条件式2が真の処理…
第22回.条件分岐(Select Case)・Select Caseステートメントの構文 ・Select Case の例文 ・Select Case の応用
同じテーマ「VBA100本ノック」の記事
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
20本目:ブックのバックアップ・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
21本目:バックアップファイルの削除・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
22本目:FizzBuzz発展問題23本目:シート構成の一致確認
・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
24本目:全角英数のみ半角・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
25本目:マトリックス表をDB形式に変換・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
26本目:ファイル一覧作成・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
27本目:ハイパーリンクのURL・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
28本目:シートをブックに分割・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
29本目:画像の挿入・出題 ・頂いた回答 ・解説 ・補足 ・サイト内関連ページ
新着記事NEW ・・・新着記事一覧を見る
ブール型(Boolean)のis変数・フラグについて|VBA技術解説(2024-04-05)
テキストの内容によって図形を削除する|VBA技術解説(2024-04-02)
ExcelマクロVBA入門目次|エクセルの神髄(2024-03-20)
VBA10大躓きポイント(初心者が躓きやすいポイント)|VBA技術解説(2024-03-05)
テンキーのスクリーンキーボード作成|ユーザーフォーム入門(2024-02-26)
無効な前方参照か、コンパイルされていない種類への参照です。|エクセル雑感(2024-02-17)
初級脱出10問パック|VBA練習問題(2024-01-24)
累計を求める数式あれこれ|エクセル関数応用(2024-01-22)
複数の文字列を検索して置換するSUBSTITUTE|エクセル入門(2024-01-03)
いくつかの数式の計算中にリソース不足になりました。|エクセル雑感(2023-12-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|VBA入門
4.ひらがな⇔カタカナの変換|エクセル基本操作
5.繰り返し処理(For Next)|VBA入門
6.変数宣言のDimとデータ型|VBA入門
7.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
8.並べ替え(Sort)|VBA入門
9.セルのクリア(Clear,ClearContents)|VBA入門
10.Findメソッド(Find,FindNext,FindPrevious)|VBA入門
- ホーム
- マクロVBA入門編
- VBA100本ノック
- 22本目:FizzBuzz発展問題
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。