ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Word > Word表格奇偶行交错着色轻松实现

Word表格奇偶行交错着色轻松实现

作者:绿色风 分类: 时间:2022-08-18 浏览:273
楼主
传递
Word表格奇偶行交错着色轻松实现

 
Word中的数据表格的奇偶行交错着色,过程就相当繁琐。一般都是一行行设置表格填充颜色。
在Excel的表格中录入大量的数据时,通常录入者都习惯隔行填充不同的颜色以防止浏览者看错行。
不过, Word可以轻松地插入Excel表格,因此给Word表格的奇偶行交错着色也不再是什么难事。
第一步:插入Excel电子表格:用Word打开或新建将要插入表格的文档,依次点击菜单栏【插入】【表格】/【Excel电子表格】,就可以插入一个与普通Excel文档并无二致的表格,通过鼠标拖拽的方法来可以增加表格的可视行或列。双击选中它,就可以在其中进行Excel表格的编辑操作(比如可以增加多个工作簿,不过当它保存为Word文档时,显示的只有当前打开的工作簿内容,但双击该表格又可以在其中看到所有的工作簿内容。

 
第二步——给表格的偶数行着色:切换到Word的【开始】选项卡,选中工作簿,单击【条件格式】→【管理规则】,在随后出现的【条件格式规则管理器】窗口中,点击【新建规则】,选择【使用公式】确定要设置格式的单元格【规则类型】,在【为符合此公式的值设置格式】中输入:=MOD(ROW(),2)=0(图2),并点击【格式】按钮,设置【填充】颜色及【边框】颜色

 
  
 

 第三步——给表格的奇数行着色:仿照第二步,输入公式:=MOD(ROW(),2)<>0,并设置不同的【填充】颜色及相同的【边框】颜色,(这步可以省略,只要在第一步前先把需要的单元格填充色先设和条件格式不同的就行)


 

操作过程如下:

 
Word 2007表格奇偶行交错着色轻松实现.rar
2楼
wjc2090742
补充
  1. Sub tt()
  2. Dim i As Byte
  3. With ActiveDocument.Tables(1)
  4.     For i = 1 To .Rows.Count
  5.         If i Mod 2 = 1 Then
  6.             .Rows(i).Shading.BackgroundPatternColorIndex = wdBrightGreen
  7.         Else
  8.             .Rows(i).Shading.BackgroundPatternColorIndex = wdYellow
  9.         End If
  10.     Next
  11. End With
  12. End Sub

参考:
[Word] 如何用VBA获取表格中单元格的背景色? http://www.exceltip.net/thread-17102-1-1.html
3楼
lmzxx
学习了,WORD不太会

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap