[VBA] Vlookup를 이용한 현재 재고 파악

Vlookup를 이용한 현재 재고 파악

현재 재고를 파악하는 건데요. 기존 재고에서 일간 판매량이 있을 경우 일간 판매량을 빼주면 현재 재고가 됩니다.

Sub Vlookup_Sales()
'Application.VLOOKUP(lookup_value, table_array, column_index, range_lookup)

    Dim lookup_value As Range
    Dim table_array As Range
    Dim rngC As Range
    Dim varTemp As Variant
   
    Set lookup_value = Range("A3:A12")
    Set table_array = Range("A18:C22")
    'Set table_array = Workbooks("VLookup_Sample_v1.xlsx").Sheets("work").Range("A2:B31")
      '// 다른 파일에 있는 값과 비교하고자 할 때
     
    For Each rngC In lookup_value
        varTemp = Application.VLookup(rngC, table_array, 3, 0)
        '// 서로 일치하는게 있으면 table_array 의 세번째 열을 가져와라
        If IsError(varTemp) Then   '// 에러 #N/A 일 경우
            rngC.Offset(0, 3).Value = rngC.Offset(0, 2).Value
        Else
            rngC.Offset(0, 3).Value = rngC.Offset(0, 2).Value - varTemp
        End If
    Next rngC
   
    Set lookup_value = Nothing '// 변수 초기화
    Set table_array = Nothing
   
End Sub

예제 파일 첨부 합니다. VBA 코드는 예제 파일에 포함되어 있습니다.

Vlookup_Sales.xlsm