再質問、VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。

Question

昨日解決させていただいた件名内容で、質問したいのですが、サンプルはうまくいきましたが、実際のものに、変えて動かすと、エラーがでます。
エラー内容はあとで送ります。
再度確認なのですが、以前送付いただいた転記部分で、変数iがどうしても、０になり、値が入りません。
もしかして、比較しているws1とws2で、データが無いものが、あれば、エラーになるでしょうか？
実際のものはws1にあって、ws2にないもの、または逆、があります。
何度もすみませんが、よろしくお願い致します。

tatsumaru77 · Accepted Answer

ダウンロードして拝見しました。
ざっと見たところ、かなり複雑な条件になってます。また、上位Nロットのみ転記条件も、処理としては面倒になります。
申し訳ありませんが、私の方ではできませんので、業者に依頼する等の方法で対処していただけませんでしょうか。

tatsumaru77 · Answer

>こんばんわ、先日作成いただいたVBAをテストした結果上手くいきました。本当にありがとうございました。

回答：関数式の埋め込みも成功したのでしょうか？

>あとすみませんが、このプログラム内容で、さらに条件をいくつも追加したときの作成方法を教えていただきたいのですが、大丈夫でしょうか？

回答：どのような、条件でしょうか？

tatsumaru77 · Answer

No6の残っている問題点１で、
M列も含めてA～AB列をソートすると関数がなくなると書きましたが、
誤りでした。
関数式は残りますので、問題点１は取り消します。
只、関数式は残りますが、そのセルはソートされ移動します。
従って、セルの参照を行う場合は、その点に留意してください。

tatsumaru77 · Answer

暫定修正版をアップしました。ご確認ください。
https://firestorage.jp/download/a5f98f3eafc627b3991d12047932f22401d2b187

残っている問題点
１．M列に関数を埋め込む予定ということですが、
M列も含めてA～AB列をソートします。そうすると関数がなくなってしまいます。
その為、対策としては、
案①AC列にをM列の代わりに使い、そこに関数式を埋め込む。
案②マクロでソート完了後に関数式を埋め込む。
又は、関数式と同じ演算をして、結果を設定する。

が考えられます。
案①の場合は、あなたの方で埋め込めばよいので特に問題はありません。
案②の場合は、埋め込む関数式（関数式で行いたいことの説明）を提示してください。

２．関数式を埋め込む場合、引当リストのB～I列は、その車種の先頭の行のみデータが設定されてます。
従って、H列（指定分散数）、I列（引き当て在庫数）を関数式に埋め込むことはできません。
（その車種の先頭の行のみを使用するようにすれば、この限りではありませんが、その位置は毎回かわるので事前に埋め込むことはできないかと）

３．引当リストの未設定項目
全ての列が今回のマクロで設定されたわけではありませんので、
残りの列はあなたの方で確認及び設定を行ってください。
（不明点があれば問い合わせください）

４．注残リストの車種が、各品種在庫リストの車種にない場合の試験をしたので、注残リストが一部変わっています。

tatsumaru77 · Answer

４．注残リストの車種が、各品種在庫リストの車種にないケースがあるそうですが、その場合、
現在はエラーメッセージを表示し、処理を打ち切っています。この場合、どのようにされることを望みますか。
①現状通り（処理打ち切り）
②エラーメッセージを表示して、次の行の車種を処理する。
③エラーメッセージを表示せず、次の行の車種を処理する。
等が考えられます。

tatsumaru77 · Answer

補足ありがとうございました。
以下五月雨式になりますが追加の不明点です。

１．下記の確認です。
注残リストのG列の工場受注は　引当リストH列の工場受注・指定分散納数へ転記
各品種在庫リストのD列の在庫量は　引当リストK列の引き当て在庫数・PSリアル在庫へ転記
であってますか。

２．各品種在庫リストのSコードは　引当リストのSコード（Q列）へ転記し
これが「不良」なら、引き当て状態（A列）は他になりますがあってますか。
又、「なし」を設定する列は　引当リストのN（S列）であってますか。

３．ws3(引当リスト)の６行目以降を最初にクリアしておかないと、
処理が円滑に進まないのですが、
ws3の６行目以降のどこに関数式が埋め込まれているのでしょうか？
みたところ関数式が埋め込まれていません。
もし、今後、埋め込む予定があるなら、その個所を提示していただけませんでしょうか。

tatsumaru77 · Answer

今、ダウンロードして確認してみましたが、レイアウトが当初あなたが提示したものと、変わっているので、面食らっています。
レイアウトが全く同じであれば、私が提示した、
Public Sub 転記2()
をそのまま使っていただければ、問題ないのですが、
レイアウトが変わっているので、何をなさりたいのかを解析するまでに時間がかかりそうです。

最初に提示したレイアウトでの、必要重量と部品重量は、新しいレイアウトでは、何と何との名称になりますか。
必要重量に対応するのはなんでしょうか。
部品重量に対応するのはなんでしょうか。
また、必要重量の１０％以内が○という関係は、新しいレイアウトでも有効ですか。並べかえの順序なども、レイアウトと名称が変わるだけで、全く同じ考え方で良いのでしょうか。

前のレイアウトでは、ws3のK,L列をソートのため作業用に使っていましたが、新しいレイアウトでは、使っていない、AA列、AB列を使いますがよろしいでしょうか。

tatsumaru77 · Answer

下記にアップしていただけませんでしょうか。
https://firestorage.jp/
そうしていただけれれば、こちらでチェックします。
アップが完了しましたら、そのURLを提示してください。

tatsumaru77 · Answer

前回回答者です。
ws1にあって、ws2にないものがある場合、ws1の車種が処理されないだけです。

ws2にあって、ws1にないものがある場合、エラーメッセージ
「車種が在庫一覧にありません」その車種の行で止まります。

再質問、VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。

ダウンロードして拝見しました。

>こんばんわ、先日作成いただいたVBAをテストした結果上手くいきました。

No6の残っている問題点１で、

暫定修正版をアップしました。

４．注残リストの車種が、各品種在庫リストの車種にないケースがあるそうですが、その場合、

補足ありがとうございました。

今、ダウンロードして確認してみましたが、レイアウトが当初あなたが提示したものと、変わっているので、面食らっています。

下記にアップしていただけませんでしょうか。

前回回答者です。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング