如何判断单元格日期是否是周末？

dzsrmyh

如何修改现有或重写代码判断单元格日期是否是周末，如果该单元格日期是周末，则自动在该日期上减一天或两天
例：G31单元格通过公式显示为：2023年03月05日，是星期日，P30单元格判断G31单元格是星期日则自动显示为：2023年03月03日
      G31单元格通过公式显示为：2023年03月04日，是星期六，P30单元格判断G31单元格是星期六则自动显示为：2023年03月03日
请大家援手！！！期待！

蓝桥玄霜

日期的例子：

dzsrmyh

蓝桥玄霜 发表于 2023-3-17 11:37
日期的例子：

版主你好，代码非常好用，上午是我没有说把条件判断说明白透彻，就是还要加上两个判断条件，一是如果黄色单元格的日期是星期一的话，红色单元格的日期也要是上周星期五的日期，二是如果黄色单元格的日期是星期二到星期五的话，红色单元格的日期就是黄色单元格日期的前一天，谢谢！


If Target.Address = "$C$8" And Target.Value <> "" And Target.Offset(0, -1) <> "" Then
        Sheet1.Unprotect Password:="1111"
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value)
    a = Val(Format(rq, "W")) - 1
    If a = 0 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 2)
    ElseIf a = 1 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 3)
    ElseIf a = 2 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 3 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 4 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 5 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 6 Then
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    End If
    Cells(30, "P") = Format(rq, "yyyy 年 mm 月 dd 日")
    SetFontColor
    Sheet1.Protect Password:="1111", DrawingObjects:=1, Contents:=1, Scenarios:=1
    End If


可以简化以上代码吗？

dzsrmyh

蓝桥玄霜 发表于 2023-3-17 11:37
日期的例子：

版主你好，以下代码可以优化吗？
If Target.Address = "$C$8" And Target.Value <> "" And Target.Offset(0, -1) <> "" Then      
    Sheet1.Unprotect Password:="1111"
    rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value)
    a = Val(Format(rq, "W")) - 1
    If a = 0 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 2)
    ElseIf a = 1 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 3)
    ElseIf a = 2 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 3 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 4 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 5 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    ElseIf a = 6 Then
        rq = DateSerial(2023, Target.Offset(0, -1).Value, Target.Value - 1)
    End If

02761752696

dzsrmyh 发表于 2023-3-17 12:46
版主你好，以下代码可以优化吗？
If Target.Address = "$C$8" And Target.Value  "" And Target.Offset( ...

只保留判断周六周日的语句，其余的都作为一个条件，一共三个条件

dzsrmyh

02761752696 发表于 2023-3-17 12:52
只保留判断周六周日的语句，其余的都作为一个条件，一共三个条件

那应该如何优化呢？谢谢

02761752696

dzsrmyh 发表于 2023-3-17 12:55
那应该如何优化呢？谢谢

试试看？

dzsrmyh

02761752696 发表于 2023-3-17 12:59
试试看？

可以了，谢谢！