如何利用Sheet1的Q欄顏色當標準，複製當列之C:E的值至Sheet2 - Excel程式區

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

12^#

發表於 2011-6-5 12:09 | 只看該作者

回復 12# Hsieh

此句好像也是會出現錯誤!
我改了個方式使用!不過:我如果將它改成開啟sheet時立即執行，整個excel就會當掉!如果用成按鈕就不會!是因為裡面有Select的關係嗎?

Sub 測試()
'
' 測試 Macro
'
'
Application.ScreenUpdating = False
Sheets("篩選專區").Visible = xlSheetVisible
Range("A14:G47").ClearContents
Sheets("篩選專區").Select
Range("A13:H60").AutoFilter
ActiveSheet.Range("$A$13:$H$60").AutoFilter Field:=8, Criteria1:=RGB(112, _
48, 160), Operator:=xlFilterCellColor
Range("A14:G29").Copy
Sheets("總覽").Range("A14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("篩選專區").Select
Selection.AutoFilter
Range("G12").Select
Sheets("總覽").Select
Sheets("篩選專區").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

複製代碼

請問我如果要將此巨集改成，開啟"總覽"工作表時!立即執行，請問要如何改??

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

13^#

發表於 2011-6-5 22:20 | 只看該作者

回復 12# 棋語鳥鳴 [/

TEST-檔案.rar (12.8 KB)
下載次數: 3

2011-6-5 22:19

學海無涯_不恥下問

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

14^#

發表於 2011-6-6 16:36 | 只看該作者

回復 13# Hsieh

Hsieh 板大:我知道我之所以錯誤在哪了!應該是我的塞選來源是連接的格式!因為我用直接輸入的方式可以!但是利用連結別的數據檔案的!在複製時會出現錯誤!請問這樣要如何改??

TEST-檔案.rar (19.22 KB)
檔案中Sheet1為Sheet2的連接!sheet4也是要篩選sheet1的檔案!如果Sheet1的來源為手動鍵入的話!巨集不會有問題!但是Sheet1的來源為連結的話!就會出現錯誤??請問這樣要如何改巨集!可以使他在sheet1為連結時可以正常使用??

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

15^#

發表於 2011-6-6 18:37 | 只看該作者

回復 14# 棋語鳥鳴

Private Sub Worksheet_Activate()
Range([A14], [G14].End(xlDown)) = ""
With Sheets("sheet1")
If .AutoFilterMode = False Then .Columns("B:Q").AutoFilter
.Range("$B$2").CurrentRegion.AutoFilter Field:=16, Criteria1:=RGB(112, _
48, 160), Operator:=xlFilterCellColor
.Range(.[C3], .Cells(.Rows.Count, 7).End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeFormulas).SpecialCells(xlCellTypeVisible).Copy [A14]
.Columns("B:Q").AutoFilter
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

16^#

發表於 2011-6-7 06:06 | 只看該作者

回復 15# Hsieh

不好意思~不知道哪裡出了問題!只要當sheet1數值少於不知幾行時!sheet4就無法顯是正確值，但是如果多行時可以正常使用!

TEST-檔案.rar (15.42 KB)

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

17^#

發表於 2011-6-7 18:41 | 只看該作者

回復 16# 棋語鳥鳴

你看複製過去的公式一不一樣?
不是說過最好依照條件化格式的條件去做判斷比較好嗎?
而且為何不直接用SHEET2的原來數值來做來源，還要多一個SHEET1來用公式過渡呢?
自找麻煩罷了

學海無涯_不恥下問

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

18^#

發表於 2011-6-8 06:42 | 只看該作者

回復 17# Hsieh

因為要篩選的檔案是連接個不同的地方來的~公式一樣!後來用了另一的方式解決了!於sheet1Q欄下方增加幾個紫色儲存格數據欄為空白!這樣數據來源會多了好幾行!複製時，因為下面是空白!所以就算複製到了也沒差!