- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-22
|
14#
發表於 2015-12-17 17:59
| 只看該作者
回復 13# Airman
RW = Array(.[T5], .[R6], b(1, -1))
For x = 1 To 4
For y = 1 To 3
For z = 1 To 7
Set R(1) = .[J6].Cells(RW(y - 1) - x + 1, z)
Set R(2) = Nothing
For i = 1 To 3
If i <> y Then Set R(2) = .[J6:P6].Offset(RW(i - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
If Not R(2) Is Nothing Then R(1).Interior.ColorIndex = Array(4, 6, 8)(y - 1): Exit For
Next i
Next z
Next y
Next x |
|
發表於 2015-12-17 14:31
| 
~小弟自己將需求搞複雜了~耽誤您許多寶貴的時間~敬請見諒~謝謝您
