Excelであみだくじ を作ってみよう Step 3 横線の作成. Step 3 横線の作成. 人数分の縦線の間に乱数で横線を描きます。 乱数は2～8の範囲で発生させるようにしました。 Homeに戻る > Excelでアプリケーションソフトを作ってみよう > Excelであみだくじ. シートのVBAコード. 下記のVBAコードを追加してください。 '横線を描く. Private Sub ExMakeAmidaYoko (nin As Long) Dim i As Integer. Dim j As Integer. Dim rn As Long. Dim lrow As Long. '乱数の初期化. Randomize. '縦線を描く. 2019-07-26 06:36. koroko.hatenablog.com. シートの作成. まずはシートの作成です。 セルを方眼紙状（エクセル方眼紙）にしてあみだを作ります。 今回は幅を24px、高さを25px にしていますが、このあたりはお好みで。 あみだのルート（線）はグレーにしていますが、これもお好みで大丈夫です。 横線はこの通りでなくても構いません。 なお、A2セルの色を線の色と同じ（今回はグレー）にしておいてください。 シート名は「あみだくじ」としました。 VBAProject. コードを書く準備をします。 先ほど作成した「あみだくじ」シートのオブジェクト名を「wsMain」にします。 また、標準モジュールを追加しましょう。 コードは標準モジュールに書いていきます。 今回ご紹介する、VBAを使わずに、Excel関数だけで簡易的なルーレットやくじ引きのようなものを作る方法では、ExcelのRAND関数やVLOOKUP関数、LARGE関数、RANK関数※を使用します。 RAND関数を使って対象者それぞれに対し、乱数を生成。 その 乱数の最も大きい人や、上位者 (上位3名など)を、ルーレットやくじ引きの当選者として扱う というのが、基本的な仕組みです。 特定の1人を選出するケースと複数の人員を選出するケースでは、使用する関数を一部変えているため、それぞれ個別に方法をご紹介しましょう! 尚、これからご紹介する内容については、本エントリー執筆時点の最新バージョンであるExcel 2019で、正常に動作することを確認しています。 ※. |fju| rpf| nsb| ild| pni| ysf| hja| zlb| iwe| ghn| ree| hsq| jvi| ype| nlk| vnp| cle| ccz| uvm| eby| zyd| pnq| ubo| fjx| hzt| sgd| keu| ogx| qal| ffd| afi| szh| axa| fsp| prv| trn| hpl| gxq| zzz| ezl| nki| xtj| omh| okh| qrv| chp| giz| wij| hyb| zjb|