VBA初心者です。ファイルの検索、貼り付け方を教えてください。

はじめまして。
中小企業の工場で働いている者です。

伝票作成の効率化のため
選択したセルの部品のファイルを特定のフォルダから検索し、注文番号を張り付ける、
というマクロを作成したいと思うのですが、
VBA初心者の私にはプログラムを作れそうにありません。

誰かお力添え頂けませんでしょうか。


具体的には、まず、下のような、注文一覧表Ⅰがあり、
B列に顧客NO.、C列に注文番号、F列に部品番号を入力しています。

------A ---------- B---------------C------------D -------------E ----------- F
1---------------顧客NO.--------注文番号----------------------------------部品番号
2----------------aaa ------------注文あ-------------------------------------部品い
3----------------bbb-------------注文う------------------------------------部品え
4----------------ccc-------------注文お-------------------------------------部品か
･
･

F2の『部品い』のセルをクリックし、マクロのボタンを押すと
デスクトップ上の「伝票一覧Ⅱ」のショートカットファイル（伝票一覧Ⅱは会社のサーバー内のファイル）から『部品い』を含むエクセルファイルを検索し開く。

『部品い』のエクセルファイルは、Sheet1からSheet3まであり
（伝票一覧Ⅱのエクセルファイルは、必ず、Sheet1からSheet3まであります。）、
まず、Sheet3のL1のセルに
注文一覧表Ⅰの『部品い』と同じ行のC列の『注文あ』を張り付ける。

Sheet3
---A-B-C-D-E-F-G-H-I-J-K-------L
1---------------------------------注文あ

次に、Sheet2の「注文番号」と書いてあるセルの同列の１つ下の行のセルに
注文一覧表Ⅰの『部品い』と同じ行のC列の『注文あ』を張り付ける。
（若干、部品によって、様式（注文番号と書いている行列）が違います。）

Sheet2（例えば）
---A-B-C-D-E-F-G-H-I-J-------K
1------------------------------注文番号
2------------------------------注文あ

続いて、
Sheet1の「注文番号」と書いてあるセルの同行の１つ右の列のセルに
注文一覧表Ⅰの『部品い』と同じ行のC列の『注文あ』を張り付ける。
また、
「管理番号」と書いてあるセルの同行の２つ右のセルに、
注文一覧表Ⅰの『部品い』と同じ行のC列の『注文あ』を張り付ける。
また、
『顧客NO.』と書いてあるセルの同行の１つ右の列のセルに、
注文一覧表Ⅰの『部品い』と同じ行のB列の『aaa』を張り付ける。
　
Sheet1(例えば）
-----A--------------B--------C-------D-E-F-G-H-I-------------J------------K 　
1--------------------------------------------------------------注文番号-----注文あ
2--管理番号----------------注文あ
3
4--顧客NO.-------aaa
　　　　　　　　　　　　

次に、デスクトップ上の「伝票一覧Ⅲ」のショートカットファイル（伝票一覧Ⅲも会社のサーバー内のファイル）から『部品い』を含むファイル（DocuWorks文書 (.xdw)）を検索。検索結果の表示。

以上になります。

その後、注文一覧表Ⅰの『部品え』、『部品か』と伝票を出していきますが、
間違えないように、１部品毎、プリントアウトしていく予定でおります。

よろしくお願い致します。

No.1 ベストアンサー 回答者： yokomaya 回答日時： 2017/02/23 09:59

>VBA初心者の私にはプログラムを作れそうにありません。

無理です。
というのは初心者は構わないんですが、
富士山に最初から登りたいというような話で
まずは近所の丘に着実に登ることから始めなければなりません。

質問は多岐にわたって判らないことだらけですよね。
このような状態で教えてもらっても理解できることはありません。
表題が「ファイルの検索、貼り付け方を教えてください。」
であるにも関わらず、内容は複雑。

質問はひとつづつ、尚且つ8割り型判っているけど
あと少しが乗り越えられないということを
一点ずつ尋ねて解決するのが上達への早道です。

そこでまずは「ファイルを特定のフォルダから検索し」
この一点だけを見てみましょう。
これはDir()で実現出来ます。
まず　excel vba dir でググりましょう。
使い方が沢山出てきますから、自分の環境で試すんです。
それだけだって最初は簡単には行かない事が多いもので
その時にわからない点を尋ねるんです。

何時間もかかる話を丸投げしてはいけません。
天は自ら助くる者を助くです。

この回答へのお礼

厳しいお言葉ありがとうございます。
頑張ります。

お礼日時：2017/03/06 17:18

No.2 回答者： hallo-2007 回答日時： 2017/02/23 19:25

No1の方と重複するかもしれませんが、

質問の内容を実行しようとすると、かなり長いコードになるでしょう。
条件が非常に多いからです。
多分に、パソコン以前に手書きの状態の仕事の流れをそのまま置き換えていませんか？
まず部品の種類の数だけ、ファイルがあるところから難しくしています。
基本的なシートの構成で言えば
部品情報一覧のシート
全ての部品の情報を一行、一部品でデータ化します。
部品管理Noも必要でしょう。
取引先情報なども一枚のシートにします。
これらは、あまり頻繁に編集することも発生しないデータの類です。
追加して、日々の注文のシートを準備します。
ここに、注文の単位ごとにデータを入力していきます。
必要な伝票のフォーマットに作成して
最後に、その３つのデータを利用して伝票を作成します。
パソコンを活用するにパソコン管理にあったデータの持ち方から
仕事の流れを考え直す方が先決だと思います。