素人がExcelVBAによる「一人働き方改革」に挑むブログスマートフォン用の表示で見る素人がExcelVBAによる「一人働き方改革」に挑むブログExcelVBAネタです。書きマクロ順番の抽籤をする研修会とかそういう機会に、発表の順序を決めるとき。自薦方式をとったり、じゃんけんで決めてもらったりするのも良いが、Excelでやってみてもいいんではないか、と思った。次のようなシートを準備。「抽籤!」ボタンをクリックすると、セルに発表グループ名(今回は番号)が表示されるようにする。仕様ただ発表順がいっぺんに表示されるだけだと盛り上がらないので(別に盛り上げる必要はないんだが。正式表示まで番号がグルグル表示されるようにする一つづつ、それなりに間を空けて表示されるようにする終わったら「決定!」と表示するようにすると、こんな感じにした。抽籤マクロのコードシートモジュールにメインのコードを書くことにし、乱数発生のためのモジュール(自作のRandUtilモジュール)と、WindowsAPI関数呼び出し用のクラス(自作のWinAPIクラス)をインポートして使用した。Long()'///1~maxNumまでの整数をランダムに並べて配列に格納する。クラスモジュールWindowsAPI※必要な部分のみ。Sub例によって、現時点では特に必要でもないエラー対応なんかを入れたせいでタテ長になっている。必要な箇所にはコメントを入れているので、細かい説明は省略。実行シート上のコマンドボタンにSh01MainモジュールのsetNumberメソッドを登録して実行。おわりに身内向けの研修会なんかだと、この程度のギミックを披露するだけで歓声が上がるのだから、チョロいもんですw(実際、今回のギミックは、昼休みの10分ぐらいでサクッと作ったもの。)WindowsAPI関数をもっとふんだんに使用して、グルグル表示中にドラムロールを鳴らしたりしたら、もっとウケるだろうな......。やるつもりはないけど。あと、美しさを求めるなら、ユーザーフォームでしょうね。»プロフィールid:akashi_keirinExcelVBAネタです。SyntaxHighlighter.all();注目記事はてなブログをはじめよう!akashi_keirinさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。