VA配当率：配当率を自動計算（エクセルVBA）

破産手続のために法律事務員が行わなければならない仕事のひとつに、配当表の作成がありますが、配当率の計算が面倒ですよね。
そこで、エクセルのマクロを使って配当率を計算する方法を紹介します。

確かに、配当額の総額と配当可能原資とを完全に一致させようと思うと、すごく時間がかかってしまうんです。

マクロを使えば、簡単に計算できるようになりますよ。

そんなこともできるんですか？
ぜひ、教えて下さい。

サンプルのダウンロード

このマクロのインストールは、こちらからセットアップファイル（Windows専用）をダウンロードしても行えます。

目標とする「合計金額（配当総額）」に一致するように、指定されたセルの「配当率（小数点以下の数値）」を自動計算（逆算）するVBAツール。

Excelのゴールシーク機能に似ているが、小数点以下の桁数を指定して、下位桁へ向かって探索範囲を絞り込みながら計算することで、高精度かつ高速に解を求める点が特徴。

プロジェクトは以下のモジュールで構成すること。

プロシージャ: ShowDividendCalcForm / OnRibbonBtnClick

ユーザーフォーム frmDividendCalc をモードレス（vbModeless）で表示する。これにより、ユーザーはフォームを開いたままシート操作が可能となる。

関数: CalcDivRate(rngTotal, rngRate, lngTarget, iMax) As Double

機能: 目標値になる配当率を探索計算する。
引数:
- rngTotal: 合計値が表示されるセル（数式が入っている前提）。
- rngRate: 配当率を入力するセル（可変セル）。
- lngTarget: 目標とする合計値（Currency型）。
- iMax: 探索する小数点以下の最大桁数。
アルゴリズム（高速化の肝）:
- 単純な総当たり（0.00…01ずつ増やす）では時間がかかりすぎるため、**「桁ごとの絞り込み探索」**を行う。
- 変数 jLower（下値）と jUpper（上値）を用意し、初期値は 0 と 1 とする。
- 小数点以下 i 桁目のループ（1 to iMax）:
  - 前の桁の結果をベースに探索範囲を拡大：jLower = jLower * 10, jUpper = jUpper * 10。
  - j を jLower から jUpper までループさせる。
  - 配当率セルに j / (10 ^ i) を入力。
  - 合計セル(rngTotal)の値を読み取る。
  - 判定ロジック:
    - 合計 < 目標: まだ足りないため、下値 jLower を現在の j に更新。
    - 合計 > 目標: 超えてしまったため、上値 jUpper を現在の j に更新してループを抜ける（次の桁でこの間を探索するため）。
    - 合計 = 目標: 解が見つかったので終了。
戻り値: 見つかった配当率。見つからなければ 0。

コントロール構成:
- 合計値セル指定: txtTotalCell (TextBox), btnSelectTotal (Button)。
- 配当率セル指定: txtRateCell (TextBox), btnSelectRate (Button)。
- 目標値入力: txtTarget (TextBox)。
- 最大桁数指定: txtMaxDigits (TextBox), spnMaxDigits (SpinButton)。
- 実行: btnCalc (CommandButton)。
- 閉じる: btnCancel (CommandButton)。
イベント処理:
- セル選択ボタン (btnSelectTotal_Click, btnSelectRate_Click):
  - Application.InputBox(Type:=8) を使用して、マウスでセルを選択させる。
  - キャンセル時のエラーハンドリングを行い、選択されたアドレスをテキストボックスに格納する。
- 目標値フォーマット (txtTarget_AfterUpdate):
  - 入力確定後、数値を3桁区切り（”#,##0″）に整形する。
- 計算実行 (btnCalc_Click):
  - 入力バリデーション（空欄チェック、数値チェック）。
  - mdlDividendCalc.CalcDivRate を呼び出し、結果判定を行う。
  - 成功時は「正答が見つかりました」、失敗時は「見つかりませんでした」とMsgBoxを表示する。

メタデータ:
- ツール名：「VA配当率」
- URL：https://vba-assets.net/automatically-calculate-the-dividend-rate/
- 著作権：2020-2025 VBA アセット
更新履歴:
- 2026/1/3: 配当率計算ブックから抽出して作成 (Ver100)
- 2026/1/23: リボン対応 (Ver110)

探索ロジックの効率性:
- CalcDivRate関数は、UDF（ユーザー定義関数）としてではなく、マクロからセル値を書き換える処理として実装すること。
- ScreenUpdating = False を使用して描画コストを抑えること。
型と精度:
- 金額計算には誤差の少ない Currency 型を使用すること。
- 配当率は Double 型を使用すること。
UIのユーザビリティ:
- フォームはモードレスで表示し、計算中もExcelシートが見えるようにすること。
- InputBoxでのセル選択時は、ユーザーがキャンセルしてもVBAエラー画面が出ないように On Error Resume Next で適切に処理すること。