[發問] 請問要如何指定刪除資料

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

9^#

發表於 2021-12-28 15:03 | 只看該作者

SD = Format(Arr(i, 11), "0-00-00")

或先將當天轉成8位數字
TD& = Format(Date, "YYYYMMDD")
If Val( ...
准提部林發表於 2021-12-28 13:53

感謝准大提醒，學習了，謝謝

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

8^#

發表於 2021-12-28 13:53 | 只看該作者

SD = Format(Arr(i, 11), "0-00-00")

或先將當天轉成8位數字
TD& = Format(Date, "YYYYMMDD")
If Val(Arr(i, 11)) <= TD Then

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

7^#

發表於 2021-12-28 10:33 | 只看該作者

是的，但要多加一天，因為發料要提早一步，所以今天是28號的話，日期都要+1
>> If SD
samwang 發表於 2021-12-28 08:29

感謝~非常感謝你的幫忙，測試使用沒問題
而且速度很快，我來研究一下
謝謝

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

6^#

發表於 2021-12-28 08:29 | 只看該作者

是的，但要多加一天，因為發料要提早一步，所以今天是28號的話，日期都要+1
cclo0728 發表於 2021-12-28 08:24

是的，但要多加一天，因為發料要提早一步，所以今天是28號的話，日期都要+1
>> If SD <= Date Then
修改如紅字，謝謝

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

5^#

發表於 2021-12-28 08:24 | 只看該作者

回復 cclo0728
請測試看看，謝謝
Sub test()
Dim Arr, SD As Date, y2, m2, d2, i&, j%, n%
Applicat ...
samwang 發表於 2021-12-28 07:48

感謝回覆，我等等測試看看，謝謝

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

4^#

發表於 2021-12-28 08:24 | 只看該作者

您的需求是刪除大於今日預計開工(母)嗎? 請確認，謝謝
samwang 發表於 2021-12-27 16:48

是的，但要多加一天，因為發料要提早一步，所以今天是28號的話，日期都要+1

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

3^#

發表於 2021-12-28 07:48 | 只看該作者

回復 1# cclo0728
請測試看看，謝謝
Sub test()
Dim Arr, SD As Date, y2, m2, d2, i&, j%, n%
Application.ScreenUpdating = False
Tm = Timer
With Range("a1").CurrentRegion
Arr = .Value
For i = 2 To UBound(Arr)
      y2 = Format(Left(Arr(i, 11), 4), "0000")
      m2 = Format(Mid(Arr(i, 11), 5, 2), "00")
      d2 = Format(Mid(Arr(i, 11), 7, 2), "00")
      SD = DateSerial(y2, m2, d2)
      If SD < Date Then
         n = n + 1
         For j = 1 To UBound(Arr, 2): Arr(n, j) = Arr(i, j): Next
      End If
Next
If n > 0 Then
      .Range("a1").CurrentRegion.Offset(1) = ""
      .Range("a2").Resize(n, UBound(Arr, 2)) = Arr
End If
End With
Application.ScreenUpdating = True
MsgBox Timer - Tm
End Sub

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-8-22

2^#

發表於 2021-12-27 16:48 | 只看該作者

本帖最後由 samwang 於 2021-12-27 16:53 編輯

各位學長好:
我在網路上收尋到一段程式，雖然很好用
但每日資料庫有上萬筆資料，造成每一項檢查+刪除花了 ...
cclo0728 發表於 2021-12-27 16:08

您的需求是刪除大於今日預計開工(母)嗎? 請確認，謝謝