このチュートリアルでは、Excelでダイスローラープログラムを作成する方法について説明し、書式設定技術を使用して一対のダイスの1つの面をグラフィカルに表示します。
ダイスには、 RANDBETWEEN関数で生成された乱数が表示されます。 ダイ面のドットは、Wingdingsフォントを使用して作成されます。 AND 、IF、およびOR機能の組み合わせは、サイコロの各セルにドットが現れるときを制御します。 RANDBETWEEN関数で生成される乱数に応じて、 ワークシートのダイスの適切なセルにドットが表示されます。 ダイスは、ワークシートを再計算することによって、繰り返し「ロール」することができます
01の09
Excelダイスローラーチュートリアルステップ
Excel Dice Rollerを構築する手順は次のとおりです。
- ダイスを作る
- RANDBETWEENファンクションの追加
- ドットの背後にある関数：AND関数とIF関数のネスト
- ドットの背後にある関数：IF関数を単独で使用する
- ドットの背後にある関数：AND関数とIF関数のネスト
- ドットの背後にある関数：ORおよびIF関数のネスト
- ダイスを転がす
- RANDBETWEEN関数を隠す
02の09
ダイスを作る
以下の手順では、2つのダイスを作成するために、 ワークシート内の一対のダイスの1つの面をグラフィカルに表示するために使用される書式設定手法について説明します。
適用される書式設定テクニックには、セルサイズの変更、セルの配置、フォントの種類とサイズの変更が含まれます。
- 選択セルD1〜J3をドラッグ
- これらのセルの行の高さを25に設定します
- これらのセルの列幅を5に設定する
- 水平セルの配置を中央に設定する
- 垂直方向のセルの配置を中央に設定する
- フォントタイプをWingdingsに設定する
- フォントサイズを30に設定する
ダイスの色
- 選択セルD1〜F3をドラッグ
- セルの背景色を青に設定する
- 選択セルH1〜J3をドラッグ
- セルの背景色を赤に設定する
03の09
RANDBETWEENファンクションの追加
RANDBETWEEN関数は、2つのダイスに表示された乱数を生成するために使用されます。
最初のダイのために
- セルE5をクリックします。
- リボンメニューの式タブをクリックします。
- リボンからMath＆Trigを選択して関数ドロップダウンリストを開きます。
- リスト内のRANDBETWEENをクリックして、関数のダイアログボックスを表示します。
- ダイアログボックスの「ボトム」行をクリックします。
- この行に番号1を入力します。
- ダイアログボックスの "Top"行をクリックします。
- この行に番号6（6）を入力します。
- [OK]をクリックします。
- セルE5には1〜6の乱数が表示されます。
第二のダイス
- セルI5をクリックします。
- 上記の手順2〜9を繰り返します。
- 1〜6の乱数がセルI5に表示されます。
04/09
ドットの背後にある機能（＃1）
セルD1とF3に次の関数を入力します。
= IF（AND（E5 = 2、E5 <= 6）、 "1"、 ""）
この関数は、セルE5の乱数が2と6の間にあるかどうかを調べるためにテストします。そうであれば、セルD1とF3に "l"を置きます。 そうでない場合、セルはブランク（ ""）のままになります。
2番目のダイに同じ結果を得るには、セルH1とJ3に次の関数を入力します。
= IF（AND（I5> = 2、I5 <= 6）、 "1"、 ""）
注意：文字 "l"（小文字のL）は、Wingdingsフォントのドットです。
05の09
ドットの背後にある機能（＃2）
セルD2とF2に次の関数を入力します。
= IF（E5 = 6、 "1"、 ""）
この関数は、セルE5の乱数が6に等しいかどうかを調べる。もしそうであれば、セルD2およびF23に "l"をセットする。 そうでない場合、セルはブランク（ ""）のままになります。
2番目のダイに対して同じ結果を得るには、セルH2とJ2に次の関数を入力します。
= IF（I5 = 6、 "1"、 ""）
注意：文字 "l"（小文字のL）は、Wingdingsフォントのドットです。
06の06
ドットの背後にある機能（＃3）
セルD3とF1に次の関数を入力します。
= IF（AND（E5 = 4、E5 <= 6）、 "1"、 ""）
この関数は、セルE5の乱数が4と6との間にあるかどうかを調べる。そうであれば、セルD1とF3に "l"を代入する。 そうでない場合、セルはブランク（ ""）のままになります。
2番目のダイに対して同じ結果を得るには、セルH3とJ1に次の関数を入力します。
= IF（AND（I5> = 4、I5 <= 6）、 "1"、 ""）
注意：文字 "l"（小文字のL）は、Wingdingsフォントのドットです。
07の09
ドットの背後にある機能（＃4）
セルE2に次の関数を入力します。
= IF（OR（E5 = 1、E5 = 3、E5 = 5）、 "1"、 ""）
この関数は、セルE2の乱数が1、3、または5に等しいかどうかを調べるためにテストします。そうであれば、セルE2に "l"を配置します。 そうでない場合、セルはブランク（ ""）のままになります。
2番目のダイに対して同じ結果を得るには、セルI2に次の関数を入力します。
= IF（OR（I5 = 1、I5 = 3、I5 = 5）、 "1"、 ""）
注意：文字 "l"（小文字のL）は、Wingdingsフォントのドットです。
08の09
ダイスを転がす
ダイスを「ロール」するには、キーボードのF 9キーを押します。
これを行うと、Excelはワークシートのすべての関数と数式を再計算します。 これにより、セルE5とI5のRANDBETWEEN関数が1と6の間の別の乱数を生成します。
09 09
RANDBETWEEN関数を非表示にする
サイコロが完了し、すべての機能が正常に動作していることを確認するためにテストされたら 、セルE5とI5のRANDBETWEEN機能を隠すことができます。
機能を隠すことはオプションのステップです。 そうすることで、ダイスローラーの仕組みの「謎」が増します。
RANDBETWEEN関数を非表示にするには
- 選択セルE5〜I5をドラッグします。
- これらのセルのフォント色を背景色に合わせて変更します。 この場合、「白」に変更してください。