返回列表 上一主題 發帖

[發問] 求教於各方高手...

[發問] 求教於各方高手...

請問各方高手:
       底下的程式碼應該是正確的,但是我去看不出來為何 VBA不肯執行,是否有人可以看出問題.....

Sub Macro10()
'
' Macro10 Macro
'
公司代號 = 2330
年度代號 = 2010
月份代號 = 3
'季度代號 = 20143

    If 月份代號 = 3 Or 4 Then _
      季度代號 = "年度代號" - 1 & 4
    ElseIf 月份代號 = 5 Or 6 Or 7 Then _
      季度代號 = "年度代號" & 1
    ElseIf 月份代號 = 8 Or 9 Or 10 Then _
      季度代號 = "年度代號" & 2
    ElseIf 月份代號 = 11 Or 12 Or 1 Or 2 Then _
      季度代號 = "年度代號" & 3
    Else: MsgBox "請輸入月份代號"
    End If

    謝謝各方高手的回答

回復 1# verify9k


謝謝幫忙!!

TOP

回復 3# adrian_9832


     謝謝幫忙!!

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題