Excel精英培训网

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

[已解决]求判断的代码

[复制链接]
发表于 2017-5-12 16:21 | 显示全部楼层 |阅读模式
区域内 逐行判断每行有红色背景单元格的数量是否>0,详情请看附件: 求判断代码1.rar (6.96 KB, 下载次数: 17)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2017-5-15 14:57 | 显示全部楼层
要判断R列最下面一行有数据的行号,所以请把你的说明部分删除后运行以下代码。
  1. Sub aaa()
  2. Dim rng As Range, i&, b As Boolean
  3. Set rng = [j2].CurrentRegion
  4. For i = 1 To rng.Rows.Count
  5.   If rng(i, 1).Interior.Color <> vbRed And rng(i, 2).Interior.Color <> vbRed Then
  6.     b = True
  7.     Exit Sub
  8.   End If
  9. Next i
  10. [r65536].End(3).Offset(1).Resize(, 2) = [l2:m2].Formula
  11. End Sub
复制代码

评分

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

查看全部评分

回复

使用道具 举报

发表于 2017-5-15 14:58 | 显示全部楼层    本楼为最佳答案   
简化了一下。
  1. Sub aaa()
  2. Dim rng As Range, i&
  3. Set rng = [j2].CurrentRegion
  4. For i = 1 To rng.Rows.Count
  5.   If rng(i, 1).Interior.Color <> vbRed And rng(i, 2).Interior.Color <> vbRed Then Exit Sub
  6. Next i
  7. [r65536].End(3).Offset(1).Resize(, 2) = [l2:m2].Formula
  8. End Sub
复制代码

评分

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

查看全部评分

回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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