| |
▼みみ さん：
データを入力するシートが「入力」だとします。
標準モジュールに以下を記載してマクロボタンに登録してみてください。
Sub TST()
Dim 在庫_Sheet As Worksheet
Dim 入力_Sheet As Worksheet
Dim CHK_ROW_CNT As Long
Dim LOOP_CNT As Long
Dim OUT_ROW_CNT As Long
Set 在庫_Sheet = Worksheets("在庫")
Set 入力_Sheet = Worksheets("入力")
CHK_ROW_CNT = 入力_Sheet.Cells(Rows.Count, "D").End(xlUp).Row
OUT_ROW_CNT = 0
For LOOP_CNT = 2 To CHK_ROW_CNT
If 入力_Sheet.Cells(LOOP_CNT, "D") <> "" Then
On Error Resume Next
OUT_ROW_CNT = WorksheetFunction.Match(入力_Sheet.Cells(LOOP_CNT, "D"), 在庫_Sheet.Range("J:J"), 0)
On Error GoTo 0
If OUT_ROW_CNT > 0 Then
在庫_Sheet.Cells(OUT_ROW_CNT, "P").Value = "済"
End If
End If
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
