移動有顏色的列到其他sheet(小問題請教)

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

11^# 跳轉到 »

發表於 2013-11-6 21:33 | 只看該作者

回復 4# jj369963
會發生溢位有可能是 Dim i As Integer 的關係,
因為列號最大可達到65536 ,
所以建議改用 Dim i As Long ,
較不易發生溢位的情形.

回復 10# jj369963
以你提供的範例檔案,
套用 9# 的程式並不會發生你所說的情形呢.
建議你對原始檔案中的需要格式化條件的所有儲存格,
再確認一次所套用的條件內容是否都一樣.

只要 Mark 所有需套用相同格式條件的儲存格,
再按格式 -> 設定格式化條件看看是否都是相同的條件公式,
若是你看到 "空白"(沒有內容) 的條件內容,
那就是被 Mark 的儲存格有不同的條件存在.
請確認看看.

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兔年全勤獎章

12^#

發表於 2013-11-7 15:15 | 只看該作者

本帖最後由 GBKEE 於 2013-11-7 15:23 編輯

回復 10# jj369963
如圖示依你6#的檔案執行7#的程式,
你說的執行語法後只有標題列移過去，格式化的列沒有移到對應的sheet,(百思不解..)
2003版中 RGB(3, 255, 101) -> 傳回一個數值 Criteria1=RGB(3, 255, 101) -> 這函數傳回的數字

'xlFilterCellColor這參數為2010版的不適用2003
ActiveSheet.Range("$A$1:$CQ$370").AutoFilter Field:=6, Criteria1:=RGB(3, 255, 101), Operator:=xlFilterCellColor

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

jj369963

中學生 Rank: 2

帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2026-9-22

13^#

發表於 2013-11-8 23:08 | 只看該作者

回復 12# GBKEE

Dear GBKEE 版大：

非常謝謝您的回覆，而且回覆的好詳細，感謝。
『你說的執行語法後只有標題列移過去，格式化的列沒有移到對應的sheet,(百思不解..)』
  回覆：如附檔
不過我在想會不會是excel版本的差異(???)，因為版大有執行出來，所以問題應該在我這邊。

  謝謝版大用心且詳細的回覆

只有移動標題.gif

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

14^#

發表於 2013-11-9 00:23 | 只看該作者

回復 13# jj369963
2003版本與其他新版的格式化條件公式，
並不會因為作用中儲存格位置改變而變動相對參照的部分公式，
所以，還找不出可個別判斷條件成立與否的函數或方法
退而求其次，置換格式化條件公式的參照列位

Sub ex()
Dim A As Range, f As FormatCondition, Rng(1 To 2) As Range
With Sheet1
For Each A In .Range(.[A2], .[C2].End(xlDown).Offset(, -2)).SpecialCells(xlCellTypeAllFormatConditions)
For i = 1 To A.FormatConditions.Count
If Evaluate(Replace(A.FormatConditions(i).Formula1, 1, A.Row)) > 0 Then
If Rng(i) Is Nothing Then Set Rng(i) = Union(.[A1], A) Else Set Rng(i) = Union(Rng(i), A)
Exit For
End If
Next
Next
End With
sht = Array("無帳密", "無作答")
For i = 1 To 2
Rng(i).EntireRow.Copy Sheets(sht(i - 1)).[A1]
Sheets(sht(i - 1)).UsedRange.FormatConditions.Delete '清除格式化條件
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

jj369963

中學生 Rank: 2

帖子: 147
主題: 46
精華: 0
積分: 205
點名: 0
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2012-3-19
最後登錄: 2026-9-22

15^#

發表於 2013-11-11 11:38 | 只看該作者

回復 14# Hsieh

Dear  Hsieh 超版:

      非常感謝您的補充說明，還是一如既往的熱心，it works.
         真是太感謝了，也謝謝GBKEE熱心的指導
         感謝2位

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]