返回列表 上一主題 發帖

請問如何一次變更多個儲存格的條件格式

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-2-6 23:54 | 顯示全部帖子
回復 7# leefing
  1. Sub QQ()
  2. For R = 2 To [A65536].End(xlUp).Row
  3.   If Cells(R, "F") < Cells(R, "Q") Then
  4.      Cells(R, "F").Interior.ColorIndex = 35
  5.   ElseIf Cells(R, "F") > Cells(R, "Q") Then
  6.      Cells(R, "F").Interior.ColorIndex = 38
  7.   Else: Cells(R, "F").Interior.ColorIndex = xlNone
  8.   End If
  9. Next R
  10. End Sub
複製代碼
看盤1.rar (10.46 KB)

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題