vblistview添加行颜色

你好！vblistview添加行颜色如下，1、先在PictureBox控件里画图，之后将其加载到Listview中

        2、给单元格/Shape添加颜色后，复制Range和Shapes对象给剪贴板，然后保存成图片，需要WinAPI

        3、对ListItem子类化后进行重绘。这是原来Vb用的方法，vba里貌似没人用

下面的方法1、2与上面的方法2相似，方法3即上面的方法3。当然还可以通过调用整个控件hdc在内存中作图，但和方法3一样需要调用WinAPI

用条件格式可以实现

1、选定区域后菜单--->开始页--->条件格式---->管理规则

2、新建规则，打开后点击新建规则

3、依据条件格式优先顺序原则，先筛选为空的数据值格式。选择（只为包含以下内容的单元格设置格式）条件选择【等于】

3、点击格式选择格式，设置成白色，注这里为何不选不填充颜色是因为后面还有奇偶行变色如果这里设置不填充那么奇偶变色时会自动填充破坏了我们设的规则。

4、建立第一规则，隔行变色，选择最后（使用公式确定要设置格式的单元格）输入公式

=MOD(ROW(),2)=1【说明：=1是奇数行变色，=0是偶数行变色】

5、整体格式预览如下

6、确定效果如下这里效果颜色可以随便自己定义

Sub 按钮1_Click() '改变字体颜色

For I = 0 To 3 '4*5行

For M = 1 To 10 '10列

For N = 1 To 5

If Int(I / 2) * 2 = I Then

Sheet14.Cells(I * 5 + N, M).Font.Color = RGB(255, 25, 255) '()里表示红绿蓝三色值，

Else

Sheet14.Cells(I * 5 + N, M).Font.Color = RGB(25, 255, 255) '最大255，最小0

End If

Next

Next

Next

End Sub

'如果要单元格改变底色，只要将上面的 Font 换成 Interior，但行、列数字设置过大会很慢

---