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

[µo°Ý] ½Ð±Ð¦p¦ó¥ÎVBA§ä¥X³Ì¤j­È¡B²Ä¤G¤j­È¡K¡K ¸U¤À·PÁ¡K

[µo°Ý] ½Ð±Ð¦p¦ó¥ÎVBA§ä¥X³Ì¤j­È¡B²Ä¤G¤j­È¡K¡K ¸U¤À·PÁ¡K

(1)½Ð±Ð¦p¦ó¥ÎVBA¼g¥X¤@­Óµ{¦¡¡A¥\¯à¬°
     ¦C¥X¼Æ¶q³Ì¦h¡B¼Æ¶q²Ä2¦h¡K¨ì¼Æ¶q²Ä5¦h  («e5¦h) ±Æ¦C¥X¨Ó¡C
     ¥B¶ñ¤J¬Û¹ïªº¦ì¸m¡C
(2)¦Ó·í¼Æ¶q¬Û¦P®É¡A¥i¥H¥ý¦C¥X¥ý¥X²{ªº«~¦W¡A¥ç¥i¨Ì«~¦W±Æ§Ç¡F
    ¥ý¥X²{ªº¥ý¦C¥X¨Ó¡C

ÁÂÁ«ü±Ð¡A¸U¤À·PÁ¡K........... ¡C:'(




102.6.16-½Ð±Ð°ÝÃD.rar (2.48 KB)

¦^´_ 1# ji12345678
¨Ï¥Î Sort ¤èªk [±Æ§Ç]
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, Sh As Worksheet
  4.     Set Sh = Sheets("Sheet1")                                           '³]©wÅÜ¼Æ : ¸ê®Æ©Ò¦bªº¤u§@ªí
  5.     Application.ScreenUpdating = False                                  '°±¤î : »È¹õªº§ó·s
  6.     With Sheets.Add                                                     '·s¼W¤@¤u§@ªí
  7.         Sh.[A:B].Copy                                                   '¸ê®Æ½Æ»s
  8.         .[A1].PasteSpecial Paste:=xlPasteValues                         '¿ï¾Ü©Ê¶K¤W : ¶È¶K¤W­È
  9.         .[C1] = "¦ì¸m"
  10.         For Each E In .Range(.[C2], .[B2].End(xlDown).Offset(, 1))      'Cø󪺽d³ò
  11.             E = E.Offset(, -1).Address(0, 0)                            '¼g¤WBÄ檺¦ì¸m
  12.         Next
  13.         With .Range("A1").CurrentRegion                                 '[A1].ªº©µ¦ù½d³ò
  14.             .Sort Key1:=.Range("B2"), Order1:=xlDescending, Header:=xlYes  '±Æ§Ç : xlDescending (»¼´î: ¥Ñ¤j¨ì¤p), xlAscending  (»¼¼W: ¥Ñ¤p¨ì¤j)
  15.            '.Sort Key1:=.Range("B2"), Order1:=xlDescending, Key2:=.Range("A2"), Order2:= xlDescending , Header:=xlYes
  16.                                                                             '²Ä1±Æ§Ç : ¼Æ¶q, ²Ä2±Æ§Ç: «~¦W
  17.             .Rows(1).Resize(6).Copy Sh.[G2]                             '½Æ»s:[A1].ªº©µ¦ù½d³ò:ªº6¦CÂX¥R ¨ì ¸ê®Æ©Ò¦b¤u§@ªíªº[G2]
  18.         End With
  19.         Application.DisplayAlerts = False                               '°±¤î:¨t²Îªº´£¿ô
  20.         .Delete                                                         '§R°£:·s¼Wªº¤u§@ªí
  21.         Application.DisplayAlerts = True                                '«ì´_:¨t²Îªº´£¿ô
  22.     End With
  23.     Application.ScreenUpdating = True                                   '«ì´_:»È¹õªº§ó·s
  24. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
¦¹³B Sheets.Add ªº§G§½¥Î±o¹ê¦b«D±`¥©§®¡A
¬J¥i¹F¨ì¥Øªº¡A¤S¥i´£¨Ñ°µ¬°ÃB¥~ªº¼È¦s§@·~°Ï¡A
¦hÁ GBKEE ª©¤jªº½ç±Ð¡C

TOP

¥»©«³Ì«á¥Ñ wanney1111111 ©ó 2013-9-23 00:35 ½s¿è

¦^´_ 2# GBKEE


    ½Ð°Ý¤@¤U¡A¨º¦pªG§Ú¸òª©¥Dªº°ÝÃDÃþ¦ü¡A¦ý¬O§Ú¬O­n°µ¾î¦Cªº±Æ§Ç¡A·d¤F«Ü¤[ÁÙ¬O·d¤£¥X¨Ó¡A³Â·Ð¤j®v±z¤F..

ASDASDAS.jpg (17.48 KB)

ASDASDAS.jpg

TOP

¦^´_ 4# wanney1111111
sort¦³¾îªº±Æ§Ç,¸Õ¥Î¿ý»s¥¨¶°¥i±oµ{¦¡½X.

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# ji12345678

SQLªk

select top 5 * from [Sheet1$A1:B50] order by ¼Æ¶q desc

°Ï°ì¤j¤p¥i§ï   Sheet1$A1:B50

«e´X¦W¥i§ï    top 5

   

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD