Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2702|回复: 4

[已解决]请老师帮忙,让【Listview控件】中的数据,实现与单元格一样的效果!

[复制链接]
发表于 2017-3-1 12:21 | 显示全部楼层 |阅读模式
本帖最后由 lenovo0312 于 2017-3-1 14:54 编辑

001.jpg
请老师帮忙,让【Listview控件】中的数据实现与单元格一样的颜色分类~!谢谢
002.jpg
fujian: Listview一添加颜色分类-1.rar (24.72 KB, 下载次数: 10)
 楼主| 发表于 2017-3-1 14:54 | 显示全部楼层
回复

使用道具 举报

发表于 2017-3-2 13:40 | 显示全部楼层    本楼为最佳答案   
只能调ListView第一列的颜色。

Listview一添加颜色分类.rar

23.71 KB, 下载次数: 7

回复

使用道具 举报

发表于 2017-3-2 23:47 | 显示全部楼层
见附件,后面的颜色也是可以的。

添加颜色2.zip

20.08 KB, 下载次数: 23

评分

参与人数 1 +3 收起 理由
ilovelittle + 3 我和小伙伴都惊呆了

查看全部评分

回复

使用道具 举报

发表于 2017-3-2 23:50 | 显示全部楼层
  1. Private Sub UserForm_Initialize()
  2. On Error Resume Next
  3. With Me.ListView1

  4. .ListItems.Clear
  5.   .ListItems.Clear
  6.   .View = lvwReport
  7.   .FullRowSelect = True
  8.   .Gridlines = True
  9.   .HideSelection = False '显示为淡灰色
  10. .BackColor = &HFFC0C0 '背景显示为淡兰色

  11. .ColumnHeaders.Add , , "絪腹", ListView1.Width / 10, lvwColumnLeft
  12. .ColumnHeaders.Add , , "﹎?", ListView1.Width / 10, lvwColumnCenter
  13. .ColumnHeaders.Add , , "?丁", ListView1.Width / 10, lvwColumnCenter
  14. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 10, lvwColumnCenter
  15. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
  16. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
  17. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
  18. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
  19. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnCenter
  20. .ColumnHeaders.Add , , "ら戳", ListView1.Width / 15, lvwColumnRight
  21. m = [C65536].End(xlUp).Row
  22. For i = 3 To m
  23.      .ListItems.Add , , Cells(i, 1)
  24.          For j = 1 To 9
  25.      .ListItems(i - 2).SubItems(j) = Cells(i, j + 1)
  26. Next j, i
  27. End With
  28. '********************************
  29. With UserForm1.ListView1
  30. For y = 1 To .ListItems.Count + 2
  31.   If .ListItems(y) = .ListItems(y + 1) Then
  32.       n = n + 1
  33.   Else
  34.       m = m + 1
  35.       a = y: b = a - n
  36.       For x = b To a
  37.         For z = 1 To .ColumnHeaders.Count - 1
  38.           If m Mod 2 <> 0 Then
  39.              .ListItems(x).ForeColor = RGB(0, 0, 0)
  40.              .ListItems(x).ListSubItems(z).ForeColor = RGB(0, 0, 0)
  41.           Else
  42.             .ListItems(x).ForeColor = RGB(255, 0, 0)
  43.             .ListItems(x).ListSubItems(z).ForeColor = RGB(255, 0, 0)
  44.           End If
  45.         Next z
  46.       Next x
  47.       a = 0: b = 0: n = 0
  48.     End If
  49. Next y
  50. End With
  51. End Sub
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 20:00 , Processed in 0.558260 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表