請問各位excel 達人
小弟想設計如圖 利用日期區間 按下搜尋按鈕 ,
就可以篩選「完工日期」的資料
請問這是需要利用VB還是巨集來完成
會很複雜嗎
請問各位excel 達人
小弟想設計如圖 利用日期區間 按下搜尋按鈕 ,
就可以篩選「完工日期」的資料
請問這是需要利用VB還是巨集來完成
會很複雜嗎
個人積分：71分
文章編號：89820482
個人積分：7009分
文章編號：89820750
個人積分：71分
文章編號：89824834
個人積分：2074分
文章編號：89831607
個人積分：71分
文章編號：89846408
錦子 wrote:
在搜尋按鈕上方按滑鼠...(恕刪)
感謝您指導, 我嘗試輸入後, 按下搜尋全部都不見了
不知道我是哪裡做錯了嗎？
另外請教這個公式, 是怎麼知道去判別「欄位K」裏面的日期呢？？
謝謝您
Sub 按鈕1_Click()
Range("A7").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("A7:H13").AdvancedFilter Action:=xlFilterInPlace, Criteriarange:=Range("C1:D2"), Unique:=False
Range("C1").Select
End Sub
又寫錯．．．．是欄位G..........
標題，C1與D1都是和G7一樣內容。我的練習檔G欄是數字，所以我用比大小來判斷抓其數值區間。
個人積分：71分
文章編號：89861296
個人積分：71分
文章編號：89861307
個人積分：71分
文章編號：89863961
錦子 wrote:
在搜尋按鈕上方按滑鼠...(恕刪)
Sub 日期搜尋()
Range("A6").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("A6:Z13").AdvancedFilter Action:=xlFilterInPlace, Criteriarange:=Range("C1:G2"), Unique:=False
Range("C1").Select
End Sub
A6:Z13 , 按下搜尋 , 就會變成前面13列資料被剔除掉
如果A6:Z1000 , 按下搜尋 , 就變成前面1000列資料被剔除
看來沒有真正搜尋到日期條件
真的怪怪, 這個可能超出我的能力範圍了吧
不過還是感謝錦大分享啊 非常感謝您
哎!進階篩選，條件範圍要包含標題，你一直習慣用目標至與到，但第六列沒這二個標題欄位呀!
個人積分：71分
文章編號：89863967
個人積分：7009分
文章編號：89864970
field:=5 這個是篩選的欄位
看你要篩哪一個欄位
Private Sub CommandButton1_Click()
FData = ">=" & Range("C2").Value '起始日期
EData = "<=" & Range("D2").Value '結束日期
Range("A6:E12").Select '篩選的資料
Selection.AutoFilter
ActiveSheet.Range("$A$6:$E$12").AutoFilter Field:=5, Criteria1:= _
FData, Operator:=xlAnd, Criteria2:=EData
End Sub
