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

[µo°Ý] ¨Ï¥ÎªÌ©w¸qªº¦r¦ê±Æ§Ç

[µo°Ý] ¨Ï¥ÎªÌ©w¸qªº¦r¦ê±Æ§Ç

¦U¦ì¦n:

§Úªº°ÝÃD¬O§Ú¾ã±i¤u§@¦Cªí¤¤"F"Äæ¦ì­n°µ¦r¦êªº±Æ§Ç(¥Ñ¨Ï¥ÎªÌ©w¸q±ø¥ó)

¨Ò¦p:
³Â»¶
³Â³Â
¤Ñ¤Ñ
¶}¶}
ªYªY

¥H¤W¦r¦ê"³Â»¶"±Æ¬°1,"³Â³Â"±Æ¬°2,"¤Ñ¤Ñ"±Æ¬°3

¨Ì¦¹Ãþ±À ¤£¬O¥u¦³¦r¦ê±Æ§Ç  ¦r¦ê±Æ§Ç®É¤]·|¨Ï¨ä¥LÄæ¦ì³s°Ê±Æ§Ç

±Æ§Çªº¤å¦r©ñ¦b¬Y¤@Äæ,
¸ê®Æªí¥[¤@­Ó»²§UÄæ, ¥ÎMATCH§Y¥i¨ú±o¶¶§Ç, ¦A¨Ì¦¹±Æ§Ç§Y¥i!

TOP

http://blog.xuite.net/hcm19522/twblog/473940460

TOP

¦^´_ 1# Ãz¨x¹F¤H

¤£ª¾¹D¬O§_²z¸Ñ¿ù»~?§Q¥Î¦Û­q²M³æ«ü©w±Æ§Ç¤è¦¡§Y¥i

    play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤£¦n·N«ä  §Ú¦n¹³¨SÁ¿²M·¡

¦p¤Uªí­n¨Ï¥Î VBA¤è¦¡

·PÁÂ

TOP

¦^´_ 5# Ãz¨x¹F¤H
  1. Sub test()
  2.     Dim arr
  3.     arr = Array("³Â»¶", "³Â³Â", "¤Ñ¤Ñ", "¶}¶}", "ªYªY")
  4.     Application.AddCustomList listArray:=arr
  5.     n = Application.CustomListCount
  6.     er = [A65536].End(3).Row
  7.     Range("A9:C" & er).Sort Key1:=[B9], OrderCustom:=n + 1
  8.     Application.DeleteCustomList n
  9.     Set arr = Nothing
  10. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-12-11 08:25 ½s¿è

¦^´_ 5# Ãz¨x¹F¤H
  1. Sub Ex()
  2.     Dim ct As Long
  3.    
  4.     With ¤u§@ªí1
  5.         ct = .[A65536].End(3).Row
  6.         .Range("A9:C" & ct).Copy .[F9]
  7.         .Range("F9:H" & ct).Sort Key1:=.[F9], Order1:=xlAscending
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD