listView控件颜色设置(隔行背景设置，隔行字体颜色设置，行高设置)

yykxiaoyang · 发表于 2009-12-13 16:01

见附件，内有技巧：
1、背景颜色设置（如隔行）
2、字体颜色设置（如隔行）
3、字体不变的情况下行高设置
4、将剪贴板内容存为图片文件
5、VBA清空excel剪贴板
本人其他分享：
http://club.excelhome.net/thread-584144-1-1.html
http://club.excelhome.net/thread-562954-1-1.html
http://club.excelhome.net/thread-512410-1-1.html
http://club.excelhome.net/thread-527339-1-1.html

[ 本帖最后由 yykxiaoyang 于 2010-6-6 22:01 编辑 ]

lb_bn · 发表于 2009-12-13 16:06

谢谢楼主分享，美化工程可用。

anlinhe · 发表于 2009-12-13 18:34

没意思！！！！

yykxiaoyang · 发表于 2009-12-13 19:52

你用过listView吗？你用得着listView吗？你懂listView吗？
请将你有意思的拿出来！

飞云楼主 · 发表于 2009-12-13 22:50

收下，辛苦了。谢谢。

hanter007 · 发表于 2010-5-10 15:18

刚好需要到这方面的知识,我需要的是列改变颜色.
谢谢楼主的分享.

yykxiaoyang · 发表于 2010-6-9 14:30

我再顶一次，因为listView对于我们非专业人员还是一个非常不错的控件！

aidixiao · 发表于 2010-6-9 15:50

感谢分享。

Chzhsh · 发表于 2010-6-14 14:13

想请教楼主，假如要指定含某一字符串的行显示不同的颜色，怎么写？

yykxiaoyang · 发表于 2010-6-14 14:54

以原附件为例:
如果当第1列包含数字1时,则显示为红色,代码为:
With Me.ListView1
For I = 1 To .ListItems.Count
      If .ListItems(I).Text Like "*1*" Then
         .ListItems(I).ForeColor = RGB(255, 0, 0)
      End If
Next
End With

通过上面代码,可以看出,VBA包含可用like,
另ListView第N行第1列为:ListItems(N).Text
第N行第M列(M>1)为:ListItems(N).ListSubItems(M-1)

愿对你有帮助

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

[分享] listView控件颜色设置(隔行背景设置，隔行字体颜色设置，行高设置)

评分

nono !

回复 3楼 anlinhe 的帖子

回复 10楼 Chzhsh 的帖子

[分享] listView控件 颜色设置(隔行背景设置，隔行字体颜色设置，行高设置)

评分

nono !

回复 3楼 anlinhe 的帖子

回复 10楼 Chzhsh 的帖子

[分享] listView控件颜色设置(隔行背景设置，隔行字体颜色设置，行高设置)