ªð¦^¦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®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD