【VBAリファレンス】エクセル雑感：ポケモンを確実に見つける方法を数学的に解析するVBAシミュレーションの実装

概要：確率論と乱数が支配する「野生遭遇」の正体

皆さんは、かつてゲーム画面の草むらを走り回り、お目当てのポケモンに出会うまで何時間も費やした経験はないでしょうか。あるいは、確率1％のレア個体を追い求めて、徒労に終わる日々を過ごした方も多いはずです。実は、これら「遭遇」という現象は、純粋な数学的確率論によって支配されています。

本稿では、Excel VBAを活用し、この「野生遭遇」という確率事象をシミュレーションすることで、「何回試行すれば、何％の確率で目的のポケモンに出会えるのか」を可視化し、さらに「確実に捕獲するための試行回数」を算出するロジックを構築します。これは単なるゲームの攻略ではなく、確率統計をExcelで解き明かす、非常に実用的なデータ分析の練習となります。

詳細解説：幾何分布を用いた理論的アプローチ

野生でポケモンに出会う確率を「p」とします。例えば、出現率5％のポケモンであれば、p = 0.05 です。このとき、1回の遭遇テストで出現しない確率は (1 – p) です。

n回試行して「一度も出現しない」確率は、(1 – p) の n 乗となります。したがって、n回試行したときに「少なくとも1回は出現する（成功する）」確率は、以下の数式で表されます。

P(n) = 1 – (1 – p)^n

この数式は「幾何分布」の累積分布関数に基づいています。例えば、出現率5％のポケモンを狙う場合、100回試行しても出会える確率は約99.4％に留まります。意外にも、100％に到達することはありません。我々が「確実」と呼ぶ状態は、数学的には「確率が極めて1に近づいた状態」を指すのです。

サンプルコード：試行回数と遭遇確率のシミュレーション

以下のVBAコードは、指定した出現率に対して、目標とする信頼区間（例：95％の確率で出会いたい）に到達するために必要な最低試行回数を計算し、シミュレーションを実行するものです。

Sub CalculatePokemonEncounter()
    ' 出現確率（例：5％ = 0.05）
    Dim p As Double: p = 0.05
    ' 目標とする信頼度（例：95％ = 0.95）
    Dim targetProbability As Double: targetProbability = 0.95
    
    ' 必要な試行回数の計算
    ' 1 - (1 - p)^n >= targetProbability
    ' (1 - p)^n <= 1 - targetProbability
    ' n * ln(1 - p) <= ln(1 - targetProbability)
    ' n >= ln(1 - targetProbability) / ln(1 - p)
    
    Dim requiredAttempts As Long
    requiredAttempts = Application.WorksheetFunction.RoundUp( _
        Log(1 - targetProbability) / Log(1 - p), 0)
    
    Debug.Print "目標確率 " & (targetProbability * 100) & "% に到達するための必要試行回数: " & requiredAttempts
    
    ' シミュレーション実行
    Dim i As Long, encounterCount As Long
    Dim rng As Double
    encounterCount = 0
    
    Randomize
    For i = 1 To requiredAttempts
        rng = Rnd()
        If rng <= p Then
            encounterCount = encounterCount + 1
        End If
    Next i
    
    MsgBox "試行回数: " & requiredAttempts & vbCrLf & _
           "遭遇回数: " & encounterCount & vbCrLf & _
           "結果: " & IIf(encounterCount > 0, "成功", "失敗")
End Sub

このコードの肝は、Log関数を用いた逆算にあります。指数関数的な減少を対数を用いて線形的に捉えることで、目標達成のための「作業量」を即座に算出しているのです。

実務アドバイス：確率と向き合うExcelの活用法

この手法は、何もゲームのためだけに存在するものではありません。実務において、例えば「Web広告のクリック率（CTR）」や「製造ラインにおける不良品の発生確率」、「営業の成約率」など、すべての確率事象に応用可能です。

1. 期待値ではなく「累積確率」で判断する
多くのビジネスパーソンが陥る罠は、期待値（確率×試行回数）のみで計画を立てることです。しかし、確率事象には必ず「ブレ」が生じます。プロジェクトの成功確率を確実に管理したいのであれば、期待値ではなく、上記のコードのように「95％や99％の確信を得るための必要試行数」を算出する習慣をつけましょう。

2. モンテカルロ・シミュレーションへの拡張
上記のコードは単一の試行を計算していますが、これを1万回繰り返すループを外側に組むことで、成功率の分布を確認できます。Excelのデータテーブル機能と組み合わせれば、さらに視覚的で説得力のあるシミュレーション資料を作成可能です。

3. 乱数のシード値の管理
VBAのRnd関数を使用する際は、必ずRandomizeステートメントを実行してください。これを怠ると、Excelを起動するたびに同じ結果が再現されてしまい、シミュレーションとしての価値を失います。

まとめ：数学で未来を制御する

「ポケモンを確実に見つける」という一見すると遊び心のあるテーマも、Excel VBAという強力なツールを通すことで、立派な統計学的シミュレーションへと昇華します。

私たちが「運」と呼んでいるものの多くは、実は適切な試行回数と確率論の理解によって、ある程度コントロール可能な領域にあります。仕事においても、闇雲に努力を重ねるのではなく、どの程度の試行回数を確保すれば、統計的に有意な結果が得られるのかを事前に計算しておくこと。それが、真のプロフェッショナルが持つ「データに基づいた意思決定」の第一歩です。

今回紹介したロジックを応用し、ぜひ皆さんの業務における成功確率を数値で捉え直してみてください。Excelは、単なる表計算ソフトではなく、あなたの意志を成功へと導く「未来予測エンジン」なのです。