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

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

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

2^#

發表於 2011-6-4 01:13 | 顯示全部帖子

Private Sub Worksheet_Activate()
[A12:C1048576] = "" '清空先前資料
With Sheets("sheet1")
.Columns("B:Q").AutoFilter '自動篩選
.Range("$B$2").CurrentRegion.AutoFilter Field:=16, Criteria1:=RGB(112, _
48, 160), Operator:=xlFilterCellColor '篩選顏色
.Range(.[C3], .[C1048576].End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeVisible).Copy [A13] '複製可見儲存格到A13
.Columns("B:Q").AutoFilter '取消自動篩選
End With
End Sub

複製代碼

學海無涯_不恥下問

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

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

3^#

發表於 2011-6-4 08:29 | 顯示全部帖子

回復 9# 棋語鳥鳴
2007版本最大列位是1048576沒錯啊，那改成65536試試
如果不是2007以後版本
接下去篩選就不會成立，因為2003版本無法以顏色篩選
若版本正確請將Q欄加上欄名稱
基本上建議EXCEL不要用顏色來統計數值
你的Q欄顏色是用格式化條件而來
應該用條件式來判斷成立與否

學海無涯_不恥下問

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

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

4^#

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

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

學海無涯_不恥下問

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

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

5^#

發表於 2011-6-5 22:20 | 顯示全部帖子

回復 12# 棋語鳥鳴 [/

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

2011-6-5 22:19

學海無涯_不恥下問

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

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

6^#

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

複製代碼

學海無涯_不恥下問

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

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

7^#

發表於 2011-6-7 18:41 | 顯示全部帖子

回復 16# 棋語鳥鳴

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

學海無涯_不恥下問