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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-29 10:26 ½s¿è

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-3-30 14:31 ½s¿è

¦^´_ 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

TOP

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

TOP

¦^´_ 12# Baracuda
­n«ö¤U ¦p¹Ïªº¥N½X ±Nµ{¦¡½X¶K¤W «á«ö´£¥æ


123.png
2011-4-6 18:25

TOP

¦^´_ 13# greetingsfromtw
  1. '°Q½×°Ïºô§}:http://forum.twbts.com/index.php
  2. Option Explicit
  3. Sub Ex()
  4.     Dim M As Variant, A(), B()
  5.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)  '¤Gºû°}¦C
  6.     B = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row) '¤Gºû°}¦C
  7.     B = Application.WorksheetFunction.Transpose(B)                'Âà¦Ü¬°¤@ºû°}¦C
  8.     For Each E In A
  9.         M = Application.Match(E, B, 0)
  10.         MsgBox E & IIf(IsNumeric(M), "¦s¦b©ó ", " ¤£¦s¦b©ó ") & Join(B, ",")
  11.         'Join ¨ç¼Æ ¶Ç¦^¤@­Ó¦r¦ê¡A¸Ó¦r¦ê¬O³z¹L³sµ²¬Y­Ó°}¦C¤¤ªº¦h­Ó¤l¦r¦ê¦Ó«Ø¥ßªº¡C
  12.         '******** ¬Y­Ó°}¦C ,¥²¶·¬O¤@ºû°}¦C********************
  13.     Next
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD