GBKEE

6¼Ó °Ý E ³]¦¨ String ¤£·|work¡C
³o¬O«Å§i «¬ºAªº°ÝÃD

chin15

¥i¥H¥ÎTypeName ¨ç¼Æ¨ú±oÅܼÆÃþ«¬
MsgBox TypeName(M)

GBKEE

¦^´_ 6# Baracuda
°j°é  FOR EACH E  IN ª«¥ó    Eªº«¬ºA¬OVariant  ©Î  Object
¦p  ª«¥ó¬O Range ½d³ò             Eªº«¬ºA¥i³]¬° Range
M = Application.Match(E, b, 0)  ¶Ç¦^ ¼Æ¦r ©Î #NA
M ªº«¬ºA ¬O  Variant

Baracuda

GBKEE ÁÂÁ¡C
³o­Óµ{¦¡ Work
½Ð°Ý¤@¤UÅܼƪº«¬ºA
E & M ¦U¬°¦óºØ«¬ºA¡C§Ú²{¦b¬O³]¦¨ Variant
E ³]¦¨ String ¤£·|work¡C
½Ð½ç±Ð¤@¤U¡C

GBKEE

¦^´_ 4# Baracuda

1. Sub Ex()
   
2.     A = Array("¤@", "¤­", "¤K")
   
3.     b = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»")
   
4.     For Each E In A
   
5.         M = Application.Match(E, b, 0)
   
6.         MsgBox E & IIf(IsNumeric(M), "¦s¦b©ó ", " ¤£¦s¦b©ó ") & Join(b, ",")
   
7.     Next
   
8. End Sub

½Æ»s¥N½X

Baracuda

chin15 ªº¤èªk¤ñ§Úªº¦³®Ä²v¡C
¤Ö¤F¤@­Ó Loop ¡C
³o¼Ëªºµ{¦¡¤]¤ñ¸û²µu¡C
¦pªGÁÙ¦³§Oªº¤è¦¡¡A½Ð¦U¦ì¤j­ô¤j©j¦AÀ°¦£¤@¤U¡C

chin15

a = 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

Baracuda

µ{¦¡ªº­ì©l½X¦p¤W¡G
²{¦b¬O¥Î2 ­Ó廻°é¦b´M§ä¬O§_ Input ªº Element ¦³¦s¦b Output ªº Array ¤¤¡C
·Q½Ð°Ý¦³µL¸û²¼äªº»yªk¥i¥H¸Ñ¨M¡C

¨Ì·Ó²{¦bªºµ{¦¡¥i¥H§ä¥X "¤K"¬O¤£¦b Array Output ¤§¤¤¡C