현재 위치 - 회사기업대전 - 기업 정보 시스템 - 재고 경보 VBA 코드

재고 경보 VBA 코드

재고 경보 VBA 코드는 다음과 같습니다.

Sub asd

Dim rng As Range, rng1 As Range

ar = [b65536] . End(3).Row

ReDim arr(1을 ar, 1에서 6): ReDim brr(1을 ar, 1에서 6)

Range("o4:o " amp; ar).Interior.ColorIndex = 35

aaa = Range("A4:s" amp; ar)

For i = 1 To UBound(aaa)

If aaa(i, 15) lt; aaa(i, 16) 그러면

arr(t 1, 1) = aaa(i, 2)

arr( t 1, 2) = aaa(i, 3)

arr(t 1, 3) = aaa(i, 15)

arr(t 1, 4) = aaa( i, 16)

arr(t 1, 5) = aaa(i, 18)

arr(t 1, 6) = aaa(i, 19)

t = t 1

rng가 아무것도 아니면 rng = Cells(i 3, 15)로 설정하고 그렇지 않으면 rng = Union(rng, Cells(i 3, 15))로 설정합니다.

End If

If aaa(i, 15) gt; aaa(i, 17) Then

brr(t1 1, 1) = aaa(i, 2)

p >

brr(t1 1, 2) = aaa(i, 3)

brr(t1 1, 3) = aaa(i, 15)

brr(t1 1 , 4) = aaa(i, 17)

brr(t1 1, 5) = aaa(i, 18)

brr(t1 1, 6) = aaa(i , 19)

t1 = t1 1

rng1이 아무것도 아닌 경우 rng1 = Cells(i 3, 15)로 설정하고 그렇지 않으면 rng1 = Union(rng1, Cells(i 3, 15)로 설정합니다. ) )

끝내기

다음

rng.Interior.ColorIndex = 3

rng1.Interior.ColorIndex = 8

시트 사용("하한 경보 순서")

.Range("e4:j65536").ClearContents

.[e4].Resize(UBound(arr) , 6) = arr

End With

With Sheets("알람 제한 순서")

.Range("e4:j65536").ClearContents

p >

.[e4].Resize(UBound(brr), 6) = brr

End With

End Sub

에 따라 설정 자신의 필요 재고 경고 수정 단계

적절한 언어이면 충분합니다.

copyright 2024회사기업대전