|
本帖最后由 Datous 于 2019-12-14 11:55 编辑
使用 range.DisplayFormat.Interior.Color 获取当前显示颜色
- Private Sub CommandButton1_Click()
- Dim rngA As Range, vntClr()
- Dim I&, J%
- Set rngA = Range("C3:H" & [c50000].End(xlUp).Row)
- ReDim vntClr(rngA.Rows.Count - 1, 1)
- For I = 1 To rngA.Rows.Count
- For J = 1 To rngA.Columns.Count
-
- If rngA(I, J).DisplayFormat.Interior.Color = 13551615 Then
- vntClr(I - 1, 0) = vntClr(I - 1, 0) + 1
- ElseIf rngA(I, J).DisplayFormat.Interior.Color = 13561798 Then
- vntClr(I - 1, 1) = vntClr(I - 1, 1) + 1
- End If
- Next
- Next
- Range("I3").Resize(rngA.Rows.Count, 2) = vntClr
- End Sub
复制代码 |
评分
-
2
查看全部评分
-
|