VBAで機械学習的なこと

Question

目標値に近づける

画像のような表で、やりたいことがありまして
表の個数と金額は紐づいていて修正セルに差引する個数の数字を入れて個数差、金額差を無くし最終的には最終目標個数と最終目標金額と一致するように計算させたいです。その中で現在個数の中にはマイナスになっているものがあるのでそれもプラスになるように修正した上で上記のことを行いたいです。

試したこと

ひたすらにランダムに数字を当てはめてどっちも０になるまで繰り返すということを試してみたのですが
データが１００以上あるため何十万回ループさせてもうまくいきませんでした。

Comments

[tabuu]

修正に入れる数字に制限はありますか？
個数差、金額差は両方0にする必要はありますか？最小値ではダメですか？

[Fertyo]

修正に入れる数字に制限はありません。
個数差、金額差は両方０にする必要があります。

Answer 1

ソルバーを使ってはどうでしょうか。
概要は以下のとおりです。

○単価が同じデータは、集約したほうが何かと都合がよい。

• 集約したほうが効率がよい。
• ソルバーの制約条件（変数の個数は最大200個、条件数は最大100）に抵触するリスクを回避できます。

○ソルバーの内容

• 変動させる変数
  単価毎の各データにおける加減個数を以下、n(i)と書き、これを変動変数とします。
• 制約条件
  0. n(i)は整数であること。
  0. n(i) は、減算後の個数はプラスである必要があります。
  (例. n(i) >= (-1) * 現在の個数(i)
  これはiの数だけ,個々に記述する必要があります。)
  0. Σn(i) = -1
  (合計セルを作っておいて、それが　-1であることを要件に。）
  0. Σn(i) * 単価(i) が必要な差分に等しいこと。
  （計算式をセルに埋め、これが差分に一致することを要件に。）
• 最適化目標

n(i)の絶対値の合計を"最小化"します。(計算セルを作り、それを最小化。）

• ３つのアルゴリズムのうち、"エボリューショナリー"が適切かと思います。

○ 実行には分単位で時間がかかると思いますが、提示されたケースでは、以下のような結果が得られます。

    単価     修正個数  
     2190            6
      880            5
      840            0
      700           -1
      670            0
      640            0
      580            0
      520           -2
      240           -9
    --------------------  
      個数増減計    -1
      金額増減計 13640

(表示されたデータだけでは、現在金額合計を再現できない。表示されたデータを元に、差分13640を構成する組み合わせを算出したものです。）
なお、詳細を書く能力がありませんので、問い合わせにはお応えできません。