调用系统周一到周日，判定公式周六日时不相乘

zhangv712

烦请老师指点 附件已上传  ！

凌空一羽

=A1*B1*IF(OR(TEXT(TODAY(),"aaa")={"六","日"}),C1,1)

凌空一羽

Sub lkyy()
Dim date_week As Integer
date_week = Weekday(Date, vbMonday)
If date_week = 6 Or date_week = 7 Then
   result = [a1] * [b1] * [c1]
Else
    result = [a1] * [b1]
End If
MsgBox result
End Sub

boy8199

凌空一羽 发表于 2019-7-31 10:48
=A1*B1*IF(OR(TEXT(TODAY(),"aaa")={"六","日"}),C1,1)

这才是 正确用法,vba 不需要,浪费.

zhangv712

boy8199 发表于 2019-7-31 11:06
这才是 正确用法,vba 不需要,浪费.

谢谢你的建议   公式有点多  有点卡  才出此下策 ！！！

zhangv712

凌空一羽 发表于 2019-7-31 10:53
Sub lkyy()
Dim date_week As Integer
date_week = Weekday(Date, vbMonday)

感谢百忙之中为我解惑！！