ColorIndex和Color,哪种方法用的最多。

ning84 · 发表于 2024-3-9 07:34

ColorIndex和Color两种方法
ColorIndex和Color,哪种方法用的最多。
1.Interior.ColorIndex指的是EXCEL内置索引颜色，只有56种，索引值分别为1~56；并且EXCEL工作表中只能表现出这56种颜色。

2.Interior.Color（本身是变体类型）的颜色是由RGB函数返回的long值数据决定的。取值范围是0~256的3次方。超过这个范围的值，也不会报错，但并没有与之对应的颜色值。根据某种算法，它会自动修改为可识别的对应颜色值。

VBA代码中数字和颜色对照表-Excel VBA程序开发-ExcelHome技术论坛 - https://club.excelhome.net/thread-923984-1-1.html?_dsign=8db21cde

VBA获取单元格填充颜色的RGB值，或，用RGB的到填充颜色-Excel VBA程序开发-ExcelHome技术论坛 - https://club.excelhome.net/forum ... amp;_dsign=05e6a7d5

Sub ff()
Dim Rng As Range
Set Rng = Cells(9, 1).CurrentRegion
Debug.Print Rng.Address
For ii = 1 To Rng.Rows.Count
With Rng(ii, 1)
Debug.Print .Interior.Color, .Interior.ColorIndex
End With
Next ii
End Sub

复制代码

运行结果

15773696    33
16777215    2
16777215    2
16777215    2
16777215    2
16777215    2
16777215    2
16777215    2
16777215    2
16777215    2

shiruiqiang · 发表于 2024-3-9 08:26

本帖最后由 shiruiqiang 于 2024-3-9 08:28 编辑

一个写颜色数字，一个写颜色英文，个人各喜欢
另一种情况，相同的区域划为一个颜色时，用数字较多

ning84 · 发表于 2024-3-10 06:23

Sub ff()
Dim Rng As Range
Dim Kk
Kk = 0
Set Rng = Cells(9, 1).CurrentRegion
Debug.Print Rng.Address
For ii = 1 To Rng.Rows.Count
With Rng(ii, 1)
'Debug.Print .Address
If Rng(ii, 1).Interior.ColorIndex <> 2 Then
Kk = Kk + 1
End If
If Rng(ii, 1).Interior.ColorIndex = 2 Then
'Debug.Print "Map" & Kk, Rng(ii, 2).Interior.ColorIndex, Rng(ii, 1).Address
End If
Rng(ii, 3) = "Map" & Kk
End With
Next ii
End Sub

复制代码

过客fppt · 发表于 2024-3-10 08:59

ning84 发表于 2024-3-10 06:23

看个人习惯，不过我有一段时间倒是经常在摩尔广场下车去打工

ykcbf1100 · 发表于 2024-3-10 21:09

我平时Interior.ColorIndex用得多，好记。
Color，数字多，不好记。

ddmc · 发表于 2024-3-10 22:30

Color 用 RGb

tanglf188 · 发表于 2024-3-11 09:20

常用颜色有4种写法：
1、ColorIndex属性，取值范围如图

2、Color常量

3、System Color常量

4、RGB函数

		自动登录	找回密码
密码			免费注册