Excel VBA質問箱 IV

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

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


336 / 74282 ←次へ | 前へ→

【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メソッドの引数は省略しないほうがよいでしょう。
マクロ記録をとって調べてみて下さい。

68 hits

【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 お礼[未読]

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