- 帖子
- 80
- 主題
- 27
- 精華
- 0
- 積分
- 108
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-3-6
- 最後登錄
- 2012-8-23
|
請教各位大大~
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 |
|