EXCELにてマクロ失敗。簡単なシステム作りです。

質問

例えば、ＥＸＣＥＬ2003で簡単な商品管理をするとして、シート(1)にレジのようなフォーマット。シート(2)に商品情報（商品ＮＯ,商品名,色,サイズ等）があり、レジで精算処理したときに該当の商品ＮＯをシート(2)の最後部に直近の注文日をＤＡＴＥ関数で入れるとします。

私が考えてたのは、精算ボタンを押した時、シート(2)にオートフィルをかけ、シート(1)の商品ＮＯをコピーし、オプションに貼り付け絞り、ＤＡＴＥ関数を挿入するです。しかし、オプションに貼り付けできませんでした。

いくつか方法があるかと思いますので簡単な方法をいくつか教えて下さい。

あくまで絞るのは1商品で、Cells(1,○)と限定されたセルに日付を挿入するのみです。
上書きもできるようにしてください。

プリグラミングは初級レベルです。

宜しくお願い致します。

回答No.3

DOUGLAS_ · ベストアンサー

#1 です。
　大変失礼いたしました。「ＥＸＣＥＬ2003」と大きく書いていらっしゃいましたね。
（＾凹＾）

　妄想ついでに、適当な コード を書いてみましたので、ご参考までに。

「シート(1)の商品ＮＯ」が Sheet1!A2 に入っていて、「シート(2)に商品情報（商品ＮＯ」は Sheet2!B:B に入っているものとします。

Sub Macro1()
　Dim 商品NO
　商品NO = Sheets("Sheet1").Range("A2").Value
　Sheets("Sheet2").Select
　Range("A" & Rows.Count).End(xlUp).Offset(1).Select
　Columns("B:B").Find(商品NO).EntireRow.Copy Selection
　Cells(Selection.Row, 1) = Date
End Sub

回答No.2

DOUGLAS_

＞オプションに貼り付けできませんでした

　オートフィルタ の ドロップダウン の中から「（オプション...）」を クリック し、[抽出条件の指定:] を設定して、[OK] を クリック するという操作を、[新しいマクロの記録(R)...] で記録してみると、
Selection.AutoFilter Field:=1, Criteria1:="=商品ＮＯ", Operator:=xlAnd
というような コード を得ることができます。

　Excel の バージョン ぐらいはお書きになった方がよろしいかと。。。

回答No.1

imogasi

質問には各シートのデータ実例ぐらい書いて質問するべきだ。
自分の頭のイメージなど、読者にはわからない。
補足してほしい。ＶＢＡコードまで作ってくれといわんばかりの質問ならなおさらだ。
＞レジのようなフォーマット
これも読者が具体的にはよくわかりますか。
＞最後部に
何処の最後部？
＞直近の注文日
これもよくわからない。直近とは？プログラム実行日で良いのか？
＞オートフィルをかけ
なぜオートフィル？突然過ぎる。オートフィルタの誤り？
＞プリグラミングは初級レベルです。
というが、質問文の記述の仕方には無理・飛躍があって、仕様書などかけないのでは。
（１）シート（１）
＞「レジのようなフォーマッ」トを、列・行・セルの位置を示して例として記述すること。
（２）コマンドボタンをシートに貼り付け
（３）ボタンのクリックイベントにシート（２）への処理を記述。これは経験あるのかな。
（４）シート（２）のフォーマット
列・行・セルの位置を示して例として記述。
シート（１）から、商品ＮＯは持ってくるとして、それからどうするの？
何かシート（２）において、商品ＮＯで検索するのかな？
＞コピーし、
コピーというがエクセルなどのコピーは書式も含めて写す仕組み。
普通はシート（１）のあるセルの値をシート（２）のあるセルに代入（＝ＸＸ）で良いのでは。

お礼

ご回答ありがとうございました。
確かに説明不足でした。

代入は知りませんでした。
ありがとうございます。