Excel精英培训网

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

[已解决]这样子的单元格如何表示好啊

[复制链接]
发表于 2013-4-16 10:53 | 显示全部楼层 |阅读模式
我要写除了row=14,17,21,25 并且column=B到J 以外的所有格子都填充蓝色,怎么写漂亮啊
最佳答案
2013-4-16 11:18
  1. Sub test()
  2.     Dim A, i%
  3.    
  4.     Cells.Interior.ColorIndex = xlNone
  5.     A = Array(14, 17, 21, 25)
  6.    
  7.     For i = 0 To UBound(A)
  8.         Cells(A(i), 2).Resize(1, 9).Interior.ColorIndex = 5
  9.     Next i
  10.    
  11. End Sub
复制代码
发表于 2013-4-16 10:56 | 显示全部楼层
B到J 以外的所有格子都填充蓝色{:041:}

填充颜色不花钱啊{:031:}
回复

使用道具 举报

发表于 2013-4-16 11:01 | 显示全部楼层
  1. Sub test()
  2.     Cells.Interior.ColorIndex = 5
  3.     Range("14:14,17:17,21:21,25:25").Interior.ColorIndex = xlNone
  4.     Range("b:j").Interior.ColorIndex = xlNone
  5. End Sub
复制代码
回复

使用道具 举报

发表于 2013-4-16 11:03 | 显示全部楼层
爱疯 发表于 2013-4-16 10:56
B到J 以外的所有格子都填充蓝色

填充颜色不花钱啊

用公司的电脑,公司的网,公司的电,公司还会发钱!!

所以,颜色随便填!!公司有钱
回复

使用道具 举报

发表于 2013-4-16 11:07 | 显示全部楼层
我觉得楼主肯定不是这么简单的想,一定是坑。。。。
回复

使用道具 举报

 楼主| 发表于 2013-4-16 11:12 | 显示全部楼层
爱疯 发表于 2013-4-16 11:07
我觉得楼主肯定不是这么简单的想,一定是坑。。。。

嗯,是有点问题,
应该是我要写除了  “row=14,17,21,25  column=B到J 香蕉的单元格” 以外的所有各自都填蓝色
8好意思,该抽

点评

还苹果呢  发表于 2013-4-16 11:14
回复

使用道具 举报

发表于 2013-4-16 11:16 | 显示全部楼层

  1. Sub aa()
  2.     Cells.Interior.ColorIndex = 4
  3.     Union(Range("14:14,17:17,21:21,25:25"), Columns("D:J")).Interior.ColorIndex = 2
  4. End Sub
复制代码

评分

参与人数 1 +6 金币 +6 收起 理由
爱疯 + 6 + 6 这个好些

查看全部评分

回复

使用道具 举报

发表于 2013-4-16 11:18 | 显示全部楼层    本楼为最佳答案   
  1. Sub test()
  2.     Dim A, i%
  3.    
  4.     Cells.Interior.ColorIndex = xlNone
  5.     A = Array(14, 17, 21, 25)
  6.    
  7.     For i = 0 To UBound(A)
  8.         Cells(A(i), 2).Resize(1, 9).Interior.ColorIndex = 5
  9.     Next i
  10.    
  11. End Sub
复制代码
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 13:14 , Processed in 0.598399 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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