Board logo

標題: 一個欄位變色問題 [打印本頁]
作者: 周大偉    時間: 2011-7-3 15:15     標題: 一個欄位變色問題

大大們, 安好
一直以來, 小弟都是用設定格式條件去改變儲存格底色或字體顏色, 而現時小弟有一檔案, 也是變色問題, 而設定格式應沒法做到, 故把檔案上傳, 請大大們協助, 謝謝!!
[attach]6902[/attach]
作者: oobird    時間: 2011-7-3 16:19

  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
複製代碼
[attach]6903[/attach]
作者: 周大偉    時間: 2011-7-3 18:52

oobird 版主大大好
先謝謝回應, 有一個怪現象請教, 我把大大原寫好的檔案下載, 一切正常, 而當我把程式複製於現用的檔案中, 便出現有個別月份沒有回應或月份調亂, 如12月, 便沒有變色, 而原本在12月變色的假期則顯示於11月中, 何解, 懇請大大協.
[attach]6905[/attach]
作者: oobird    時間: 2011-7-3 19:03

本帖最後由 oobird 於 2011-7-3 19:05 編輯

Set c = Sheets(r & "月").[2:2].Find(r(1, 2), , , 1)
以表的排列序號容易發生錯誤，因為1月不一定是第一張表，要改以表名作為依據。
作者: 周大偉    時間: 2011-7-3 20:32

回復 4# oobird

oobird 版主大大,  
衷心謝謝: 問題已解決, 祝快樂..
作者: 周大偉    時間: 2011-7-5 21:13

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

[attach]6918[/attach]
作者: oobird    時間: 2011-7-5 21:54

[attach]6922[/attach]
作者: 周大偉    時間: 2011-7-5 22:39

回復 7# oobird

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)