帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-1-25 19:01 | 只看該作者

把篩選資料貼回工作表1

大大們,新年快樂,
請教一個修改程式問題, 下列程式是個篩選檔,是把工作表1資料篩選到工作表2,現時我想把篩選資料貼回工作表1aa欄位開始, 該如何修改, 請大大協助, 謝謝!!
Private Rng
Private Sub ComboBox1_Change()
[IU1] = Rng(2)
[IU2] = "*" & ComboBox1 & "*"
If ComboBox1 = "" Then [IU2] = "<>"
End Sub
Private Sub ComboBox2_Change()
If ComboBox2 = "" Then
[IV1] = Rng(3)
[IV2] = "<>"
Else
[IV1] = Rng(3) & "A"
[IV2] = "=YEAR(" & Rng(3) & ")=" & ComboBox2
End If
End Sub

Private Sub CommandButton1_Click()
Range("A4").CurrentRegion = ""
Rng.AdvancedFilter xlFilterCopy, [IU1:IU2], [A4]
End Sub
Private Sub CommandButton2_Click()
Range("A4").CurrentRegion = ""
Rng.AdvancedFilter xlFilterCopy, [IV1:IV2], [A4]
End Sub

Private Sub Worksheet_Activate()
Dim AA As String, MA, MI
Set Rng = Sheet2.Range("A2").CurrentRegion
ComboBox1.List = Rng.Columns(2).Offset(1).Value
AA = Rng.Columns(3).Offset(1).Address
MA = Format(Application.Max(Sheet2.Range(AA)), "YYYY")
MI = Format(Application.Min(Sheet2.Range(AA)), "YYYY")
ComboBox2.Clear
For I = MI To MA
ComboBox2.AddItem I
Next
End Sub

樓主熱帖

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

10^#

發表於 2012-1-27 07:34 | 只看該作者

回復 9# Hsieh
謝謝版主大大, 衷心感謝, 祝快樂

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2012-1-26 22:32 | 只看該作者

回復 8# 317
工作表b是多餘的

88.rar (26.83 KB)

學海無涯_不恥下問

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

8^#

發表於 2012-1-26 19:35 | 只看該作者

Hsieh大大,GBKEE大大, 2位大大安好, 先祝賀新年快樂,
看過两位大大答覆, 相信需要時間研究, 基於檔案急於完成, 懇請大大們協助, 其實我想要的是想把資料篩選於同一表內au欄位上,
Hsieh大大,回覆的附檔, 我試過後, 資料還是篩選於工作表2上, 故再度請求協助, 從两位大大答覆也知道原因所在, 但因功力淺,
需要時間了解, 最後希望能協助, 謝謝

88.rar (23.28 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-1-26 11:23 | 只看該作者

本帖最後由 Hsieh 於 2012-1-26 11:37 編輯

回復 5# 317
這類的問題要釐清幾個觀念
1.你的程式碼都是利用事件程序，所以，必須清楚的知道物件所屬的工作表
例如:ComboBox及CommandButton等物件都是在Sheet2(a)工作表內的物件，所以，他們的事件必須在該工作表模組內才可觸發。
2.Worksheet_Activate事件是工作表作用時所觸發，而你程式碼內容就是在工作表a作用時將ComboBox的內容重新布置，所以必須是在工作表a模組內使用。
3.在活頁簿模組(Thisworkbook)或一般模組(Module)內則必須指定工作表。

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2012-1-26 08:15 | 只看該作者

回復 5# 317
Sheets(a)於VBA中是物件(工作表物件) : 物件模組
ThisWorkbook 也是 ,物件模組 (活頁簿物件)
VBA中Sheets(a)它的CodeName 是Sheet2 : CodeName 屬性: 指定物件的代碼名稱。唯讀 String。

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

5^#

發表於 2012-1-26 07:10 | 只看該作者

回復 4# Hsieh

請教大大, 程式碼放在Sheets(a)模組內, 一般模組都是module , 而Sheets(a)模組放於哪位置, 請教導, 謝謝!

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2012-1-26 01:08 | 只看該作者