エクセルでおみくじをしよう!【Excel Vba】

はじめに

さてもうそろそろ新年を迎えますが、「正月に家を出たくない」「くじだけは引きたい」という悩みはありませんか?(おそらくないかもしれませんが。。)

今回はExcel Vba をつかって Excel さえあれば簡単につくれるおみくじについて紹介します!

実際に作ってみた Excel マクロファイルは下記になります。

Excel おみくじの使い方

ダウンロードするとわかると思いますが、「くじを引く」ボタンをクリックすると下の黒枠(B12:B18)に結果が表示されます。

注意点ですがシート名(おみくじ)を変更しないでください。変更すると正常に動作しなくなります。

 

Excel おみくじの作り方

シート構成と VBA のソースコード(プログラミングの中身)について順にご紹介します。

シート構成

実はこのExcelファイルは2つのシートから構成されています。

  1. 「おみくじ」シート
  2. 「くじマスタ」シート(非表示)

「くじマスタ」シートは非表示にしてありますので、確認したい場合はシート名のところを「右クリック」→「再表示」→ 「くじマスタ」を選択し「OK」を押してください。

「おみくじ」シート

おみくじを引くメインのシートです。注意点は結果が表示されるセルの位置(B13:B18)は動かさないようにしてください(タイトルは別に変更してもOKです)。

「くじマスタ」シート

くじの結果を登録しているシートです。

  1. A列 : 番号 ← おみくじの番号です。わかりやすくつけているだけで動作上は不要ですが消さないようにしてください。
  2. B列 : おみくじ ← おみくじの結果です。下に新しく値を付け足しても問題なく動きますが、こちらも消さないでください。

動作概要

動作概要ですが、下記のようになります。

  1.  0 ~ 5 のランダム値 result を取得する
  2. 「くじマスタ」シートのB列2行目以降の値を動的配列 omikuzi に格納する
  3. 配列 omikuzi(result)の値を取得し、「おみくじ」シートに値を出力する

順に説明します。

(1) 0 ~ 5 のランダム値として「3」を取得した場合、 変数 result に 「3」 を代入します。

(2)「くじマスタ」シートのB列2行目以降の値(大吉、吉、中吉、小吉、凶、大凶)を配列 omikuzi に格納します。つまり、配列 omikuzi の中身は以下のようになっています。

  • omikuzi(0) = 大吉
  • omikuzi(1) = 吉
  • omikuzi(2) = 中吉
  • omikuzi(3) = 小吉
  • omikuzi(4) = 凶
  • omikuzi(5) = 大凶

(3)result を 配列 omikuzi のインデックスにし、その値を「おみくじ」シートに値を出力します。たとえば result = 3 の場合、result をインデックスとするため omikuzi(3) = 小吉となります。

ソースコード

最後に

いかがでしょうか?

 

これでいつでもどこでも年中くじが無料で引き放題ですね!!ぜひ新年の変わり目にいっぱつ運試しに引いてみてはいかがでしょうか?

 

プログラミング学習、独学では難しくないですが?
  • プログラミングをどう勉強したらいいのかわからない
  • わかりにくい参考書が多く、自分一人では解決できそうにない
  • 壁にぶつかった時の解決策がわからない
そんな人にはプログラミングスクールtech boost」がおすすめです。

 
 

プログラミングスクールtech boost」の魅力
  1. オーダメイドの自分の目標にあったプランが受講できる!
  2. 現役エンジニアがあなたの学習を全力サポート!
  3. スクール卒業後のキャリアサポートも充実インターン/就職/転職/独立 など
  4. オリジナル Web アプリも作れるようになります!
  5. 近年トレンドの AI や IoT、ブロックチェーンも学習できます!
  6. 受講スタイル(通学かオンライン授業)も選択可能!

 

こんな人におすすめ!

  • 未経験からでもプログラミングをしっかり学びたい!

未経験からでも受講期間中にオリジナルサービス開発レベルまで全力でサポートします。

 

  • プログラミングを一人で学ぶことに限界を感じた!

未経験で一からプログラミング学習するには限界があります。

現役エンジニアがあなたの目標に沿った学習プランを提案してくれるので安心して学習できます。

 

  • 技術力をつけて、IT企業に就職やフリーランス、独立を目指したい!

卒業後のキャリアサポートも充実しているため、未経験からも IT 業界に参入できます。

 

悩んでいるなら、お気軽に無料説明会へ!

現役エンジニアの私がいいますが、IT 業界は圧倒的な人材不足です。

 

スクールは料金が高いからなあ」と悩まれている人もいると思いますが、

IT業界は仕事が有り余っているため、一度学べば速攻で資金回収できます。

 

もしプログラミング学習で悩んでいたり将来的に IT企業、フリーランスなどで働きたいのであれば、

プログラミングスクール「tech boost」へ無料相談だけでもいってみてはいかがでしょうか?

おすすめの記事