返回列表 上一主題 發帖

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

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-8 17:36 | 只看該作者

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

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

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2015-9-8 17:54 | 只看該作者
回復 1# acdx


問題描述太簡略，說不定回覆者打的字都比您多！^^
提出多一些不同實例並模擬出所要的結果看看，
最好上附檔吧！

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
3#
發表於 2015-9-8 19:30 | 只看該作者
樓主的Excel版本是2010,用普通的篩選即可

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
4#
發表於 2015-9-9 09:33 | 只看該作者
回復 1# acdx

你可以做輔助欄
例如
A1是日期
B2公式 =MONTH(A1)
公式下刷

用B欄就能篩選月份
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
5#
發表於 2015-9-10 14:54 | 只看該作者
本帖最後由 acdx 於 2015-9-10 14:56 編輯

data base.zip (142.07 KB)
我寫了下列程式來搜尋特定日期的資料
  1. Sub 篩選()
  2. Dim St, Col, Ed As Integer

  4. Set DateRange = Worksheets(1).Range("A1").CurrentRegion.Columns(1)
  5. St = Range("A2").Row
  6. Col = DateRange.End(xlToRight).Column
  7. Ed = DateRange.End(xlDown).Row
  8. DateRange.EntireRow.Hidden = False

  10. For i = St To Ed
  11.     If Year(Cells(i, 1)) <> 2009 Then
  12.         Rows(i).EntireRow.Hidden = True
  13.     End If
  14. Next i
  15. End Sub
複製代碼
但是這程式執行的速度遠低於使用Excel內建的篩選功能，該如何寫才能達到內建篩選功能的速度?

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
6#
發表於 2015-9-10 16:29 | 只看該作者
回復 5# acdx


１．逐列處理（隱藏．刪除...等動作），速度必定慢，
　　若遇不得不逐列執行動作，通常要加 Application.ScreenUpdating = False，關閉螢幕更新
２．內建功能必然有其更優化的處理方法，所以，儘量利用內建功能來處理資料
３．篩選有時沒有最簡便的方法，例如本題Ａ欄為〔日期〕格式，若想只針對〔年〕或〔月〕篩選，
　　得使用〔輔助欄公式〕較有效益。
　
以下為使用〔儲存格聯集〕方法，一次性隱藏列，Union 與按 Ctrl 跳選儲存格方法相同，
但最多可聯集多少個儲存格，尚未測試其極限，參考即可：
  1. Sub 篩選()
  2. Dim xR As Range, xU As Range
  3. Cells.EntireRow.Hidden = False
  4. For Each xR In Range([A2], Cells(Rows.Count, 1).End(3))
  5. 　　If Year(xR) <> 2009 Then If xU Is Nothing Then Set xU = xR Else Set xU = Union(xU, xR)
  6. Next
  7. If Not xU Is Nothing Then xU.EntireRow.Hidden = True
  8. End Sub
複製代碼
　

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
7#
發表於 2015-9-10 17:01 | 只看該作者
回復 5# acdx


６樓程式遇大資料，速度還是太慢，以下運用〔陣列+輔助欄〕，速度應可快些：
１．先以陣列存放檢測結果
２．將檢測結果放在Ｆ欄（或閒置任一欄也可），
　　利用〔到．特殊．常數．數字〕，選取有效數字儲存格，再予以隱藏
　
  1. Sub 篩選2()
  2. Dim Arr, i&
  3. Cells.EntireRow.Hidden = False
  4. Arr = Range([A2], Cells(Rows.Count, 1).End(3))
  5. For i = 1 To UBound(Arr)
  6. 　　If Year(Arr(i, 1)) <> 2009 Then Arr(i, 1) = 1 Else Arr(i, 1) = ""
  7. Next i
  8. With [F2].Resize(UBound(Arr))
  9. 　　.Value = Arr
  10. 　　On Error Resume Next
  11. 　　.SpecialCells(xlCellTypeConstants, 1).EntireRow.Hidden = True
  12. 　　.Clear
  13. End With
  14. End Sub
複製代碼
　

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
8#
發表於 2015-9-10 18:00 | 只看該作者
回復 7# 准提部林
請問Cells(Rows.Count, 1).End(3)--->代表的是?為何是End(3)?

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
9#
發表於 2015-9-10 18:41 | 只看該作者
回復 8# acdx


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

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題