2022.01.08この記事では、以下の動画のような回転ルーレットをVBAを使って作成する方法をご紹介していきます。※実際は何周かしたらこのルーレットは止まります。昔は職場での抽選作業なんかはみんなで集まってあみだくじとかをしたものですが、それもできなくなった昨今。デジタル抽選機としてご利用ください。それではさっそくやっていきましょう。スポンサーリンク目次ルーレット作成の下準備ルーレット作成のVBAコードルーレット実行ボタンの作成おわりにルーレット作成の下準備まずは以下の画像を参考にどこでも良いのでルーレットのベースとなるマス目を作成していきましょう。今回は適当なアルファベットにしていますが、各マス目には何を書いていてもOKです。セルの高さ幅をうまく調整し、なるべく正方形に近い形にしておくと雰囲気が出て良いですね。スポンサーリンクルーレット作成のVBAコードそれでは下準備が終わったところで、さっそくVBAコードの記述に移りましょう。以下がそのサンプルコードです。Sub基本的には4行目でさきほど作成したマス目の存在領域を指示するだけです。簡単にどうゆう処理をしているかも解説しておきます。さきほどのサンプルコードでは以下の画像のように色のついたマス目を回転させています。この回転作業を乱数をつかって適当な場所で止めているだけです。この作業を画像更新させながら行うことによってルーレットのように見えるというわけですね。最後に先ほどのマクロの実行ボタンを作成していきましょう。ボタンの作成方法については以下の記事を参考にしてください。【エクセル】マクロ実行ボタンの作成手順!画像つきで詳細解説!私の場合はこんな感じにしました。これでこのルーレットボタンを押すと以下のようにルーレットが開始するはずです。スポンサーリンクおわりにというわけでエクセルVBAをつかって簡単なルーレットを作成する方法をご紹介しました。職場での抽選作業なんかにぜひご活用ください。今回は3×3のマス目で作成しましたが、応用すればもっとマス目を増やすことも可能です。チャレンジしてみてください。このように、私のブログではエクセルスキルはもちろん、様々なプログラミングスキルを紹介しています。今は仕事中で時間がないかもしれませんが、ぜひ通勤時間中などに他の記事も読んでいただけると嬉しいです。⇒興味をもった方は【ヒガサラ】で検索してみてください。確実にスキルアップできるはずです。最後に、この記事が役に立ったという方は、ぜひ応援よろしくお願いします。コピーヒガシをフォローするスポンサーリンクヒガシヒガサラblogスポンサーリンクエクセルVBA【エクセルVBA】立方体図形を一発作成!長さ&角度指定するだけ!この記事では、VBAを使って以下の画像のように立方体図形を一発作成する方法をご紹介していきます。基本的には上の画像に示しているX,Y,Zの長さと角度θを指定するだけでOKです。VBAの実行環境構築...エクセルVBA【エクセル】A,B,C~Zの文字を一括作成!CHAR関数の使い方!VBA利用も可!データの系列名などに用いるために、A,B,C・・・Zという文字を各セルに入力したいときってありますよね。そんな状況を一瞬で解決する方法をご紹介していきます。エクセルVBA【VBA】連番ファイルの読み込み!001,002など複数の0を付ける方法!001,002...010,011というように、桁数を固定した連番をVBA上で処理する方法を解説しています。エクセルVBA【エクセルVBA】シート上のデータに任意の大きさのノイズを加える方法こんにちは、ヒガシです。こんな感じでノイズを一発で加える方法をご紹介していきます。...エクセルVBA【エクセルVBA】エラー:変数が定義されていません。「変数が定義されていません。いうエラーを解決する方法をご紹介していきます。2つのやり方がありますので、順番にご紹介していきます。...エクセルVBA【VBA】For-Next文の繰り返し処理を逆順で実行する方法!この記事では、VBAでFor文を逆順に実行する方法をご紹介していきます。して1から10まで繰り返していると思いますが、これを10から1までという形で行うイメージですね。PMプログラミングで、ルーレットを作っていて、試しにこちらのサイトのルーレットを作らせていただきました。ルーレットで出た番号によって、その日のごはんの献立が表示される、という形にしたいと思っています。ルーレットで、1番が選ばれたら、「今日の献立はエビフライです。」という風に、Msgboxで表示したいのですが、どこの場所にプログラミングしたらいいか分かりません。教えていただけると嬉しいです。AMご質問ありがとうございます(^^)win=region(*,*).Adressというコードがたくさんあると思いますが、まずはその下にmenu_msg=”「今日の献立はエビフライです。」”といった形で各番号に対するメッセージを設定していきます。1).Addressmenu_msg=”「今日の献立はエビフライです。2).Addressmenu_msg=”「今日の献立はカレーです。」”みたいな感じですね。menu_msgを追加すればできると思います。コメントをキャンセルメールアドレスが公開されることはありません。※サイト次回のコメントで使用するためブラウザーに自分の名前、メールアドレス、サイトを保存する。上に表示された文字を入力してください。ご指摘ありがとうございます。修正させていただきましました。【python-openCV】背景画像に別の画像を合成する方法!やぎ2023.05.29こんにちは。書く必要があると思います。【python-openCV】背景画像に別の画像を合成する方法!サトシ2023.05.11承知しました。アドバイス本当にありがとうございます。【VBA】大量のファイル名変更!指定したフォルダ内を一括操作!ヒガシ2023.05.11/はフォルダの階層が変わることを意味しますので使えません。substitute関数などを使って別文字に変換してから実行すると良いと思います。【VBA】大量のファイル名変更!指定したフォルダ内を一括操作!サトシ2023.05.10何度もすみません。/を使うと出来ないみたいです。2001-001-1/4とかにしたいのですが、ファイルが見つかりませんとかパスが無効ですとなります。検索タイトルとURLをコピーしました。