根据开始、结束时间，自动将代表对应时间的单元格设置为红色

sjsj521 · 发表于 2024-5-12 10:26

C列为开始时间，D列为结束时间，5、6、7代表月份，希望输入开始和结束时间，自动将对应时间的单元格标红

沈默00 · 发表于 2024-5-12 10:41

VBA做吧...

hcm19522 · 发表于 2024-5-12 13:20

=(DATE(YEAR($C3),LOOKUP(99,$F$3:F$3),COLUMN(G1)-LOOKUP(1,0/$F$3:F$3,COLUMN($F:F)))>=$C3)*(DATE(YEAR($C3),LOOKUP(99,$F$3:F$3),COLUMN(G1)-LOOKUP(1,0/$F$3:F$3,COLUMN($F:F)))<=$D3)

swl4561255 · 发表于 2024-5-12 14:30

Sub test()
[A1].CurrentRegion.Interior.ColorIndex = xlNone
co = InputBox("请输入填充颜色(红色3，蓝色5，黄色6，绿色14)：", , 3, n)
arr = [A1].CurrentRegion
For i = 4 To UBound(arr) Step 3
m = 1 * arr(i, 3) - 45407
Cells(i + 1, m).Resize(1, arr(i, 5)).Interior.ColorIndex = co
Next
End Sub

复制代码

sjsj521 · 发表于 2024-5-12 16:35

swl4561255 发表于 2024-5-12 14:30

大佬厉害，甚至给了颜色选项，十分感谢！

swl4561255 · 发表于 2024-5-12 17:16

sjsj521 发表于 2024-5-12 16:35
大佬厉害，甚至给了颜色选项，十分感谢！

由于时间仓促，程序还不够完善，颜色输入对话框中点取消时会出错，代码稍作改动，这样就不会出错了。

Sub test()
On Error Resume Next
[A1].CurrentRegion.Interior.ColorIndex = xlNone
co = InputBox("请输入填充颜色(红色3，蓝色5，黄色6，绿色14)：", , 3, n)
arr = [A1].CurrentRegion
For i = 4 To UBound(arr) Step 3
m = 1 * arr(i, 3) - 45407
Cells(i + 1, m).Resize(1, arr(i, 5)).Interior.ColorIndex = co
Next
End Sub

复制代码

博爱风雨同舟 · 发表于 2024-5-13 10:34

=(MOD((ROW(B1)-1),3)+1=2)*(MEDIAN(OFFSET($C$3:$D$3,INT(ROW(3:3)/3)*3-2,),DATE(2024,5,COLUMN(A$1)))=DATE(2024,5,COLUMN(A$1)))

博爱风雨同舟 · 发表于 2024-5-13 11:19

=(MOD((ROW($B2)-1),3)+1=2)*(MEDIAN(OFFSET($C$3:$D$3,INT(ROW(4:4)/3)*3-2,),DATE(2024,5,COLUMN(A$1)))=DATE(2024,5,COLUMN(A$1)))
刚才没加

1786024734 · 发表于 2024-5-13 14:30

本帖最后由 1786024734 于 2024-5-13 14:41 编辑

=LET(X,COLUMN(A1)+"2024-4-30",(X-$C4)*(X-$D4))<=0

复制代码

或

=LET(X,COLUMN(A1),MEDIAN($C4:$D6-"2024-4-30",X)=X)

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 根据开始、结束时间，自动将代表对应时间的单元格设置为红色

评分