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

[µo°Ý] ½Ð°Ý¬O§_¥i¥H¥ÎÀx¦s®æªº¸ê®Æ¨Ó±Æ§Ç¤u§@ªí

¦^´_ 9# GBKEE


Dim sCount%, i%, j%
       sCount = Worksheets.Count
        If sCount = 1 Then Exit Sub
        For i = 1 To sCount - 1
          For j = i + 1 To sCount
             If Worksheets(j).Range("b2").Value < Worksheets(i).Range("b2") Then
                 Worksheets(j).Move before:=Worksheets(i)
             End If
          Next
        Next
½Ð°Ýª©¤j³o¼Ë¼g»P±z¼gªº¬O§_¦³®t²§?

TOP

¦^´_ 12# luffyzoro
«Ü´Î£«, ³o´N¬O§A­nªº®ÄªG.±ø±ø¤j¸ô³qù°¨ªº,

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD