一個欄位變色問題

周大偉

大大們, 安好
一直以來, 小弟都是用設定格式條件去改變儲存格底色或字體顏色, 而現時小弟有一檔案, 也是變色問題, 而設定格式應沒法做到, 故把檔案上傳, 請大大們協助, 謝謝!!
bb.rar (8.56 KB)

下載次數: 6

2011-7-3 15:14

oobird

1. Private Sub CommandButton1_Click()
   
2. For Each r In Range([an5], [an5].End(4))
   
3. Set c = Sheets(r).[2:2].Find(r(1, 2), , , 1)
   
4. If Not c Is Nothing Then c(2, 1).Resize(20, 1).Interior.ColorIndex = 15
   
5. Next
   
6. End Sub

複製代碼

bb.rar (11.83 KB)

下載次數: 8

2011-7-3 16:19

周大偉

oobird 版主大大好
先謝謝回應, 有一個怪現象請教, 我把大大原寫好的檔案下載, 一切正常, 而當我把程式複製於現用的檔案中, 便出現有個別月份沒有回應或月份調亂, 如12月, 便沒有變色, 而原本在12月變色的假期則顯示於11月中, 何解, 懇請大大協.
cc.rar (28.96 KB)

下載次數: 4

2011-7-3 18:52

oobird

Set c = Sheets(r & "月").[2:2].Find(r(1, 2), , , 1)
以表的排列序號容易發生錯誤，因為1月不一定是第一張表，要改以表名作為依據。

周大偉

回復 4# oobird

oobird 版主大大,  
衷心謝謝: 問題已解決, 祝快樂..

周大偉

oobird 版主大大, 好
小弟日前用錄製方式, 錄製了一個巨集, 但出來的效果雖然可用, 但錄製程式碼頗長, 而且運作不太暢順,
故把這個問題上傳, 請教,,附件中有明細說明, 先行謝過....

rr.rar (9.75 KB)

下載次數: 8

2011-7-5 21:13

oobird

下載 (63.48 KB)

2011-7-5 21:54

周大偉

回復 7# oobird

謝謝謝!!!   
祝健康, 快樂..