Skypiea84 Skypiea84
关注数: 5 粉丝数: 0 发帖数: 18 关注贴吧数: 8
14 beta5貌似还没修复不能在自带邮箱里添加outloo 14 beta5貌似还没修复不能在自带邮箱里添加outlook的bug？有相同情况的人吗？
求助大神 这段代码运行后为何会报错说argument not optional Sub allworkbook() Dim RATE As Integer If CY = 2021 Then RATE = 1.23 ElseIf CY = 2022 Then RATE = 1.2 ElseIf CY = 2023 Then RATE = 1.15 ElseIf CY = 2024 Then RATE = 1.08 ElseIf CY = 2025 Then RATE = 1 End If End Sub Function Ph5TCAFC(CY, FECategory, CurbMass) If CurbMass < 1090 & FECategory = "3row" Then PH5TAFC = 4.02 * RATE + 0.2 ElseIf PH5TAFC = 4.02 * RATE Then End If If CurbMass > 2510 & FECategory = "3row" Then Ph5TCAFC = 6.57 * RATE + 0.2 ElseIf PH5TAFC = 6.57 * RATE Then End If If CurbMass > 1090 & CurbMass < 2510 & FECategory = "3row" Then PH5TAFC = ((CurbMass - 1415) * 0.0018 + 4.6) * RATE + 0.2 ElseIf PH5TAFC = ((CurbMass - 1415) * 0.0018 + 4.6) * RATE Then End If End Function
1 下一页