エクセルＶＢＡで売上帳作成

質問

エクセルＶＢＡで売上帳を作成しているのですが、毎日の売上・入金を記載しているシートから、顧客別に売上シートを作りたいのです。

作成しているシートは
　　　Ａ　　　　Ｂ　　　　　Ｃ　　　　Ｄ　　　Ｅ　　　Ｆ　　　　Ｇ　　　　　　Ｈ
１　日付　顧客NO.　顧客名　品名　数量　単価　売上金額　入金金額
２
３

というように作っていて、これを元に顧客NO.を指定すると、該当する行のみを抜き出して、別のシートに転記されるというようにしたいのです。

どのような命令文を作ればよいのでしょうか?

回答No.4

Musaffah · ベストアンサー

簡単ですよ。

抽出元データシート："Ａ"
抽出先データシート："Ｂ"

"Ａ"に貼り付ける行を格納する変数：lSrcRow
"Ｂ"に貼り付ける行を格納する変数：lDstRow
"Ａ"→"Ｂ"に貼り付ける列を格納する変数：lCol
※変数名の１文字目"l"はLong型の変数ですよという意味です。

１．初期設定
・lSrcRow = 2
・lDstRow = 2

２．顧客番号抽出処理
２－１．lSrcRow行のＡ列にデータ入力がない場合→END
２－２．lSrcRow行の顧客番号チェック。
　　　　ＯＫ？→4.へ。
　　　　ＮＧ？→2-3へ。
２－３．lSrcRow = lSrcRow + 1
２－４．2-1に戻る

３．END
処理終了

４．顧客別データ転記処理
・lCol = 1(A列)
４－１．lCol = 1(A列)～ 8(H列)までループ。下記処理を実施。
"Ｂ".Cells(lDstRow, lCol) = "Ａ".Cells(lsrcRow, lCol)
４－２．lDstRow = lDstRow + 1
４－３．2-3に戻る。

※４．データ転記処理を別関数にする必要はないと思います。

基本的な処理はこんな感じで、あとはこれに色々アレンジすればできると思いますが。

それにしてもこの表だと、顧客No.と顧客名の入力ミスが懸念されますね。その辺が多少気になりますが。

お礼

ありがとうございます。
教えていただいた方法でやってみようと頑張ったのですが、私の知識不足のため、よく理解することができませんでした。

いろいろ調べながらもうちょっと頑張ってみたいと思います。

ちなみに顧客NO.を入力すると顧客名が出てくるようにVLOOLUPを使っています。
一応両方表示されると便利だったので。

回答No.3

hallo-2007

先ずは、マクロの記録でサンプル作成してみてください。
マクロの記録の開始
１、オートフィルター、抽出したい顧客Noで絞込み
２、1行目からたっぷりと行を選択、コピィ
３、ほかのシートを選択、貼り付け
４、データのシートへ戻って、オートフィルター解除
マクロの記録の終了
少し手直しすればよいと思います。
一例ですが、オートフィルター実行部分を
Selection.AutoFilter Field:=2, Criteria1:=InputBox("ID")
とかINPUTBOXにしてしまえば如何でしょうか。

お礼

回答ありがとうございます。

INPUTBOXの代わりに、指定したセル内に入力したIDで抽出したいのですが、なかなかうまくいきません。

もうちょっと頑張ってみたいと思います。

回答No.2

n-jun

＞これを元に顧客NO.を指定すると、該当する行のみを抜き出して、別のシートに転記されるというようにしたいのです。
＞どのような命令文を作ればよいのでしょうか?
どのように条件を与えるのでしょう。

あとコピぺ自体はＡ～Ｈ列の範囲で選択するか、Ａ～Ｉ列で貼付けた後Ｉ列を削除すれば
手作業でもできますが・・・？

それとも顧客別シートへの振り分けを考えているのでしょうか？
だとすると、
＞顧客NO.を指定すると
がかみ合わないから違うかな。

補足

＞どのように条件を与えるのでしょう。
指定したセルに顧客NO.を入力すると、別シートにその顧客のみの行を抜き出して転記するようにしたいのです。

全体の売上帳と、顧客ごとの売上帳を作りたかったのですが、毎年稼働する顧客数が何十件にもなるため、必要な時に必要な顧客の売上のみ表示させるようにしたいのです。

手作業でも出来ますが、抜き出しミスなどがあれば困るので、できれば自動で抽出される方法をとりたいのです。

回答No.1

ipsum11

ＶＢＡにこだわっていますか？

これくらいなら、オートフィルタで十分に対応できると思いますが
（コピー処理は手動ですが。。。）。
１．オートフィルタで「顧客NO.」を絞り込み
２．結果をコピー
３．別シートに貼り付け

これで簡単に出来ると思います。

ＶＢＡだと、余計手間隙かかりますよ。

補足

すみません！ひとつ書き忘れました。

Ｉ列に差額（売上－入金）が入っているのです。
転記する部分はＨ列までで、顧客別のシートでは、顧客ごとの差額を
計算させたかったので。

オートフィルタだと差額部分もそのまま抜き出してしまうので、ＶＢＡにこだわっていたのです。

説明不足ですみませんでした。
宜しくお願いします。