|
ご指摘ありがとうございます。
>>オートフィルタそかけた行の指定セルに貼り付けするにはどうしたらいいでしょうか?
>>最終的には、在庫シートに転記された販売数を仕入れシートに転記して、現在数を
>>だしたいのです。
>「オートフィルタで抽出したデータ」がどうな風にフィルタをかけているのか解らないから、どの部分だか解らない。
オートフィルタで抽出したデータとは、在庫シートの入力フォーマットを入力する時に、仕入れ番号と販売数を入れるので、仕入れ番号のデータをオートフィルタをかけて表示するということです。
取引を全て商品名ではなく、番号を振り当てて管理しています。
上記箇所の
>If WS3.AutoFilterMode = False Then
> WS3.Range("A:AQ").AutoFilter Field:=2, Criteria1:=WS4.Range("B23")
のB23とは仕入れ番号です。
>また指定セルにって簡単に言っているけど、どんな状態のセルなのかさっぱり解らない。
>どのように張付けるのかも解らないです。
>
説明不足で申し訳ありません。
指定セルというのは、仕入シートも在庫シートも同じ取引番号が入力されているので、両方とも同じ取引番号でオートフィルタをかけた後のセルです。
仕入れシートでオートフィルタをかけると、在庫数という列があり、オートフィルタをかけた在庫数というセルに在庫シートから抽出したデータを貼り付けたいとおもっています。
今回のコードは仕様書も設計書もなく、いろいろと要求がきて随時機能を追加している。。。という感じなので、私の方でも対応ができず、以前に作っていたものを
途中から書き換えて・・・。
という形でできてしまったので、
上記のような形式になってしまいました。
もっと簡単な方法があるのなら、そうしたいのですが・・。
>もっと簡単に書けたかなと思っていますが....。
>(最も仕様をどうするか決めていなかったから試作みたいな物。)
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=142;id=FAQ
|
|