|
上面是原数据。
原意是代码运行后,将符合条件1:时间小于2017年4月1和条件2:单位名称=“党校”的记录对应O列单元格标记成“V”
但141行的那笔也被标识了“V”,这个应该是不符合条件1的!
163行是符合条件的,却没有标!
请老师们指点一下!谢谢!因为文件较大,所以只能是这样截图说明了。代码如下:
Private Sub 已请款销单_Click()
If Me.Controls(页面名称 & "_截止时间").Value = "" Or Me.Controls(页面名称 & "_单位名称").Value = "" Then MsgBox "销单条件不正确,截止时间与单位名称是必需项!": Exit Sub
Dim t1, t2 As Date
t1 = Me.Controls(页面名称 & "_截止时间").Value
arr = Sheet3.Range("A2" & ":" & "O" & Sheet3.Range("A65536").End(xlUp).Row)
For i = 1 To UBound(arr)
t2 = arr(i, 1)
If t2 < t1 And arr(i, 4) = Me.Controls(页面名称 & "_单位名称") Then
' Sheet3.Cells(i, 13) = Sheet3.Cells(i, 12)
Sheet3.Cells(i, 15) = "V"
End If
Next
MsgBox "销单完成!"
End Sub
|
|