[¤w¸Ñ¨M][µo°Ý]µ{¦¡Â²¤Æ-°}¦C-VBA ¡A´M§ä¬Y¤¸¯À¬O§_¦s¦b°}¦C¤¤¡C
| ©«¤l37 ¥DÃD15 ºëµØ0 ¿n¤À72 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»0 ¾\ŪÅv20 µù¥U®É¶¡2020-7-23 ³Ì«áµn¿ý2022-5-27 
 | 
                
| ¦^´_ 3# chin15 ½Ð°Ý¸Ó«ç»ò¼Ë°µ¤~¯à¶i¤@¨BÅã¥ÜA¬O¦s¦bB°}¦Cªº²Ä´XÓ¯Á¤ÞÈ©O?½Æ»s¥N½Xa = Array("¤@", "¤", "¤K")
   b = Array("¤@", "¤G", "¤T", "¥|", "¤", "¤»")
For i = 0 To UBound(a)
If UBound(Filter(b, a(i))) = -1 Then
MsgBox "¤£ ¥]§t" & a(i)
Else
MsgBox "¥]§t" & a(i)
End If
Next
ÁÂÁÂ
 | 
 | 
|  | 
|  |  | 
|  |  |