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

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

chin15 ÁÂÁ¡C±q§A¦^µªªº°ÝÃD¡Aı±o§A¬O±j¤â¡A¤w¸g±q¤p¾Ç¥ÍÂର¤¤¾Ç¥Í¤F¡AÁÂÁ¡Cµ{«×¥»¨Ó´N¤£À³¸Ó¬O¤p¾Ç¥Í¡C

TOP

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


TOP

¦^´_ 5# GBKEE

GBKEE«e½ú¦n,«_¬N¥´ÂZ,

·PÁ´£¨Ñµ{¦¡½X,
¤p§Ì¦³¸ÕµÛ­×§ï«e½úªºµ{¦¡½X,
¸Õ¹Ï±NÀx¦s®æ¤ºªº­È°µ¬°¤¸¯ÀÀx¦Ü°}¦C¤¤,¦ý¬O·|¥X²{¿ù»~,¤£ª¾¦p¦ó¸Ñ¨M,

¤p§Ì¤æÁx,¬O§_¯à°÷³Â·Ð«e½ú«üÂI°g¬z,¤Q¤À·PÁÂ.

ªþ¤WÀɮפέקï¦Û«e½ú©Ò¼gµ{¦¡½X:
  1. '¦¹µ{¦¡½X­×§ï¦Û³Â»¶®a±Ú°Q½×°Ïexcel°ª¤âGBKEE«e½ú©Ò¼g,«D§Ú¦Û³Ð.
  2. '°Q½×°Ïºô§}:http://forum.twbts.com/index.php
  3. Sub Ex()
  4.     A = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
  5.     b = Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row)
  6.     For Each E In A
  7.         M = Application.Match(E, b, 0)
  8.         MsgBox E & IIf(IsNumeric(M), "¦s¦b©ó ", " ¤£¦s¦b©ó ") & Join(b, ",")
  9.     Next
  10. End Sub
½Æ»s¥N½X
20161026-°}¦C·j´M¯S©w¦r¦ê°ÝÃD.zip (9.06 KB)

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

¦^´_ 14# GBKEE

«D±`·PÁÂGBKEE«e½ú¸Ô²Ó¸Ñ»¡,
­ì¨Ó°ÝÃD¥X¦b¤@ºû°}¦C,¤p§Ì¦A¬ã¨s¬Ý¬Ý.

TOP

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

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-12 20:10 ½s¿è

³o¼Ë¦n¹³¤]¥i¥H
  1. Sub ½m²ßÅã¥Ü°}¦C¦ì¸m()

  2. Dim A, B, i, k

  3. A = Array("¤@", "¤­", "¤K")
  4. B = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»")

  5.     For i = 0 To UBound(B)
  6.         If A(k) = B(i) Then
  7.            MsgBox " Aªº " & A(k) & " ¦b B ªº ²Ä " & i & " ­Ó"
  8.            If k <= UBound(A) Then k = k + 1
  9.         Else
  10.            MsgBox " B ªº ²Ä " & i & " ­Ó" & " ¬O " & B(i)
  11.         End If
  12.     Next i
  13.    
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 16# ssooi


¥i¥H¨Ï¥Î APPLICATION.MATCH
°}¦C¼Æ¶q¤j  ¦r¨å--ITEM°O¿ý¦ì¸m

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD