Baracuda

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

GBKEE

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

¤U¸ü (63.55 KB)

2011-4-6 18:25

greetingsfromtw

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

¤U¸ü¦¸¼Æ: 5

2016-10-26 23:50

GBKEE

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

greetingsfromtw

¦^´_ 14# GBKEE

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

ssooi

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

°a¤ªºµ

³o¼Ë¦n¹³¤]¥i¥H

1. Sub ½m²ßÅã¥Ü°}¦C¦ì¸m()
   
2. 
   
3. Dim A, B, i, k
   
4. 
   
5. A = Array("¤@", "¤­", "¤K")
   
6. B = Array("¤@", "¤G", "¤T", "¥|", "¤­", "¤»")
   
7. 
   
8.     For i = 0 To UBound(B)
   
9.         If A(k) = B(i) Then
   
10.            MsgBox " Aªº " & A(k) & " ¦b B ªº ²Ä " & i & " ­Ó"
    
11.            If k <= UBound(A) Then k = k + 1
    
12.         Else
    
13.            MsgBox " B ªº ²Ä " & i & " ­Ó" & " ¬O " & B(i)
    
14.         End If
    
15.     Next i
    
16.    
    
17. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 16# ssooi


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