مرتب کردن شیت ها در اکسل

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • ~M*E*H*D*I~

    • October 2011
    • 4374

    مرتب کردن شیت ها در اکسل

    کد PHP:
    Sub SortSheets()
    Dim lCount As LonglCounted As Long
    Dim lShtLast 
    As Long
    Dim lReply 
    As Long
    lReply 
    MsgBox("To sort Worksheets ascending, select 'Yes'. " _
    "To sort Worksheets descending select 'No'"vbYesNoCancel)
    If 
    lReply vbCancel Then Exit Sub
    lShtLast 
    Sheets.Count
        
    If lReply vbYes Then 'Sort ascending
            For lCount = 1 To lShtLast
                For lCount2 = lCount To lShtLast
                    If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
                        Sheets(lCount2).Move Before:=Sheets(lCount)
                    End If
                Next lCount2
            Next lCount
        Else '
    Sort descending
         
    For lCount 1 To lShtLast
                
    For lCount2 lCount To lShtLast
                    
    If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).NameThen
                        Sheets
    (lCount2).Move Before:=Sheets(lCount)
                    
    End If
                
    Next lCount2
            Next lCount
        End 
    If
    End Sub 

    sigpic
  • mokaram
    مدير تالار اکسل و بانک اطلاعاتی

    • February 2011
    • 1805

    #2
    اگر نام شیت عدد باشه مثل 1 و 2 و 3 و11 و4 و 15 و .... با این کد شیت ها به ترتیب عدد سورت نمیشن مثلا بعد از شیت 1 شیت 11 میاد چطوری میشه شیت ها به ترتیب عددی از کوچیک به بزرگ سورت بشن؟

    Comment

    • ~M*E*H*D*I~

      • October 2011
      • 4374

      #3
      نوشته اصلی توسط M_R_M
      اگر نام شیت عدد باشه مثل 1 و 2 و 3 و11 و4 و 15 و .... با این کد شیت ها به ترتیب عدد سورت نمیشن مثلا بعد از شیت 1 شیت 11 میاد چطوری میشه شیت ها به ترتیب عددی از کوچیک به بزرگ سورت بشن؟
      از کد زیر استفاده کن
      کد PHP:
        If Val(Sheets(lCount2).Name) < Val(Sheets(lCount).NameThen 

      sigpic

      Comment

      • s.moradnia
        • December 2013
        • 3

        #4
        سلام
        من از این کد استفاده کردم
        شیتهای من نامشون همه فارسی هست ولی این کد در مورد حروف فارسی درست عمل نمیکنه
        کسی میدونه مشکل چیه؟

        Comment

        Working...