excel表格合计公式中有两个颜色,颜色分别合计

来源：蜘蛛抓取(WebSpider) 时间：2015-01-06 06:47 标签： word表格合计
这是个机器人猖狂的时代，请输一下验证码，证明咱是正常人~查看: 838|回复: 8
想实现“套用表格格式”那样类似的效果，每一种项目不同颜色，两种颜色交替
阅读权限20
在线时间 小时
QQ截图49.png (27.68 KB, 下载次数: 2)
12:58 上传
如图所示，想实现这种效果，但是“套用表格格式”只能实现每一行交替两种颜色，对这种合并了单元格的无法实现这种效果，求大神指导如何实现，不甚感激。
(16.13 KB, 下载次数: 2)
13:00 上传
点击文件名下载附件
阅读权限20
在线时间 小时
求各位坛友能够指点迷津啊，谢谢了
阅读权限95
在线时间 小时
Public Sub abc()
Dim x As Range, r1 As Range, r2 As Range, n, c
For Each x In Range([a3], [a65536].End(3))
& & If x && && Then
& && &&&n = n + 1
& && &&&c = x.MergeArea.Rows.Count
& && &&&If Application.IsOdd(n) Then
& && && && &If r1 Is Nothing Then Set r1 = x.Resize(c, 6) Else Set r1 = Union(r1, x.Resize(c, 6))
& && &&&Else
& && && && &If r2 Is Nothing Then Set r2 = x.Resize(c, 6) Else Set r2 = Union(r2, x.Resize(c, 6))
& && &&&End If
& & End If
Next
If Not r1 Is Nothing Then r1.Interior.ColorIndex = 15
If Not r2 Is Nothing Then r2.Interior.ColorIndex = 16
End Sub复制代码
阅读权限95
在线时间 小时
请参考附件
10:52 上传
点击文件名下载附件
18.21 KB, 下载次数: 10
阅读权限20
在线时间 小时
doitbest 发表于
请参考附件
c = x.MergeArea.Rows.Count& &这句什么意思，我知道X是一个range变量，返回的是什么，麻烦老师给个注释，刚刚接触VBA，谢谢老师了
阅读权限20
在线时间 小时
doitbest 发表于
请参考附件
老师，您的代码很简洁，可是对于刚入门vba的我来说还是不太懂，可否麻烦您给每一行注释一下呢，不胜感激
阅读权限95
在线时间 小时
Public Sub abc()
Dim x As Range, r1 As Range, r2 As Range, n, c
For Each x In Range([a3], [a65536].End(3))&&'在A列循环
& & If x && && Then
& && &&&n = n + 1&&'如果为非空，计数加1
& && &&&c = x.MergeArea.Rows.Count&&'取得所在合并单元格行数
& && &&&If Application.IsOdd(n) Then&&'如果N是奇数，则将其纳入R1集合，偶数纳入R2集合
& && && && &If r1 Is Nothing Then Set r1 = x.Resize(c, 6) Else Set r1 = Union(r1, x.Resize(c, 6))
& && &&&Else
& && && && &If r2 Is Nothing Then Set r2 = x.Resize(c, 6) Else Set r2 = Union(r2, x.Resize(c, 6))
& && &&&End If
& & End If
If Not r1 Is Nothing Then r1.Interior.ColorIndex = 15&&'对R1集合单元格着色
If Not r2 Is Nothing Then r2.Interior.ColorIndex = 16
阅读权限20
在线时间 小时
doitbest 发表于
Public Sub abc()
Dim x As Range, r1 As Range, r2 As Range, n, c
For Each x In Range([a3], [a65536] ...
精彩精彩精彩
阅读权限20
在线时间 小时
doitbest 发表于
Public Sub abc()
Dim x As Range, r1 As Range, r2 As Range, n, c
For Each x In Range([a3], [a65536] ...
太感谢了，百忙之中不厌其烦为我解答，谢谢
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师用红,绿,蓝三种颜色对下图2*5的表格进行染色,要求有公共边的两个格子必须染成不同的颜色.一共有几种染法_百度作业帮
用红,绿,蓝三种颜色对下图2*5的表格进行染色,要求有公共边的两个格子必须染成不同的颜色.一共有几种染法
用红,绿,蓝三种颜色对下图2*5的表格进行染色,要求有公共边的两个格子必须染成不同的颜色.一共有几种染法
a可以涂5种颜色,那么b不能和a想通可以涂4种,以此类推,c和d都可以涂3种.最后总共可以涂5*4*3*3=180种望楼主采纳~word表格内一个格中有两种颜色,怎么弄_百度知道
word表格内一个格中有两种颜色,怎么弄
就是表格内有两种颜色，没有分界线
鼠标右击单元格-拆分单元格，列数为2，填充色后选定这两色的单元格再鼠标右击-边框和底纹，去掉中线-确定即可
怎么去掉中心线= =
填充色后选定这两色的单元格再鼠标右击-点边框和底纹，在显示边框线的图中点一下中线就去掉了中线-确定即可
来自团队：
其他类似问题
3人觉得有用
为您推荐：
word表格的相关知识
其他3条回答
做2个格子然后填充2种颜色之后把线删掉
不知是不是这个意思？
边框和底纹……应用于……分别选择
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 word表格合计 的文章

 

随机推荐