재고 경보 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
에 따라 설정 자신의 필요 재고 경고 수정 단계
적절한 언어이면 충분합니다.