標題: [發問] 求教於各方高手... [打印本頁]

---

作者: verify9k    時間: 2019-12-15 15:50     標題: 求教於各方高手...

請問各方高手:
       底下的程式碼應該是正確的,但是我去看不出來為何 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

    謝謝各方高手的回答

---

作者: adrian_9832    時間: 2019-12-15 19:41

本帖最後由 adrian_9832 於 2019-12-15 19:53 編輯

VBA 笨笨  在OR 後面 要清楚表達條件 它才懂

解決方法1:

     If 月份代號 = 3 Or 月份代號 = 4 Then _  

或者你可以加括號 如下:

解決方法2:

    If (月份代號 = 3 Or 4) Then
        MsgBox 123
    End If


還有這裡 :
季度代號 = "年度代號" - 1 & "4"

VBA 看不懂 這是 要干嗎的   是想要 做加減法 還是其他  因為 現在 他資料類型是 字串  所以不能當運算的

---

作者: adrian_9832    時間: 2019-12-15 19:58

本帖最後由 adrian_9832 於 2019-12-15 20:02 編輯

如果想清楚一點 可以給他 定明  是字串還是數字


可以改成如下例子 , 因為我不太知道你是想 連接字串 還是計算  季度代號 .....

Sub Macro10()

公司代號 = 2330
年度代號 = 2010
月份代號 = 3
    If (月份代號 = 3 Or 4) Then
      '季度代號 = 2010 - 1 & 連接字串 4
      '即是 20094
      季度代號 = 年度代號 - 1 & "4"
      MsgBox 季度代號
    End If
end sub

大家互相幫助 互相交流 就學會了 EXCEL了 加油

---

作者: verify9k    時間: 2019-12-16 00:53

回復 1# verify9k


謝謝幫忙!!

---

作者: verify9k    時間: 2019-12-16 00:53

回復 3# adrian_9832


     謝謝幫忙!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)