Excel精英培训网

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

[已解决]合并单元格后如何添加背景色

[复制链接]
发表于 2012-11-22 14:02 | 显示全部楼层 |阅读模式


要实现的功能如下图

最佳答案
2012-11-22 18:02
  1. ag.Merge
  2. i = i + 1
  3. If i Mod 2 Then
  4.     ag.Interior.ColorIndex = 3
  5. Else
  6.     ag.iterrior.ColorIndex = 4
  7. End If
复制代码

需要修改的代码

需要修改的代码

要实现的功能

要实现的功能
发表于 2012-11-22 14:52 | 显示全部楼层
回复

使用道具 举报

发表于 2012-11-22 14:54 | 显示全部楼层
  1.     If ag.Row Mod 2 Then
  2.         '奇数行
  3.         ag.Interior.ColorIndex = 3
  4.     Else
  5.         '偶数行
  6.         ag.Interior.ColorIndex = 4
  7.     End If
复制代码
回复

使用道具 举报

发表于 2012-11-22 14:57 | 显示全部楼层
  1.         Select Case ag.Row Mod 2
  2.             Case 1: ag.Interior.ColorIndex = 3
  3.             Case 0: ag.Interior.ColorIndex = 4
  4.         End Select
复制代码
回复

使用道具 举报

 楼主| 发表于 2012-11-22 15:29 | 显示全部楼层
按你们的提供的代码,运行效果不是所想要的
回复

使用道具 举报

 楼主| 发表于 2012-11-22 15:37 | 显示全部楼层
这个效果不对, 不是合并后隔一个一种色呀
2012-11-22_153557.jpg
回复

使用道具 举报

 楼主| 发表于 2012-11-22 15:57 | 显示全部楼层
兰色幻想老师,还的请你出山解答一下咯
回复

使用道具 举报

 楼主| 发表于 2012-11-22 17:23 | 显示全部楼层
hwc2ycy 发表于 2012-11-22 14:54

你的那个代码实现不了所需要的效果哦
回复

使用道具 举报

发表于 2012-11-22 17:29 | 显示全部楼层
图片中的内容看不清哦
不知道填充的具体规则
没附件好测试

{:041:}
回复

使用道具 举报

发表于 2012-11-22 17:43 | 显示全部楼层
你把附件传上来,我再试试。
没看清你的题意
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 21:44 , Processed in 0.680779 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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