ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤w¸Ñ¨M][µo°Ý]µ{¦¡Â²¤Æ-°}¦C-VBA ¡A´M§ä¬Y¤¸¯À¬O§_¦s¦b°}¦C¤¤¡C

¦^´_ 3# chin15
  1. a = Array("¤@", "¤­", "¤K")
  2.    b = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»")
  3. For i = 0 To UBound(a)
  4. If UBound(Filter(b, a(i))) = -1 Then
  5. MsgBox "¤£ ¥]§t" & a(i)
  6. Else
  7. MsgBox "¥]§t" & a(i)
  8. End If
  9. Next
½Æ»s¥N½X
½Ð°Ý¸Ó«ç»ò¼Ë°µ¤~¯à¶i¤@¨BÅã¥ÜA¬O¦s¦bB°}¦Cªº²Ä´X­Ó¯Á¤Þ­È©O?
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD