- 帖子
- 17
- 主題
- 10
- 精華
- 0
- 積分
- 56
- 點名
- 0
- 作業系統
- Window10
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-12-4
- 最後登錄
- 2022-6-16
 
|
請問各方高手:
底下的程式碼應該是正確的,但是我去看不出來為何 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
謝謝各方高手的回答 |
|
發表於 2019-12-15 15:50
| 
