[發問] 如何搜尋特定日期

A1~A20皆為日期格式(例如2015/4/15),如何搜尋特定月份?
例如2015年6月

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

9^#

發表於 2015-9-10 18:41 | 只看該作者

回復 8# acdx

End(3) 即是 End(xlUp)
有時〔常數〕可使用〔代碼〕，進 VBE 說明檔看看，其實這說明檔很好用，有很多範例，是學習的好所在！

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2025-4-8

8^#

發表於 2015-9-10 18:00 | 只看該作者

回復 7# 准提部林
請問Cells(Rows.Count, 1).End(3)--->代表的是?為何是End(3)?

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 2015-9-10 17:01 | 只看該作者

回復 5# acdx

６樓程式遇大資料，速度還是太慢，以下運用〔陣列+輔助欄〕，速度應可快些：
１．先以陣列存放檢測結果
２．將檢測結果放在Ｆ欄（或閒置任一欄也可），
　　利用〔到．特殊．常數．數字〕，選取有效數字儲存格，再予以隱藏
　

Sub 篩選2()
Dim Arr, i&
Cells.EntireRow.Hidden = False
Arr = Range([A2], Cells(Rows.Count, 1).End(3))
For i = 1 To UBound(Arr)
　　If Year(Arr(i, 1)) <> 2009 Then Arr(i, 1) = 1 Else Arr(i, 1) = ""
Next i
With [F2].Resize(UBound(Arr))
　　.Value = Arr
　　On Error Resume Next
　　.SpecialCells(xlCellTypeConstants, 1).EntireRow.Hidden = True
　　.Clear
End With
End Sub

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2015-9-10 16:29 | 只看該作者

回復 5# acdx

１．逐列處理（隱藏．刪除...等動作），速度必定慢，
　　若遇不得不逐列執行動作，通常要加 Application.ScreenUpdating = False，關閉螢幕更新
２．內建功能必然有其更優化的處理方法，所以，儘量利用內建功能來處理資料
３．篩選有時沒有最簡便的方法，例如本題Ａ欄為〔日期〕格式，若想只針對〔年〕或〔月〕篩選，
　　得使用〔輔助欄公式〕較有效益。
　
以下為使用〔儲存格聯集〕方法，一次性隱藏列，Union 與按 Ctrl 跳選儲存格方法相同，
但最多可聯集多少個儲存格，尚未測試其極限，參考即可：

Sub 篩選()
Dim xR As Range, xU As Range
Cells.EntireRow.Hidden = False
For Each xR In Range([A2], Cells(Rows.Count, 1).End(3))
　　If Year(xR) <> 2009 Then If xU Is Nothing Then Set xU = xR Else Set xU = Union(xU, xR)
Next
If Not xU Is Nothing Then xU.EntireRow.Hidden = True
End Sub

複製代碼

TOP

acdx