返回列表 上一主題 發帖

[發問] IF AND OR 如何適用？

Lin-excel

帖子
6 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
winows10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-1-23 
最後登錄
2019-5-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-4-8 11:01 | 只看該作者

[發問] IF AND OR 如何適用？

VBA, AND
若想用VBA 的IF句法，來判斷每季財報自動更新，該如何寫？
If .Cells(r, "EN") = "" Or (Date >= DateSerial(Year(Date), 3, 31) And Date < DateSerial(Year(Date), 4, 1)) Or (Date >= DateSerial(Year(Date), 5, 14) And Date < DateSerial(Year(Date), 5, 16)) Or (Date >= DateSerial(Year(Date), 8, 14) And Date < DateSerial(Year(Date), 8, 16)) Or (Date >= DateSerial(Year(Date), 11, 14) And Date < DateSerial(Year(Date), 11, 16)) Then Exit Sub
出現程式物件定義錯誤，請前輩高手指正！
收藏 分享
Lin

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2019-4-9 10:40 | 只看該作者
回復 1# Lin-excel


    r 可能是 0 造成的
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
3#
發表於 2019-4-9 10:57 | 只看該作者
回復 1# Lin-excel

我會拆成好幾條判式，比較容易閱讀

        Y = Year(Date)
        If .Cells(r, "EN") = "" Then Exit Sub
        If Date >= DateSerial(Y, 3, 31) And Date < DateSerial(Y, 4, 1) Then Exit Sub
        If Date >= DateSerial(Y, 5, 14) And Date < DateSerial(Y, 5, 16) Then Exit Sub
        If Date >= DateSerial(Y, 8, 14) And Date < DateSerial(Y, 8, 16) Then Exit Sub
        If Date >= DateSerial(Y, 11, 14) And Date < DateSerial(Y, 11, 16) Then Exit Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

Lin-excel

帖子
6 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
winows10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-1-23 
最後登錄
2019-5-10 
4#
發表於 2019-4-9 11:07 | 只看該作者
謝謝版主賜教，感恩！
Lin

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題