Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2790 / 76735

←次へ　｜　前へ→


	【79585】Cells.Findについて（在庫管理システム）

おはぎ - 18/1/25(木) 20:24 -


	引用なし

	パスワード

はじめまして。
VBA初心者ですが、会社で在庫管理システムの作成を任され、悪戦苦闘しております。
かなり最初の部分で躓いてしまいました。
過去ログ検索しても分からなかったので、教えて下さい。
作りかけのコードには執着ありませんので、「もっとこうした方が良いよ」などあれば、ご教示頂けるとうれしいです。

◆最終的に作ろうとしているもの
　製品（複数種類）を販売すると、部品毎に在庫が引かれていくシステム。
　カスタム依頼も多いので、対応可能なもの。

◆今作っている部分
　最初の、製品登録画面。
　「Parts List」というシートに、部品の情報がまとまっている。
　それとは別に製品（完成品）ごとのシートを作成し、そこへ必要な部品と数を予め登録する

◆引っかかっている点
　「Parts List」の(B,5)に「Part Number」という項目があり、
　　(B,6)以下に1000件程、コードが並んでいる。
　　製品ページにてコードを入力すると、「Parts List」
　　シートより、以下の情報を自動的に引っ張ってくる。
　　１．(C,6)以下のパーツ名
　　２．(E,6)以下の製造元会社名
　　３．(M,6)以下の値段（原価）
　　４．(O,6)以下の値段（販売価格）

◆作成したコード（途中）
Option Explicit

Sub パーツリストから詳細を取得2()

Dim i As Integer
Dim r As Range
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row
'選択中のシートのE列最終行を取得

i = 6

'For i = 6 To LastRow
　　
　　Set r = Worksheets("Parts List").Cells.Find(Worksheets(ActiveSheet.Name).Cells(i, 5).Value)
　　
　　　　If Not r Is Nothing Then
　　　　　　Cells(i, 7) = Worksheets("Parts List").r.Value
　　　　
　　　　　　'以降はエラー処理
　　　　　　Else
　　　　　　MsgBox "該当パーツが見つかりません", vbExclamation
　　　　End If
　　'i = i + 1

'Next

End Sub

◆できないこと
１．変数「r」に代入された「Range」の値を変更する（B列を取得しているが、C,Dと横にずれて、それぞれの値を取得したい）
２．製品シートに値を入れる
３．「ActiveSheet.Cells(Rows.Count, 6).End(xlUp).Row」の部分で、本当は「5（E列）」にしたいが上手く機能しない。
　　（今入っているのは「LPA239」などの記号）
　　仕方なく、製品ページのF列に「=IF(E6="","","○")」を入れて、無理やり認識させている。
４．その他、進行するごとに質問が多数出てくると思います…

2 hits

▼

【79585】Cells.Findについて（在庫管理システム） おはぎ 18/1/25(木) 20:24