除周日之外的指定时间，如何表达？

sampsonpon

If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _

    Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50" Or Format(Time, "h:mm") = "18:50" Or Format(Time, "h:mm") = "20:30" Then

        Call comb_Sunglass2

End If

如何修改为：上述时间不变，只是每个周日除外

醉眼看尘世

1. Sub test()
   
2. If Weekday(Date, 2) <> 7 Then
   
3.     '你的语句
   
4. End If
   
5. End Sub

复制代码

ykcbf1100

外面加个判断：
if Weekday(time, vbSunday)<>1  then

sampsonpon

醉眼看尘世 发表于 2024-8-11 20:50

如果是周日，是以下时间运行：
If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _
    Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50"  Then
        Call comb_Sunglass2
End If

除了周日之外，是以下时间运行：
If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _
    Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50" Or Format(Time, "h:mm") = "18:50" Or Format(Time, "h:mm") = "20:30" Then
        Call comb_Sunglass2
End If

那么，它最简单的表达方式是什么？

sampsonpon

ykcbf1100 发表于 2024-8-11 20:53
外面加个判断：
if Weekday(time, vbSunday)1  then

如果是周日，是以下时间运行：
If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _
    Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50"  Then
        Call comb_Sunglass2
End If

除了周日之外，是以下时间运行：
If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _
    Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50" Or Format(Time, "h:mm") = "18:50" Or Format(Time, "h:mm") = "20:30" Then
        Call comb_Sunglass2
End If

那么，它最简单的表达方式是什么？

醉眼看尘世

简单意味着要有规律，你这时间也没有规律。所以只好罗列。硬要走偏锋如下：
if weekday(date,2)<>7 then
    if  instr(";5:50;7:50;8:50;12:50;14:50;18:50;20:30;",";" & format(time,"h:mm") & ";" ) then
         Call comb_Sunglass2
    end if
end if

醉眼看尘世

If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" Or Format(Time, "h:mm") = "12:50" _
    Or Format(Time, "h:mm") = "14:50" Or Format(Time, "h:mm") = "15:50" Or Format(Time, "h:mm") = "18:50" Or Format(Time, "h:mm") = "20:30" Then
       if weekday(date,2)=7 then
           '周日执行
               'Call comb_Sunglass2 '取消本行第一个'号即可
      else
          '非周日执行
               'Call comb_Sunglass2
      end if
End If

ykcbf1100

sampsonpon 发表于 2024-8-11 21:02
如果是周日，是以下时间运行：
If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50"  ...

这样吧：
Sub ttt()
    b = ["5:50","7:50","8:50","12:50","14:50","15:50","18:50","20.30"]
    If Weekday(Time, vbSunday) = 1 Then
        For x = 1 To 6
            If Format(Time, "h:mm") = b(x) Then Call comb_Sunglass2
        Next
    Else
        For x = 1 To UBound(b)
            If Format(Time, "h:mm") = b(x) Then Call comb_Sunglass2
        Next
    End If
End Sub

sampsonpon

醉眼看尘世 发表于 2024-8-11 21:18
If Format(Time, "h:mm") = "5:50" Or Format(Time, "h:mm") = "7:50" Or Format(Time, "h:mm") = "8:50" O ...

没看明白