- 帖子
- 53
- 主題
- 8
- 精華
- 0
- 積分
- 90
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7
- 閱讀權限
- 20
- 註冊時間
- 2019-4-30
- 最後登錄
- 2023-4-25
|
各位學長好:
我在網路上收尋到一段程式，雖然很好用
但每日資料庫有上萬筆資料，造成每一項檢查+刪除花了很久時間
有辦法在簡化檢查的時間嗎?預計開工日已有依照時間排序
Set sh1 = Sheets(1) '刪除開工日超過今天
f = sh1.Columns("A:L").Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
On Error Resume Next
dn = Date + 1
For i = f To 2 Step -1
If IsError(sh1.Cells(i, "L")) = False Or sh1.Cells(i, "L") <> "" Then
dv2 = sh1.Cells(i, "K")
y2 = Format(Left(dv2, 4), "0000")
m2 = Format(Mid(dv2, 5, 2), "00")
d2 = Format(Mid(dv2, 7, 2), "00")
dv2 = DateValue(Format(y2 & "/" & m2 & "/" & d2, "yyyy/mm/dd"))
If dv2 > dn Then
sh1.Rows(i).Delete Shift:=xlUp
End If
End If
Next |
-
-
活頁簿2.rar
(14.21 KB)
|
發表於 2021-12-27 16:08
| 
