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'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| [VBA] 현재 시트 Text File로 내보내기 (0) | 2014.01.23 |
|---|---|
| 색상별로 시간합계 구하기 (0) | 2014.01.20 |
| [VBA] 다른 파일과 중복검사하는 Vlookup VBA (0) | 2014.01.20 |
| [VBA] 셀 분리하여 다른 시트에 뿌리기 (0) | 2014.01.18 |
| [VBA] 셀 분리하여 현재 시트에 뿌리기 (2) | 2014.01.18 |
Link2Me