- 帖子
- 151
- 主題
- 1
- 精華
- 0
- 積分
- 197
- 點名
- 14
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-4-18
|
對比色的計算問題,google來的參數
Sub test()
With Sheets("操作表")
For i = 1 To 5000
.Cells(i, 1).Font.Color = -vbWhite * (77 * (.Cells(i, 1).Interior.Color Mod &H100) + 151 * ((.Cells(i, 1).Interior.Color \ &H100) Mod &H100) + 28 * ((.Cells(i, 1).Interior.Color \ &H10000) Mod &H100) < 32640)
Next i
End With
End Sub |
|
發表於 2022-11-11 20:08
| 