Excelで何か面白いことができないだろうか？
３個のファイルを使って音の出る「おみくじ」を作りました。
Youtube「おみくじ」 ☚ 画像👇 画像👆
をクリックすると Youtube 動画 が再生されます
（音が小さすぎました、スピーカー音量は30～50にしてみてください）
数年前にExcelで作成した「おみくじ」です。
特に注意して作成した点は次の通りでした。
●Excel内に動きを表示させる
●シートを移動して占い結果を表示させ、一定時間が過ぎると元のシートに戻る
●占いはランダムに結果を表示させる
おみくじを引くと今日の運勢が占えるように作成しました。
先日そのファイルを動かしてみましたが、ただ黙々と占いの結果が表示されるだけです。
音楽がほしいなー
Excel VBA で音楽を演奏できないか？ と調べてみましたが、私には設定が無理でした。
それでは他に音楽を鳴らす方法が無いものか？
Excelを開くと同時に、「Windows Media Player」で音楽を流す方法にしました。
.Batファイルを実行することで実現させました。
Windows10附属の「メモ帳」で次の通り.ｔｘｔファイル（テキストファイル）を作成します。
start "" "./harunoumi.mp3"
start "" "./おみくじ.xlsm"
この おみくじ1.txt の.txt を.bat に入力変更します。
「おみくじ1.bat」の完成です。
（※パソコン初期設定では、拡張子.batは表示されません 拡張子については次回ブログで）
同じホルダー内に３個のファイルを保存しておきます。
Excelファイル（おみくじ.xlsm）
音楽ファイル（harunoumi.mp3）
バッチファイル（おみくじ1.bat）
おみくじ1.bat をダブルクリックすると おみくじが音楽とともに始まります。
「おみくじ」を終了させても、音楽は鳴り続けます。
（音楽を同時に終了させられない欠陥品でした！！）
「Windows Media Player」を ✖ で消しました。
※ 上の３つのファイルをクリックすると One Dliveからダウンロードできます。