|
3学分
用VBA判断(交货期是否超了和进度)
Sub demo()
today = Format(Now, "yymmdd")
m = [m11:m 99]
s = [s11:s 99]
a = [y11:ac 99]
For i = 1 To UBound(a)
If s(i, 1) = "" Then: GoTo 1
n = s(i, 1) - a(i, 5)
a(i, 1) = IIf(m(i, 1) & "" < today, "超期", "沒有超期")
If n > 0 Then
a(i, 2) = IIf(n < s(i, 1), "不夠", "零支")
ElseIf n = 0 Then
a(i, 2) = "完成"
Else
a(i, 2) = "多了" & -n & "支"
End If
a(i, 4) = n
1:
Next
[y11].Resize(i - 1, 5) = a
End Sub
|
最佳答案
查看完整内容
Sub demo()
today = Format(Now, "yymmdd")
m = [m11:m99]
s = [s11:s99]
a = [y11:ac99]
For i = 1 To UBound(a)
If s(i, 1) = "" Then: GoTo 1
n = s(i, 1) - a(i, 5)
a(i, 1) = IIf(m(i, 1) & "" < today, "超期", "沒有超期")
If n > 0 Then
a(i, 2) = IIf(n < s(i, 1), "不夠", "零支")
ElseIf n = 0 Then
a(i, 2) = "完成"
Else
a(i, 2) = "多了" & -n ...
|