Excel VBA質問箱 IV

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

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


99 / 13165 ツリー ←次へ | 前へ→

【79585】Cells.Findについて(在庫管理システム) おはぎ 18/1/25(木) 20:24 質問[未読]

【79586】Re:Cells.Findについて(在庫管理システム) γ 18/1/25(木) 23:06 回答[未読]
【79587】Re:Cells.Findについて(在庫管理システム) おはぎ 18/1/26(金) 16:31 お礼[未読]

【79586】Re:Cells.Findについて(在庫管理システ...
回答  γ  - 18/1/25(木) 23:06 -

引用なし
パスワード
   以下のコード片を参考にしてみてください。

Sub パーツリストから詳細を取得2()
  Dim i As Long
  Dim r As Range
  Dim LastRow As Long

  LastRow = Cells(Rows.Count, 5).End(xlUp).Row

  For i = 6 To LastRow
    Set r = Worksheets("Parts List").Cells.find(Cells(i, 5).Value)
    If Not r Is Nothing Then
      Cells(i, 7).Value = r.Value
      Cells(i, 8).Value = r.Offset(, 1).Value
      ' 以下同様に。
    Else
      MsgBox "該当パーツが見つかりません", vbExclamation
    End If
  Next
End Sub

Findメソッドの引数は省略しないほうがよいでしょう。
マクロ記録をとって調べてみて下さい。

【79587】Re:Cells.Findについて(在庫管理システ...
お礼  おはぎ  - 18/1/26(金) 16:31 -

引用なし
パスワード
   Y様

有難うございます!
主にrに取り込んだ情報の操作方法で悩んでいたのですが、
Offsetで操作できるのですね。
これで、完璧に動作しました。

大変助かりました。
また進めていって分からない事があれば、
ここで質問させていただこうと思います。

99 / 13165 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free