|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 站位计划()
Application.ScreenUpdating = False
Dim ar As Variant
Dim s As Long
Dim rr()
With Sheets("生产计划排产明细表")
r = .Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "生产计划排产明细表为空!": End
ar = .Range("a1:l" & r)
ReDim rr(1 To UBound(ar))
For i = 2 To UBound(ar)
If Trim(ar(i, 9)) <> "" Then
If IsDate(ar(i, 9)) Then
n = n + 1
rr(n) = i
End If
End If
Next i
If n = "" Then MsgBox "生产计划排产明细表的I列没有开始日期!": End
n = n + 1
rr(n) = r + 1
For i = 1 To n - 1
ks = rr(i)
js = rr(i + 1) - 1
ksrq = ar(ks, 9)
For s = ks To js
If s = ks Then
ar(s, 9) = ar(s, 9)
ar(s, 11) = ar(s, 9) + ar(s, 10)
Else
ar(s, 9) = ar(s - 1, 11)
ar(s, 11) = ar(s, 9) + ar(s, 10)
End If
Next s
Next i
.Range("a1:l" & r) = ar
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub
|
|