beau1029

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: Windows
軟體版本: Office 2016
閱讀權限: 10
性別: 男
來自: Taipei, Taiwan
註冊時間: 2013-4-11
最後登錄: 2023-3-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-5-10 07:47 | 只看該作者

[發問] 如何簡化判斷式 if ... or ... then

大家早安，如果我的判斷式很多 ...
if A or B or C or D or E or F or G or .......... then
請問有甚麼方法可以簡化呢？
謝謝各位大大 ^^

樓主熱帖

韓德爾の原木
http://beau.tw

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-10 08:39 | 只看該作者

回復 1# beau1029

判斷式很多 ...
if A or B or C or D or E or F or G or .......... then
請問有甚麼方法可以簡化呢？

VBA 的條件判斷也有很多...
A or B or C or D or E判斷式(內容)??? 請說清楚,最好是附檔上來

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

beau1029

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: Windows
軟體版本: Office 2016
閱讀權限: 10
性別: 男
來自: Taipei, Taiwan
註冊時間: 2013-4-11
最後登錄: 2023-3-11

3^#

發表於 2013-5-10 10:48 | 只看該作者

回復 2# GBKEE

其實只是簡單的判斷句

If car.text=01/02 or car.text=03/04 or car.text=05/06 or car.text=07/08 or car.text=… then
……

因為我的 car 有 170 個，所以是否可以簡化？

韓德爾の原木
http://beau.tw

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-5-10 11:21 | 只看該作者

回復 3# beau1029
If car.text=01/02 or car.text=03/04 or car.text=05/06 or car.text=07/08 or car.text=… then
01/02,03/04 ..... 有170要判斷的這些條件在檔案哪裡... 你不說沒人....

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

beau1029

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: Windows
軟體版本: Office 2016
閱讀權限: 10
性別: 男
來自: Taipei, Taiwan
註冊時間: 2013-4-11
最後登錄: 2023-3-11

5^#

發表於 2013-5-10 11:57 | 只看該作者

版主，應該是我表達不清 ^^||| 我後來用 case 解決了

韓德爾の原木
http://beau.tw

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-5-10 12:57 | 只看該作者

回復 5# beau1029

170個條件用Case 會容易出錯(條件要寫清楚)!!

'170個條件用Case 會容易出錯(條件要寫清楚)!!
Option Explicit
Sub ExA()
Dim A As String, Msg As Boolean, E As Variant
A = "01/02" '這是日期??
For Each E In [A1:A170] '日期存放位置格式 "mm/dd"
If E.Text = A Then
Msg = True
Exit For
End If
Next
If Msg Then
MsgBox E.Address & " " & E
'***** 程式碼!!!*****
End If
End Sub
Sub ExB()
Dim AR, A As String, M As String, Msg As Boolean, E As Variant
AR = Array("01/02", "03/04", "05/06", "07/08") '判斷的條件在這裡
A = "05/06"
'AR = Filter(AR, A, True) '找出
AR = Filter(AR, A, False) '找出不同
If UBound(AR) > -1 Then
MsgBox Join(AR, vbLf)
'***** 程式碼!!!*****
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

7^#

發表於 2013-5-10 16:36 | 只看該作者

回復 5# beau1029
問題解決了，判斷的程式能否分享回饋一下。
這樣才知道問題的問題在哪裡

TOP

beau1029

小學生 Rank: 1

帖子: 7
主題: 4
精華: 0
積分: 11
點名: 0
作業系統: Windows
軟體版本: Office 2016
閱讀權限: 10
性別: 男
來自: Taipei, Taiwan
註冊時間: 2013-4-11
最後登錄: 2023-3-11

8^#

發表於 2013-5-11 17:27 | 只看該作者

版主，我回家過母親節，回來後試試看，謝謝 ^^

韓德爾の原木
http://beau.tw

TOP