今、エクセルにて商品管理をするツールを作成していました。 ユーザーフォームにて、売却した商品コードを入力すると、在庫シートから該当商品を検索し、ユーザーフォーム内に商品データが入力されるようになっています。 売上登録処理を実行した時に、売買明細シートへＡ列には(1)売却した商品コード、Ｂ列には(2)売却した商品名、Ｃ列には(3)売却価額、Ｄ列には(4)売却した商品の仕入価額（これは”在庫シート”の中で商品コード（Ｂ列）を検索し、在庫シートのＪ列から引っ張る）という情報を転記したあと、(5)在庫シートへ記載されているその商品情報の行を削除したいのです。 (1)～(3)の処理はできたのですが、(4)の在庫シート内で商品コードを検索する というコードが書けません。 (1)～(3)の処理は、 Dim Ctrl As Control With Worksheets("売買明細") 'A列の最終セルからEndプロパティでデータの最終行を取得し、 '＋１をして、次にデータを入力する行の行番号を取得 RowNum = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'ワークシートの行列を指定してテキストボックスの値を1つずつセルへ代入 .Cells(RowNum, 1).Value = Me.商品コード.Value .Cells(RowNum, 2).Value = Me.商品名.Value … 以下続くとしました。 すみませんが、どなたかお知恵を貸していただけないでしょうか。 よろしくお願いいたします。
↧