返回列表 上一主題 發帖

[發問] 請問如何更改這一個range的數值

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
130  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-6-6 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-1-31 23:31 | 顯示全部帖子
回復 1# joseph2003

這種問題應該使用格式化條件即可達成
若一定要使用VBA
  1. Sub Find_Num()
  2. For Each a In Range("A:AI").SpecialCells(xlCellTypeConstants)
  3.   r = Int((a.Row - 1) / 5) + 1
  4.   Set c = Sheets(2).Rows(r).Find(a)
  5.   If Not c Is Nothing Then a.Interior.ColorIndex = 3 Else a.Interior.ColorIndex = 0
  6. Next
  7. End Sub
複製代碼
附件中含有格式化條件作法
findcell.rar (10.12 KB)
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
130  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-6-6 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-2-1 14:09 | 顯示全部帖子
回復 3# joseph2003
  1. Sub Find_Num()
  2. For Each a In Range("A:AI").SpecialCells(xlCellTypeConstants)
  3.   r = Int((a.Row - 1) / 5) + 1
  4.   Set c = Sheets(2).Rows(r).Find(a, lookat:=xlWhole)
  5.   If Not c Is Nothing Then a.Interior.ColorIndex = 3 Else a.Interior.ColorIndex = -4142
  6. Next
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題