[發問] 請問如何用VBA達到多重篩選，以及篩選後依序填入??

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

2^#

發表於 2010-9-19 13:01 | 顯示全部帖子

謝謝版主大人，剛好可以利用颱風天鑽研一下VBA，因為功力不夠之前大部分都是用錄製的方法
，還好有版主幫忙，不然這次我真的寫不出來捏!!之後會好好瞭解裏面的涵義的，謝謝。

YOYO

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

3^#

發表於 2010-9-19 21:08 | 顯示全部帖子

現在遇到了一個問題耶，如果我的實際讀書時間是在sheet3，改成下列就出現錯誤了！！
For Each a In .Sheets("sheet3").Range(.[H2], .[H65536].End(xlUp))
彈出→視窗說找不到方法或資料成員
若改成下列
For Each a In Sheets("sheet3").Range(.[H2], .[H65536].End(xlUp))
彈出→物件或應用程式定義上的錯誤
https://sites.google.com/site/yanto913/data/Plan2.xls

YOYO

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

4^#

發表於 2010-9-19 23:18 | 顯示全部帖子

我弄好了，原來是要貼在來源那邊，然後我把With Sheet3拿掉了
Sub Ex()
Set dic = CreateObject("Scripting.Dictionary")
Set dicn = CreateObject("Scripting.Dictionary")
For Each a In Sheets("sheet3").Range([H2], [H65536].End(xlUp))
dic(a & a.Offset(, 1)) = dic(a & a.Offset(, 1)) + a.Offset(, 2)
Next
For Each a In Sheets("sheet1").Range(Sheets("sheet1").[A2], Sheets("sheet1").[A65536].End(xlUp))
dicn(a & a.Offset(, 1)) = dicn(a & a.Offset(, 1)) + 1
Next
For Each a In Sheets("sheet1").Range(Sheets("sheet1").[A2], Sheets("sheet1").[A65536].End(xlUp))
If a <> "" Then
mytime = Application.Min(a.Offset(, 4), dic(a & a.Offset(, 1)))
If dicn(a & a.Offset(, 1)) = 1 Then
   a.Offset(, 5) = Val(dic(a & a.Offset(, 1)))
   Else
   a.Offset(, 5) = mytime
   dicn(a & a.Offset(, 1)) = dicn(a & a.Offset(, 1)) - 1
   dic(a & a.Offset(, 1)) = dic(a & a.Offset(, 1)) - mytime
End If
End If
Next
End Sub

剛剛上網查了一下用With Sheet3可以取代Sheets("sheet3")
也就是程式由Sheets("sheet3").Range([H2], [H65536].End(xlUp))
變成.Range(.[H2], .[H65536].End(xlUp))
不知道為什麼.[H2], .[H65536]也都要多一個小點. 呢？？這我就不知道了

YOYO

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

5^#

發表於 2010-9-20 09:54 | 顯示全部帖子

謝謝版主，我瞭解了，這個程式對我非常有幫助，我也正在學習VBA語法，希望以後能像版主用少少幾行就能達到效果的功力謝謝

YOYO