ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 756|回复: 5

[求助] 在一个区域内按顺序填充颜色

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-10-8 15:29 | 显示全部楼层 |阅读模式
利用range.Interior.ColorIndex属性有对应的数值  比如 红绿蓝黄紫 对应 34567
是不是可以建一个数组arr = Array(3, 4, 5, 6, 7)
然后通过循环将颜色填充到指定区域
以前好像在易语言里看到类似的算法,忘了怎么写代码了
效果如图
QQ截图20191008152751.jpg

TA的精华主题

TA的得分主题

发表于 2019-10-8 16:11 | 显示全部楼层
应该是可以,最好测试一下

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-8 16:24 | 显示全部楼层
1016373263 发表于 2019-10-8 16:11
应该是可以,最好测试一下

就是忘了怎么写了,如果是两个颜色话可以用一个变量做累加 奇数时一个颜色 偶数时另一个颜色   就像下面这样
    For h = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -4
        Set rn = Cells(h, 1)
        w = w + 1
        If w Mod 2 = 1 Then v = 4 Else v = 6
        Range(rn.Offset(1), rn.Offset(-2)).EntireRow.Interior.ColorIndex = v
    Next
但超过3个就不知道该怎么写了

TA的精华主题

TA的得分主题

发表于 2019-10-8 16:37 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
试试:
  1. Sub test()
  2. Dim arr, i, k
  3. arr = Array(3, 4, 5, 6, 7)
  4. For i = 1 To [a65536].End(xlUp).Row
  5.     Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = arr(k)
  6.     If k = UBound(arr) Then k = 0 Else k = k + 1
  7. Next
  8. End Sub
复制代码

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-10-8 17:06 | 显示全部楼层
我自己找到方法了  似乎不是最科学的
  1. Sub test()
  2.     arr = Array(3, 4, 5, 6, 7)
  3.     For i = 1 To Cells(Rows.Count, 1).End(3).Row
  4.         Cells(i, 1).Interior.ColorIndex = arr(n)
  5.         n = n + 1
  6.         If n > 4 Then n = 0
  7.     Next
  8. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2019-10-9 13:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
  1. Sub 颜色()
  2. For i = 1 To [a1].End(xlDown).Row
  3.     Range(Cells(i, 1), Cells(i, 5)).Interior.ColorIndex = 3 + ((i - 1) Mod 5)
  4. Next
  5. End Sub
复制代码

颜色很丑
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-28 17:52 , Processed in 0.053082 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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