返回列表下一主題上一主題發帖

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

verify9k

中學生 Rank: 2

帖子: 17
主題: 10
精華: 0
積分: 56
點名: 0
作業系統: Window10
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2019-12-4
最後登錄: 2022-6-16

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

2^#

發表於 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 看不懂這是要干嗎的是想要做加減法還是其他  因為現在他資料類型是字串  所以不能當運算的

TOP

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

3^#

發表於 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了加油

TOP

verify9k