设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 分享区 › Excel 自习室 › VBA 选择B和E列所有负数所在单元格填充红色底

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 1472|回复: 3

[VBA] VBA 选择B和E列所有负数所在单元格填充红色底

发表于 2016-11-13 22:27 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

VBA 选择B和E列所有负数所在单元格填充红色底

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

x

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

发表于 2016-11-14 12:15 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

Sub suaa()
Dim x As Range
rw = Cells(Rows.Count, 1).End(3).Row
Set rn = Union(Range("B3:B" & rw), Range("E3:E" & rw))
For Each rng In rn
If rng < 0 Then
If x Is Nothing Then Set x = rng Else Set x = Union(x, rng)
End If
Next
x.Interior.Color = 255
End Sub

复制代码

点评

laoau138教授出考题, su45老师这么认真地回答，好学生。发表于 2016-11-14 13:03

评分

参与人数 1	+3	收起理由
laoau138	+ 3	来学习

查看全部评分

回复

使用道具举报

楼主| 发表于 2016-11-14 13:16 | 显示全部楼层

工作中最常用的Excel函数公式，全印在一张鼠标垫上

本帖最后由 laoau138 于 2016-11-14 13:18 编辑

不管这么多，继续发题了

回复

使用道具举报

发新帖

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

GMT+8, 2024-6-6 08:06 , Processed in 0.646817 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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