12
返回列表 上一主題 發帖

拿取日期

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
2# 跳轉到 »
發表於 2020-8-22 16:38 | 只看該作者
本帖最後由 n7822123 於 2020-8-22 16:41 編輯

回復 1# mdr0465


這時候就要仔細閱讀 微軟給的使用說明了~

Excel 的篩選功能有限制，只能字串比對~~ 如下圖

所以不能日期/數字比對~



把日期格式改一下就好了，擷取你部分程式來說明

D1 = DateSerial(CInt(splitstr(2)), CInt(splitstr(1)), CInt(splitstr(0)))
S1$ = Format(D1, "dd/mm/yy")
Set xR = Range("GROUPING!A1:K10000")
With xR
    .AutoFilter
    .AutoFilter Field:=2, Criteria1:=S1
    Range("GROUPING!A1").CurrentRegion.Copy
    Sheets("DAILY SALES").Range("A1").PasteSpecial xlValues
    .AutoFilter
End With
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題