請問如何篩選每分鐘術據

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-7-8 17:30 | 只看該作者

回復 1# xu123

Option Explicit
Sub Ex進階篩選_資料複製在其他地方()
With Sheets("A12520120706")
If .FilterMode Then .ShowAllData '資料處於篩選模式則顯示全部資料
.Cells(1, .Columns.Count) = "XXX" '進階篩選: 計算式準則欄位不可與資料庫欄位名稱一樣
.Cells(2, .Columns.Count) = "=SECOND(時間)=0"
.Range("L2").CurrentRegion = ""
.Range("A2:" & .Range("A2").End(xlToRight).End(xlDown).Address).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Cells(1, .Columns.Count).Resize(2), CopyToRange:=.Range("L2"), Unique:=False
'Action:=xlFilterCopy '資料複製在其他地方
End With
End Sub
Sub Ex進階篩選_在原範圍顯示()
With Sheets("A12520120706")
If .FilterMode Then .ShowAllData
.Cells(1, .Columns.Count) = "XXX"
.Cells(2, .Columns.Count) = "=SECOND(時間)=0"
.Range("A2:" & .Range("A2").End(xlToRight).End(xlDown).Address).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Cells(1, .Columns.Count).Resize(2), Unique:=False
'Action:=xlFilterInPlace 在原範圍顯示
End With
End Sub

複製代碼

xu123

中學生 Rank: 2

帖子: 48
主題: 14
精華: 0
積分: 62
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-5-25
最後登錄: 2022-4-23

3^#

發表於 2012-7-9 05:53 | 只看該作者

謝謝GBKEE 大大:P :P :P

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-7-28 12:33 | 只看該作者

回復 2# GBKEE
在執行 Ex進階篩選_在原範圍顯示() 後，
如何將列數重新依序自動排列，即 1、2、3、7、15、19
重新編列為 1、2、3、4、5、6。
謝謝您！

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 268
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-1

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-7-28 19:06 | 只看該作者

回復 4# c_c_lai

學海無涯_不恥下問

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2012-7-28 19:07 | 只看該作者

回復 5# Hsieh
謝謝您的指導！
我是想使用 VBA 語法直接處理，一氣呵成。
說真格的，我不太會操作 Excel 的功能介面，
再次謝謝您能否指導我如何應用 VBA 語法完成它？

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 268
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-1

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-7-28 19:15 | 只看該作者

本帖最後由 Hsieh 於 2012-7-28 19:41 編輯

回復 6# c_c_lai
這只是告訴你，只要在編號欄位使用公式=SUBTOTAL(3,$B$2:B2)
來完成編號後
執行篩選動作後(不管是手動或VBA操作)
編號都能自動重排顯示
如果要把編號的公式一併寫入VBA

Sub ex()
With ActiveSheet
If .[A1] <> "" Then '判斷是否已存在編號欄位
.Columns("A").Insert '插入A欄
End If
If .FilterMode Then .ShowAllData '判斷是否篩選狀態
.[A2] = "編號" '寫入欄名
.[A3].FormulaR1C1 = "=SUBTOTAL(3,R2C[1]:R[-1]C[1])" '編號公式
.[A3].AutoFill .Range(.[A3], .[B65536].End(xlUp).Offset(, -1)) '向下填滿
.[K2] = "=SECOND(B3)=0" '篩選準則公式
.Range("A1").CurrentRegion.Offset(1).AdvancedFilter xlFilterInPlace, .[K1:K2] '原地進階篩選
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

8^#

發表於 2012-7-28 20:27 | 只看該作者

回復 7# Hsieh
謝謝您！
但是我指的是紅框內的排序：

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 268
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-1

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-7-28 23:18 | 只看該作者

本帖最後由 Hsieh 於 2012-7-30 08:40 編輯

回復 8# c_c_lai
原地篩選不會改變位置
只是將不符合條件的資料列隱藏
所以，工作表的列標籤無法改變
也就是說篩選並不會讓資料重排
資料重排必須使用排序

學海無涯_不恥下問

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

10^#

發表於 2012-7-29 09:07 | 只看該作者

回復 9# Hsieh
瞭解了，謝謝您！