| |
マナ さん
お世話になっております。
会社のPCで再現がありました。 Excel2019です。
ですが、元ネタの表がソート済でしたので、v = r1 として解決しました。
完動したら、完動しました！ 素晴らしいです！！
で、あまりに高度なコードですので、ご相談なんですが、今回の所定表（13日〜
30日で固定）、実は少しフォームが違っていて、上段がケース数とパレット数で、
下段が総数kgを入れる部分がミソで、この部分が分かれば、後はアレンジすれば
いいと思っていたのですが、前述の通りあまりに高度なコードなので、アレンジ
が出来ません。
冒頭の v = r1 で、元ネタを配列 v に入れ、それで n = UBound(v) で行数を求め、ワーク配列 w() を Redim して、得意先 センター名を dictionary で重複
取る部分も、dic(s) = dic.Count * 2 の1行で、Add を使わなくても追加できる
んですね。 問題は、w() の使い方なんです。 最初、上段のケース数とパレッ
ト数だけが表示されて、下段の総数kgが全く表示されませんでした。
これは、下段のセルを結合していたためで、w(dic(s) + 1, d + 1) = v(k, 7)
を、w(dic(s) + 1, d) = v(k, 7)に変更して解決しました。
最後に、r2.Resize(dic.Count * 2, UBound(w, 2)).Value = w で、
所定表（13日〜30日で固定）に戻す部分なんです、この部分が、実際の表は、
今回の2行（上下段）の上下に付随行があり、1つの得意先＋センター名に対して
、4行単位なんです。 これに対応できません。
よろしくご教示ください。
|
|
ackkn
- 22/1/21(金) 22:20 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
