返回列表下一主題上一主題發帖

[發問] 改變特定儲存格顏色

caichen3

中學生 Rank: 2

帖子: 80
主題: 27
精華: 0
積分: 108
點名: 0
作業系統: windows
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-3-6
最後登錄: 2012-8-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-4-10 13:03 | 顯示全部帖子

[發問] 改變特定儲存格顏色

請教各位大大~
M1:M3  有3個數值，想從G欄尋找這三個數值，找到後希望將這三個數值的所在儲存格顏色改為紅色，以下是我的程式碼，能幫我看看！

Dim bbb as string
Dim findstr As String
Dim findrng As Range
mmm = Chr(77)
FOR L=1 TO 3
      bbb=L
      findstr=range(mmm+bbb).value
      Set findrng = Cells.Find(what:=findstr, LookIn:=xlValues, LookAt:=xlWhole)
      findrng.Interior.Color = RGB(255, 0, 0)
Next L