ªð¦^¦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 : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD