求和出问题解

请大神们指点下

试试，deep改的：Sub 库存查询()
Dim st As Date, et As Date, t As Long, cp As String
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim ru_z As Double, chu_z As Double, ck As Double
Dim ru_d As Double, chu_d As Double
Dim i As Long, lastRow As Long, currentDate As Date
Set ws1 = ThisWorkbook.Sheets("入库表")
Set ws2 = ThisWorkbook.Sheets("出库表")
Set ws3 = ThisWorkbook.Sheets("盘点表")
With ws3
' 获取日期和型号（自动去空格和转大写）
st = CDate(.Range("C2").Value)
et = CDate(.Range("C3").Value)
cp = UCase(Trim(.Range("C4").Value))
' 检查输入完整性
If cp = "" Or st = 0 Or et = 0 Then
MsgBox "请完整输入日期和产品型号！", vbExclamation
Exit Sub
End If
' 清空旧数据
.Range("B7:C" & .Rows.Count).ClearContents
' 填充日期列
t = et - st + 1
For i = 1 To t
currentDate = st + i - 1
.Range("B" & i + 6).Value = currentDate
.Range("B" & i + 6).NumberFormat = "yyyy/m/d"
Next i
' 计算初始库存（截止到 st 前一天的净入库）
With ws1
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
ru_z = Application.SumIfs(.Range("C3:C" & lastRow), _
.Range("A3:A" & lastRow), "<" & CDbl(st), _
.Range("B3:B" & lastRow), cp)
End With
With ws2
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
chu_z = Application.SumIfs(.Range("C3:C" & lastRow), _
.Range("A3:A" & lastRow), "<" & CDbl(st), _
.Range("B3:B" & lastRow), cp)
End With
ck = ru_z - chu_z
.Range("C7") = ck
' 逐日更新库存
For i = 1 To t
currentDate = st + i - 1
' 当日入库
ru_d = Application.SumIfs(ws1.Range("C:C"), _
ws1.Range("A:A"), currentDate, _
ws1.Range("B:B"), cp)
' 当日出库
chu_d = Application.SumIfs(ws2.Range("C:C"), _
ws2.Range("A:A"), currentDate, _
ws2.Range("B:B"), cp)
' 累计库存
ck = ck + ru_d - chu_d
.Range("C" & i + 6).Value = ck
Next i
End With
End Sub