[µo°Ý] ½Ð°Ý¦bvba¤¤ªº°}¦C¦p¦ó±Æ§Ç?

linshin1999

¦p¦ó¦bVBA¤¤ªº°}¦C¥h§@±Æ§Çªº°Ê§@,(«D range, worksheet) ? ¸¹¥h§ä SORT §ä¤£¨ì, ¹Á¸Õ¥Î Swap «ü¥O¦æ¤£³q, Ãø¨ì­n¥Î³o¼ËªºªF¦è¶Ü?

Dim rd(5) As String
Dim tmp As string
Dim i, j As long
For i = 1 to 4
     for j = i + 1 to 5
         If rd(i) > rd(j) Then
             tmp = rd(i)
             rd(i) = rd(j)
             rd(j) = tmp
        Endif
next
¶Ü?

linshin1999

¦^´_ 14# asus103


  ¥i¥H¤F,§Ú¥H¬°·|¶]¨ì¬Y­Ó¦a¤è¦s°_¨Ó,«Ü¦hªF¦è³£ÁÙºN¯Á©Ò¥H³s³oºØ°ÝÃD³£­n°Ý,ÁÂÁÂ!!.

asus103

¦^´_ 12# linshin1999

¹ï¤£°_¡B¯Zªù§Ë©ò¤F
°Å¶Kï¬O¨t²Î¦s©ñ¼È®É½Æ»s¸ê®Æªº¦a¤è
±z¥u­n¶}­Ó°O¨Æ¥»©ÎWORD¤§Ãþªº¤å®Ñ³B²z³nÅé
¦A«ö¶K¤W´N¥i¥H¤F

asus103

¦^´_ 8# GBKEE
·PÁ±zª©¥D¤j¤j
³o¹ï§Ú­Ìªì¾ÇªÌ¬O«Ü¦nªºÆ[¼¯¡B¾Ç²ß¾÷·|

linshin1999

¦^´_ 8# GBKEE


  ª©¥D§A¦n,§Ú·Q±N§Aªºµ{¦¡¦s°_¨Ó,§Aªºµ{¦¡¤è¶ôªº¤U¤è¦³¤@­Ó  ½Æ»s¥N½X  ÂI¤U¥h¥H«á,·|¦s¨ì°Å¶Kï¥h.   ½Ð°Ý°Å¶Kï¬O¦b¨º¸Ì?

linshin1999

¦^´_ 10# Hsieh

ª©¥D ¦n¹³没¦³°ÝÃD¥i¥HÃø­Ë§Aªº,§Ú·|¹ê»Ú¥h´ú¤@¤U Ø÷ÔÐ ª©¥D©Ò¥Ü½dªº Sort «ü¥O ÁÂÁ !! ¤H¦Ñ¤F©Ò¥H§Ú³ßÅw±N¦r©ñ¤j¤@ÂI

Hsieh

¦^´_ 9# linshin1999


    txtÀɱƧÇÄA­Ë

linshin1999

¦³¨Ç¸ê®Æ¬O¤£¾A¦X¨ì ¤u§@ªí ¥h³B²zªº,§Úªº¸ê®Æ¬O­n§@³]©w¥Îªº,¦b¤u§@ªí¤WªºÄæ¦C«Ü¤j,¬ù¦³(2000~10000),¦pªG¦³»P¸ê®ÆÀɤW¬Û¦Pªº¸ê®Æ­n³Q§@°O¸¹,¤ñ¦p¦r«¬³Q¶ÂÅé¦r¥N´À,¦]¬°¸ê®ÆÀɦ³¤j¤p¦¸§Ç©Ò¥H­n±Æ¦n¦¸§Ç¥H¦A¥h¤ñ¹ï·|¤ñ¸û§Ö,¥¦¬O­I´º§@·~¤£¬O«e´º§@·~,¥u¯à¥Î°}¦C¨Ó¼g¤£¯à¥Î Range ³B²z,§Úª¾¹D Excell ¤Wªº sort ¥\¯à,¦ý¬O¥Î¤£¤W. ©Ò¥H¬Ý¬O¤£¬O¦³ª½±µªº¤è¦¡¥h©I¥s,没¦³´N¦Û¤v¼g¤F,ÁÂÁ¤j®a.

GBKEE

¦^´_ 7# asus103

1. Sub Ex()
   
2.     Dim Ar, Rng As Range
   
3.     Ar = Array("SD", 100, "SA", 50, 777, "AAA", 5)
   
4.     With ActiveSheet
   
5.         Set Rng = .[a1].Resize(UBound(Ar) + 1)
   
6.         Rng.Value = Application.Transpose(Ar)
   
7.         Rng.Sort Key1:=Rng(1), Order1:=xlAscending, Header:=xlNo
   
8.         Ar = Application.Transpose(Rng)
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

asus103

¦^´_ 6# oobird
¦p¶W¯Åª©¥D©Ò¨¥
"§â°}¦C¼g¤J¤u§@ªí¡A¥Î¤º«Ø±Æ§Ç«ü¥O±Æ§Ç¦n¦A©ñ¤J·sªº°}¦C¬O³Ì§Öªº¤èªk¡I"
¥i§_½Ð±z¼g¤@¬qµ{¦¡½X¥Ü½d¡AÅý§Ú¦³¦h¤@­Ó¾Ç²ßªº¾÷·|
ÁÂÁÂ