返回列表 上一主題 發帖

一個欄位變色問題

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-7-3 15:15 | 只看該作者

一個欄位變色問題

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

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
8#
發表於 2011-7-5 22:39 | 只看該作者
回復 7# oobird

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
7#
發表於 2011-7-5 21:54 | 只看該作者

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
6#
發表於 2011-7-5 21:13 | 只看該作者
oobird 版主大大, 好
小弟日前用錄製方式, 錄製了一個巨集, 但出來的效果雖然可用, 但錄製程式碼頗長, 而且運作不太暢順,
故把這個問題上傳, 請教,,附件中有明細說明, 先行謝過....

rr.rar (9.75 KB)

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
5#
發表於 2011-7-3 20:32 | 只看該作者
回復 4# oobird

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2011-7-3 19:03 | 只看該作者
本帖最後由 oobird 於 2011-7-3 19:05 編輯

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

TOP

周大偉

帖子
250 
主題
59 
精華
0 
積分
313 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
澳門 
註冊時間
2010-9-11 
最後登錄
2020-1-6 
3#
發表於 2011-7-3 18:52 | 只看該作者
oobird 版主大大好
先謝謝回應, 有一個怪現象請教, 我把大大原寫好的檔案下載, 一切正常, 而當我把程式複製於現用的檔案中, 便出現有個別月份沒有回應或月份調亂, 如12月, 便沒有變色, 而原本在12月變色的假期則顯示於11月中, 何解, 懇請大大協.
cc.rar (28.96 KB)

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 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
複製代碼
bb.rar (11.83 KB)

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題