- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2025-1-10
|
16#
發表於 2021-8-22 15:41
| 只看該作者
回復 15# ziv976688
儲存格反顏色如下,請測試看看,謝謝
Sub test()
Dim Arr, Brr
With Sheets("Sheet1")
Arr = .[a1:a10]
R = .Columns("M:V").Find("*", , , , , 2).Row
Brr = .Range("M1:DF" & R)
For i = 4 To UBound(Arr)
If i < UBound(Arr) Then
.Cells(i, 1).Interior.Color = 65280
For j = 1 To UBound(Brr, 2) Step 2
For i2 = 2 To UBound(Brr)
If Brr(i2, j) = Arr(i, 1) Then
.Cells(i2, j + 12).Interior.Color = 65280
End If
Next i2
Next j
Else
.Cells(i, 1).Interior.Color = 16776960
For j = 1 To UBound(Brr, 2) Step 2
For i2 = 2 To UBound(Brr)
If Brr(i2, j) = Arr(i, 1) Then
.Cells(i2, j + 12).Interior.Color = 16776960
End If
Next i2
Next j
End If
Next
End With
End Sub |
|