GBKEE

¦^´_ 1# beau1029

    §PÂ_¦¡«Ü¦h ...
if A or B or C or D or E or F or G or .......... then
½Ð°Ý¦³¬Æ»ò¤èªk¥i¥H²¤Æ©O¡H

VBA ªº ±ø¥ó§PÂ_ ¤]¦³«Ü¦h...
A or B or C or D or E§PÂ_¦¡(¤º®e)??? ½Ð»¡²M·¡,³Ì¦n¬OªþÀɤW¨Ó

GBKEE

¦^´_ 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=¡K then
01/02,03/04 ..... ¦³170­n§PÂ_ªº³o¨Ç±ø¥ó¦bÀÉ®×­þ¸Ì...  §A¤£»¡¨S¤H....

GBKEE

¦^´_ 5# beau1029

170­Ó±ø¥ó ¥ÎCase ·|®e©ö¥X¿ù(±ø¥ó­n¼g²M·¡)!!

1. '170­Ó±ø¥ó ¥ÎCase ·|®e©ö¥X¿ù(±ø¥ó­n¼g²M·¡)!!
   
2. Option Explicit
   
3. Sub ExA()
   
4.     Dim A As String, Msg As Boolean, E As Variant
   
5.     A = "01/02"               '³o¬O¤é´Á??
   
6.     For Each E In [A1:A170]   '¤é´Á¦s©ñ¦ì¸m ®æ¦¡ "mm/dd"
   
7.         If E.Text = A Then
   
8.             Msg = True
   
9.             Exit For
   
10.         End If
    
11.     Next
    
12.     If Msg Then
    
13.         MsgBox E.Address & "  " & E
    
14.         '***** µ{¦¡½X!!!*****
    
15.     End If
    
16. End Sub
    
17. Sub ExB()
    
18.     Dim AR, A As String, M As String, Msg As Boolean, E As Variant
    
19.     AR = Array("01/02", "03/04", "05/06", "07/08")    '§PÂ_ªº±ø¥ó¦b³o¸Ì
    
20.     A = "05/06"
    
21.     'AR = Filter(AR, A, True)   '§ä¥X
    
22.     AR = Filter(AR, A, False)   '§ä¥X¤£¦P
    
23.     If UBound(AR) > -1 Then
    
24.         MsgBox Join(AR, vbLf)
    
25.         '***** µ{¦¡½X!!!*****
    
26.     End If
    
27. End Sub

½Æ»s¥N½X