manbet网

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 174|回复: 7
打印 上一主题 下一主题

帮忙写下代码

[复制链接]
跳转到指定楼层
1楼
发表于 2021-6-12 13:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 ruhong18 于 2021-6-12 18:58 编辑

当A列日期,大于或等于当前日期20天或20天以上的,该行填充红色:     
当A列日期,大于或等于当前日期15天且小于20天的,,该行填充茶色:   
当A列日期,大于或等于当前日期7天且小于15天的,,该行填充**
当A列日期,小于7天的颜色没有任何变化;



求助6.12.zip

6.57 KB, 下载次数: 10

分享到:  QQ好友和群QQ好友和群
收藏收藏
2楼
发表于 2021-6-12 16:18 | 只看该作者
你这“大于或等于当前日期20天或20天以上”,是啥概念?是当前日期之前还是之后?
3楼
 楼主| 发表于 2021-6-12 16:32 | 只看该作者
zjdh 发表于 2021-6-12 16:18
你这“大于或等于当前日期20天或20天以上”,是啥概念?是当前日期之前还是之后?

简单的意思就是:7天内的不用上色,7天以上15天内的上**煲陨
4楼
发表于 2021-6-12 16:54 | 只看该作者

先用day求出日期值放在h列
Sub ss()
Dim a
For i = 2 To 16
a = Sheet1.Range("h" & i)

If a >= 20 Then Sheet1.Rows(i).Interior.ColorIndex = 10

If (a >= 15 And a < 20) Then Sheet1.Rows(i).Interior.ColorIndex = 30
If a < 7 Then Sheet1.Rows(i).Interior.ColorIndex = 0
If (a >= 7 And a < 15) Then Sheet1.Rows(i).Interior.ColorIndex = 15
Next i
End Sub


评分

参与人数 1学分 +2 收起 理由
ruhong18 + 2

查看全部评分

5楼
 楼主| 发表于 2021-6-12 18:48 | 只看该作者
roserice 发表于 2021-6-12 16:54
先用day求出日期值放在h列
Sub ss()
Dim a

你好,填充颜色按照代码是整行,如果选择A列到H列的范围就好,该怎么修改?
6楼
 楼主| 发表于 2021-6-12 18:58 | 只看该作者
ruhong18 发表于 2021-6-12 18:48
你好,填充颜色按照代码是整行,如果选择A列到H列的范围就好,该怎么修改?

.Cells(i, 1).Resize(1, 8).Interior.ColorIndex = 3   知道了,谢谢!
7楼
发表于 2021-6-12 20:41 | 只看该作者
本帖最后由 zjdh 于 2021-6-14 11:00 编辑

你这只要用条件格式即可实现,不用宏!
既然不感兴趣,附件删了。
8楼
发表于 2021-6-18 12:04 | 只看该作者
ruhong18 发表于 2021-6-12 18:58
.Cells(i, 1).Resize(1, 8).Interior.ColorIndex = 3   知道了,谢谢!

用Range.EntireRow.Interior.ColorIndex
或者entirecolumn
您需要登录后才可以回帖 登录 | 注册 发新帖

本版积分规则

小黑屋|手机版|Archiver|manbet ( )

GMT+8, 2021-6-23 17:27 , Processed in 0.109200 second(s), 6 queries , Gzip On, Redis On.

Powered by X3.4

Copyright © 2001-2020, Tencent Cloud.

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