مرتب سازی بر اساس حروف الفبا و شماره

**Alireza** · 2018/08/21, 12:33

نوشته اصلی توسط mmn1000

سلام
من فایلی دارم حاوی چندین ستون مثلا ردیف نام نام خانوادگی شماره تلفن و چند گزینه دیگه
اگه میخوام اینهارا با دستور Vba مرتب کنم آیا امکانش هست راهنمایم کنید اگه نمونه هم قرار بدید ممنون میشم

سلام
یبارانجام بدید با روش ضبط ماکرو قابل انجامه

**میثم مقدم نیا** · 2018/08/21, 14:30

نوشته اصلی توسط Alireza

سلام
یبارانجام بدید با روش ضبط ماکرو قابل انجامه

ممنون از راهنمایتون من الان ۳۵۰ تا اسم و بخوام با ضبط ماکرو مرتب کنم به نظرتون کدم شلوغ نمیشه

**Alireza** · 2018/08/21, 15:10

نوشته اصلی توسط mmn1000

ممنون از راهنمایتون من الان ۳۵۰ تا اسم و بخوام با ضبط ماکرو مرتب کنم به نظرتون کدم شلوغ نمیشه

شما گفتید بر اساس چند ایتم خاص خوب پس هر بار ماکرو رو اجرا کنید اونها شروط در سورت فایل لحاظ میشه( نیاز به 350 نوع سورت نیست که)

**میثم مقدم نیا** · 2018/08/21, 19:15

مرتب سازی

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

کد PHP:


Sub Sort_B()

    With Sheets("Sheet1").UsedRange

        .Sort Key1:=.Range("B1"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _

         MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

    End With

End Sub

آیا امکانش هست وقتی دستور سورت را اعمال میکنم ستون A تغییر نکنه

فایل های پیوست شده

مرتب سازی.zip (19.5 کیلو بایت, مشاهدات 12)

**حسام بحرانی** · 2018/08/21, 19:41

نوشته اصلی توسط mmn1000

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

کد PHP:


sub sort_b()
    with sheets("sheet1").usedrange
        .sort key1:=.range("b1"), order1:=xlascending, header:=xlyes, ordercustom:=1, _
         matchcase:=false, orientation:=xltoptobottom, dataoption1:=xlsortnormal
    end with
end sub

آیا امکانش هست وقتی دستور سورت را اعمال میکنم ستون a تغییر نکنه