Excel VBA 質問スレッド No.207 (未解決)

ファイルを項目別に分け、項目別に別ブックで保存する

投稿者 : まなまな     投稿日時 : 2021/03/31(Wed) 22:23:37     OS : Windows 10     EXCEL : 未指定
行 B列 C列 D列
6 「棚番」   「上位品番」 「投入工程」
7 A ZY-33251000-U3 マウント(表)
8 A ZY-33251000-U4.15 マウント(裏)
9 A ZY-33251000-U5 マウント(裏)
~ ~ ~ ~
250 A ZY-33251000-U5 マウント(表)
という表があります。
この表の中から上位品番列と投入工程列でフィルタを掛け
項目別に保存したいです。
分けられると指定したフォルダのの中に4つのファイルができるのが理想です
ZY-33251000-U3マウント(表)
ZY-33251000-U4.15マウント(裏)
ZY-33251000-U5マウント(裏)
ZY-33251000-U5マウント(表)

しかし、上位品番列はすべて同じ内容の時があります
そういう際は投入工程でフィルターを掛けます。

保存する際のファイル名はダイアルボックスで開いたファイル名の後ろに上位品番列+投入工程が入ります
例えば
開いたファイル名ZY-33251000-U3マウント(表)という感じです。
開いたファイル名マウント(表)⇒上位品番がない場合
こういうことをやりたい場合はどのようなコードを書いたらいいでしょうか?
1列ならネットなどであるのですが2列となるとなかない為質問させてもらいました。
行数は最大250行あります。
開いた先のシート名は名前は毎回変わりますが一番左のシートです。

[返信 1] Re : ファイルを項目別に分け、項目別に別ブックで保存する
投稿者 : ヘンリー     投稿日時 : 2021/04/06(Tue) 11:43:48
>1列ならネットなどであるのですが2列となるとなかない為質問させてもらいました。

1列の物をネットで確認した時に、内容はご理解されたのでしょうか。
1列をコントロールできなければ、複数をコントロールする事は困難です。
逆に1列でコントロールできれば、2列でも3列でも、コントロールできるようになります。
例えば、1列でコントロールできるなら、&演算子を使って文字列結合してしまう…など。

>どのようなコードを書いたらいいでしょうか?
コードの代筆は出来かねます。

VBAのコードがわからないというより、
まずは、プログラムを作るための考え方をお教えいたします。


【考え方】
・仕様について、文書ではなく箇条書きにする
・コンピュータにやらせたい事を、文書ではなく箇条書きにする


【仕様について】
①source.xlsmファイルがある
②①のファイルの中に上記のような表がある

>分けられると指定したフォルダのの中に4つのファイルができるのが理想です
この文書からだと新規ファイルを作るように思えますが、

>保存する際のファイル名はダイアルボックスで開いたファイル名の後ろに上位品番列+投入工程が入ります
>開いたファイル名ZY-33251000-U3マウント(表)という感じです。
>開いたファイル名マウント(表)⇒上位品番がない場合
これらの文書だとVBAからダイアログを表示して、ユーザにファイルを選択させるように思えます。

又、「開いたファイル名」が、どのファイルを指しているか分かりません。

③「上位品番」+「投入工程」のファイル名が存在しない場合は、ファイルを新規作成
 存在する場合は、該当するファイル名のファイルを開く
④③でファイルが存在する場合は、1番左のシートに書き込む

こんな感じで、1つずつ細かく分けて箇条書きにしてみて下さい。

私なりに、何回も読み直しては見た物の、
やはり仕様が不明確な部分が多いため、
おそらく、他の方も回答に困っているのかと思います。
その為、なかなかレスが付かないような気がします。

【コンピュータにやらせたい事】
仕様が不明確なため、こちらも何をコンピュータにやらせたいか不明確です。
こちらは、コンピュータにやらせる順番も重要になるので、
箇条書きで書いた後、順番の並び替えも必要になると思います。

ちなみに、、、
「フローチャート」という物をご存じでしょうか。
コンピュータにやらせたい事をまとめるには、
最初のころは、フローチャートを使うとよいかもしれません。

ttps://tech-blog.rakus.co.jp/entry/202001026/flow-chart

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2021-04-21 08:04:18 )

Page
Top