返回列表 上一主題 發帖

[發問] 格式化規則 VBA

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2014-11-23 12:59 | 顯示全部帖子
本帖最後由 PKKO 於 2014-11-23 13:08 編輯

回復 1# s13983037
    此巨集假設你是在sheets(1)下面操作,如果不是就在range前面加上    sheets(1).
試試看
  1. Sub test()
  2.     For i = 1 To Range("A65536").End(xlUp).Row
  3.         With Cells(i, 1)
  4.             For j = 1 To Range("C65536").End(xlUp).Row
  5.                 If .Value = Cells(j, 3) Then
  6.                     .Interior.ColorIndex = 6 '是的話黃色
  7.                     Exit For '是就離開比對
  8.                 Else
  9.                     .Interior.ColorIndex = 2 '不是的話白色
  10.                 End If
  11.             Next
  12.         End With
  13.     Next
  14. End Sub
複製代碼
interior        font         HTML        bgcolor=         Red<        Green         Blue        Color
Black        [Color 1]         #000000        #000000         0        0        0         [Black]
White        [Color 2]         #FFFFFF        #FFFFFF         255        255        255         [White]
Red         [Color 3]         #FF0000        #FF0000         255        0        0         [Red]
Green         [Color 4]         #00FF00        #00FF00         0        255        0         [Green]
Blue         [Color 5]         #0000FF        #0000FF         0        0        255         [Blue]
Yellow         [Color 6]         #FFFF00        #FFFF00         255        255        0         [Yellow]
Magenta         [Color 7]         #FF00FF        #FF00FF         255        0        255         [Magenta]
Cyan         [Color 8]         #00FFFF        #00FFFF         0        255        255         [Cyan]
PKKO

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題