マクロ

質問

お世話になります。
仕事(加工業)でマクロを使用したいのですが、例えば
重さとサイズの異なる加工素材が100枚あるとします。
一回に加工できる量が25枚とします。
重さとサイズを計測して、それぞれを小さい順に並び変えて
あらかじめ別のシートに4つのグループ表を作って、そこに並び変えた
データを自動的に入力させます。
加工素材には、それぞれ通し番号を記載しているので、データを
基に製品を抜き取って行き、グループ分けして加工します。
ここまで作業を記憶させる方法でマクロ化出来たのですが、
加工素材の数量は日によってまちまちで、切りのよい数字になるのも稀です。
例えば345枚の場合、25枚のグループを13、20枚のグループを1つ
作るのですが、25枚の1グループとしているので端数が出ると並び変えが
うまく出来なくなります。端数が出た場合も例えば、25枚のグループを○○個、
20枚のグループを○○個と事前に入力して、その通りにグループ分け出来る
様にマクロで自動的に最適化するようにしたいのですが、方法はありますか？

回答No.2

KURUMITO · ベストアンサー

数学に強くありませんのでベストな考え方とも思いませんが次のようにしてはどうでしょう。
例えば355枚の場合です。
初めに355を25で割って整数部分をとれば14が得られますね。またその時の余りは5ですね。
次には計算のループを作って14個の一つを２０枚のグループに回したら30、二つを20枚のグループに回したら55、三つを回したら80になります。各ステップで20で割った値がちょうど整数となった時点でループの計算を止めると三つを回したときに20枚のグループは4個，25枚のグループは14－3で11個となりますね。それがもとめる答えとなるでしょう。マクロを作って計算するのですから上記の計算は容易にできることでしょう。

回答No.3

keithin

25個と20個のグループに振り分けるなら，最低限，全数は５の倍数でなければならない縛りはあります。
あとは鶴亀算のちょっとした応用で

　dim n, x25, x20, i
　n = 355
　n = application.roundup(n / 5, 0) * 5
　x20 = (application.roundup(n / 25, 0) * 25 - n) / (25 - 20)
　x25 = (n - x20 * 20) / 25

　for i = 1 to x25
　　２５への１回分転記マクロを計x25の回数動かす
　next i
　for i = 1 to x20
　　引き続き２０への１回分転記マクロを計x20の回数動かす
　next i

といった組み立てになります。

全数が５に満たない端数をもっている場合に，最後の20への転記がエラーにならないよう気をつける必要はあります。

回答No.1

snowsan062

出来ると思いますけど
言葉だけの説明だといまいちわからないですね。
仕事だから、コードは出せないんですよね？
単純に長いからかもしれませんが。