Hsieh

.[C1048576]是要取得C欄最底下的儲存格，那就改這樣吧
.Range(.[C3], .Cells(.Rows.count,3).End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeVisible).Copy

棋語鳥鳴

回復 12# Hsieh

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

1. Sub 測試()
   
2. '
   
3. ' 測試 Macro
   
4. '
   
5. 
   
6. '
   
7.     Application.ScreenUpdating = False
   
8.     Sheets("篩選專區").Visible = xlSheetVisible
   
9.     Range("A14:G47").ClearContents
   
10.     Sheets("篩選專區").Select
    
11.     Range("A13:H60").AutoFilter
    
12.     ActiveSheet.Range("$A$13:$H$60").AutoFilter Field:=8, Criteria1:=RGB(112, _
    
13.         48, 160), Operator:=xlFilterCellColor
    
14.     Range("A14:G29").Copy
    
15.     Sheets("總覽").Range("A14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
16.         :=False, Transpose:=False
    
17.     Sheets("篩選專區").Select
    
18.     Selection.AutoFilter
    
19.     Range("G12").Select
    
20.     Sheets("總覽").Select
    
21.     Sheets("篩選專區").Visible = xlSheetVeryHidden
    
22.     Application.ScreenUpdating = True
    
23. End Sub

複製代碼

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

Hsieh

回復 12# 棋語鳥鳴 [/

    TEST-檔案.rar (12.8 KB)

下載次數: 3

2011-6-5 22:19

棋語鳥鳴

回復 13# Hsieh


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

下載次數: 2

2011-6-6 16:32

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

Hsieh

回復 14# 棋語鳥鳴

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

複製代碼

棋語鳥鳴

回復 15# Hsieh


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

下載次數: 7

2011-6-7 06:06

Hsieh

回復 16# 棋語鳥鳴


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

棋語鳥鳴

回復 17# Hsieh


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