سورت کردن تاریخ فارسی

**Amir Ghasemiyan** · 2018/01/07, 16:14

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

سلام
خروجی از نرم افزار میگیرم و تاریخ ها رو با این فرمت بهم میده :

1/1/1380

1/2/1386

1/5/1389

10/9/1392

11/6/1385

12/11/1381

من اگه بخوام سورت کنم بر اساس تاریخ اصلا امکانپذیر هست؟

سلام دوست عزيز
شما دو راه داريد. يكي اينكه تاريخ ها رو به ميلادي تبديل كنيد و بعد سورت كنيد
دوم اينكه تاريخ ها رو از هم تفكيك كنيد يعني سال و ماه و روز رو جدا كنيد و بعد سورت سه گانه انجام بدين. اول بر اساس سال بعد ماه بعد روز

**apriliyaa** · 2018/01/07, 18:27

آموزش جفتشو دارید؟
چون دیتا ها زیاد هست نمیشه دستی این کار رو انجام داد

**Amir Ghasemiyan** · 2018/01/08, 11:05

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

آموزش جفتشو دارید؟
چون دیتا ها زیاد هست نمیشه دستی این کار رو انجام داد

براي اولي كه بايد از توابع شمسي ساز استفاده كنيد. سرچ كنيد هم فايل مربوطش رو پيدا ميكنيد هم توضيحات روش استفادش
براي روش دوم هم كافيه از ابزار text to column استفاده كنيد از تب data

**كامران** · 2018/01/09, 18:39

نوشته اصلی توسط Amir Ghasemiyan

سلام دوست عزيز
شما دو راه داريد. يكي اينكه تاريخ ها رو به ميلادي تبديل كنيد و بعد سورت كنيد
دوم اينكه تاريخ ها رو از هم تفكيك كنيد يعني سال و ماه و روز رو جدا كنيد و بعد سورت سه گانه انجام بدين. اول بر اساس سال بعد ماه بعد روز

راه سومی هم هست اونم ماکرو است

برای انجام کار باید اول فایل زیر را دانلود و اجرا کنید بعد تاریخهای خودتان را در فایل خودتان پیدا کنید و فرمولهائی را که نوشته ام جلوی آن ( مثل فایل ارسالی) بنویسید
بعد با زدن ALT+F11 به صفحه کدها برید و بعد در جدول سمت چپ روی اسم صفحه (شیت) ی که تاریخها در آن است دابل کلیک کرده و این کدها را عینآ در صفحه بازشده پیست کنید

کد:

Private Sub Worksheet_Change(ByVal Target As Range)


     Range("A2:H9").Select
    Range("H2").Activate
    ActiveWorkbook.Worksheets("æÑÞå1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("æÑÞå1").Sort.SortFields.Add Key:=Range("H2:H9"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("æÑÞå1").Sort
        .SetRange Range("A2:H9")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

البته باید کدها را مناسب با فایل خودتان تغییر بدهید
بدین ترتیب آدرسهای 2 و 5 شکل زیر باید کل منطقه تاریخها و فرمولها یعنی منطقه های زرد و آبی و نارنجی
آدرس 4 باید منطقه زرد یعنی ستون آخر فرمول
آدرس 1 باید سلول اول از آدرس بالا
و اسم 3 اسم شیت شما است

در آخر پنجره کدها را ببندید و فایل را با ماکروی فعال شده ذخیره کنید
حالا اگر هر تاریخی تغییر کند برنامه بطور خودکار آنها را مرتب میکند

تذکر : اگر تعداد تاریخها اضافه شود باید خلوی تاریخ جدید فرمولهای مربوطه را اظافه کرده و کدها هم تغییر کند

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