[發問] 如何利用Sheet1的Q欄顏色當標準，複製當列之C:E的值至Sheet2

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

2^#

發表於 2011-6-2 20:16 | 顯示全部帖子

回復 2# mark15jill

試驗結果可以!請問我要如何將此巨集改為!一開啟Sheet2就自動執行!
印象中好像是把開頭改成這個即可==>Private Sub Worksheet_Activate()
但是不知道為什麼會出現錯誤??
還是我打錯了??

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

3^#

發表於 2011-6-3 22:49 | 顯示全部帖子

回復 5# Hsieh
請問第二行A:C是什麼意思??
如果我不要複製到第二列的A B C
想直接從C3開始複製，要如何修改(意思就是不要複製C2:E2)???

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

4^#

發表於 2011-6-4 06:42 | 顯示全部帖子

回復 8# Hsieh
A12:C1048576,1048576不知是不是太多，會出現錯誤!我將它改成C100之後即可用
但是: .Range("$B$2").CurrentRegion.AutoFilter Field:=16, Criteria1:=RGB(112, _
48, 160), Operator:=xlFilterCellColor '篩選顏色<==這句不知哪裡出了問題!一直出現偵錯(改不好)??

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

5^#

發表於 2011-6-4 18:54 | 顯示全部帖子

回復 10# Hsieh

我是2007版的!不過1048576就是不能??不知是我不是我是用二進位活頁簿的關係!
請問一下為什麼我將這句的.Range(.[C3], .[C1048576].End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeVisible).Copy [A13]
Range(.[C3], .[C1048576]改成Range(.[C3], .[C47]
為什麼不能到預期的效果，他只複製C2:E2而已，但是將C47改成C100卻能使用??因為在檔案中C48有文字敘述，所以如果用C100會將文字刪掉!，所以能否簡略篩選的範圍??

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

6^#

發表於 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

複製代碼

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

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

7^#

發表於 2011-6-6 16:36 | 顯示全部帖子

回復 13# Hsieh

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

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