###### tags: `TOHO` #### VBAによるスクリプトの流れ - `注文推移表.xls` が、転記先Excel, `newest_kakutei_orders.xls` が、データソースとなるExcelです。 - `注文推移表.xls` 内に "最新データ反映" ボタンを設置しておき、 - 押下すると下記Run - まず、年月を取得: `開始日付 (セルE1)` から、対象年月を決定 - 対象年月から、**データ取得対象納入日期間** 対象を定義 => 対象年月の月初 〜 翌月20日 を期間とする - 例えば6月分であれば、 データ取得対象納入日: 2019/06/01 - 2019/07/20 となる - `newest_kakutei_orders.xls` ファイル内から `品番 (D列)` と `納入日 (H列)` で日毎に `納入数 (L列)` を集計し、 `注文推移表.xls` へ**正しい出荷日**で数量を転記 - 正しい出荷日 = 納入日 - `出荷リードタイム日数 (E列, 数値)` 空の場合、デフォルト値として 1 (日) を利用する, このとき **営業日のみを計算対象とする** - 営業日: `注文推移表.xls` 行1 `休日?` が空欄のものは営業日。 - なので、大まかに言うと月曜納入日のものは、金曜出荷になることが多くなる - 出荷リードタイム: 出荷日 => 納入日までの日数。最短は1日 (翌日に届く) - その品番の "納入日" を参照しつつ、日毎集計 - 行頭に `'` が入っている品番があるので表記ゆれ注意 - `注文推移表.xls` 内へ出荷数を転記する - "品番" x "出荷日" で + 変動があった場合のみセルコメントに追記 - 数量変動があった場合: - セルコメントの行頭に追記: [mm/dd HH:ii] 1200 => 1400 - セル背景色を青色に - 新規追加の場合: - セルコメントの行頭に追記: [mm/dd HH:ii] 1200 (新) - セル背景色を緑色に - 変動がない場合: セル背景色をリセットする #### Excel注記: (コチラ川端のメモです) - ☆ `開始日付 (セルE1)` セル: 6月であれば、 2019/06/01 を入れてもらう - `出荷日数 (セルO2)` は、日付け入力時に自動計算されます。 (当月末日までの営業日数を表示) - ☆ `単価` シートに出荷リードタイム日数 (E列) を追加。2日以上のもののみで良いので、追記してもらう - ☆ 行1 `休日?` 行に `Y` を入れてもらうと、休日扱い (営業日換算されない) となります。 - デフォルトでは、土日は休日として扱います。 - 翌月20日分追加 - 例えば6月分なら、7/20まで #### その他メモ: (コチラ川端のメモです) - **出荷リードタイムが2日以上ある品番の扱いについて:** - 出荷リードタイムが、1日ズレでないものがある場合に (2, 3, 4営業日など)、その分その品番のみ出荷リードタイムを考慮した計算になっていなければならない - **`注文推移表.xls` Excel内に記載してもらうしか無い** - **出荷リードタイム 非営業日月またぎの処理:** - **Ex.1: 2019/06/29日, 30日は土日で非営業日なので、それをどうするか？** - 06/28日出荷分に、07/01日出荷分を付与しなければいけない - なので、翌月20日分までシートに追加する - 出荷日対象 + 最長出荷リードタイム日数で、**データ取得対象納入日** が決定する ------ # 追加改修 2019/07/18 MeetingにおけるFeedBack - [ ] 1. 出荷リードタイム デフォルト0日へ変更 - [ ] 2. 新品番の検出 & 追加 ("D列 品番" 元データExcelにあるのに**注文推移表 品番(D列)に無いもの**) ## 1. 出荷リードタイム デフォルト0日へ変更 - [ ] デフォルト1日 => 0日 へ変更する - デフォルトで、納入日 = 出荷日でOKなので、**出荷リードタイムデフォルト0日**でOK - 出荷リードタイム日数列はそのまま置いておく ## 2. 新品番の検出 & 追加 - [ ] 元データ内 "発注データ内対象品番" を洗い出し ("AF列 費用" の **JH50, JH60 でないもの**) - [ ] それらの品番を新規に "注文推移表.xls" に追加し - [ ] 新規追加された品番セルに - コメント `[mm/dd HH:ii] 新規` を加え - 青背景を設定 - 追加箇所は、末尾でOKです。 - 品番毎集計を走らせる前に、品番追加を走らせればOKかと - [ ] その後に、注文データ集計をRun - このとき、追加された品番の出荷リードタイムは0日(デフォルト値)で計算してしまう - [ ] 集計完了後、新規追加された品番がある場合、下記のようにアラートメッセージを出す ``` 3件の品番が追加されました 1040983 104500-02100 104600-23910 ※ 出荷リードタイムは0日で計算されています。変更する場合には、 "出荷リードタイム日数" に日数を追加しつつ出荷数をクリア後、再度取り込みを行ってください。 ``` ### "2. 新品番の検出 & 追加" の背景: マスタに新しい品番が増えてくる場合に、取り込みプログラムがどうやって対処できるか？ - **注文推移表の品番リスト(≒東豊マスタ)にない品番が出てくる！** => で、注文に気づかないのが業務上最も高リスクなので、それをポップアップで適切に処理できるようにする - **注文に来ているのに気づかない！という状態**になりえる - ので、まずは **ポップアップで出す、で人で修正する** でOK - 頻度としては、2ヶ月に1度くらい、新品番イレギュラーが発生する (事前確認なしの唐突) - 新品番とか、10年ぶりの発注、とか。 - 品番の後ろに `-B` とかが付与されてくる場合がある - これは、完成品が異なる場合もあるし、同じ場合もある - ブシュの品番だけを取り出して、「新品番 XXXX が出ました」 の通知を行う - ブシュの判別方法: 元データの "費用 (AF列)" の **JH50, JH60 以外** ※ ダブルチェックの仕組み必要か？？ ----------- # 追加改修 2019/08/01 ## 課題/実現したいこと - 受注データが毎日変動していく中で、出荷日が数日ずれたり、または出荷指示レコード自体がなくなることがあります - 例1: 品番Aの8/1日の注文1,000 が、 8/2日 1,100 に変更になる - 例2: 品番Bの8/1日の注文1,000 が、 削除される - そのときに、 8/1日の注文が残ったままになってしまうことが課題点 - そのため、下記のような仕様に変更したい ## 追加仕様 - 注文数取り込みを開始する際に、一度本日以降の数値を全てクリアした上で再度数量を埋めていくようにしたい - そうすると、 "変更" "新規" が現在のロジックでは判別できなくなるので、 - コメントから直近の取り込み数量を取得して、セルの色変更 & コメントの追加 を判別したい 　 - 現在のセルコメントのフォーマットを変更しても構いません。