نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: سورت کردن و شماره گذاری ردیف با کمک ماکرو

  1. #1


    آخرین بازدید
    2024/02/15
    تاریخ عضویت
    January 2015
    نوشته ها
    32
    امتیاز
    12
    سپاس
    13
    سپاس شده
    2 در 1 پست
    تعیین سطح نشده است

    سورت کردن و شماره گذاری ردیف با کمک ماکرو

    با عرض سلام و خسته نباشید خدمت تمامی دوستان
    چندی پیش سوالی مطرح کردم مبنی بر "شماره گذاری ردیف با کمک ماکرو"
    که این سوال با کمک جناب آقای میر حل شد
    بعد از آن خودم هرچه تلاش کردم که بتوانم دستوراتی را به آن اضافه کرنم ک در هنگام اجرای ماکرو
    ابتدا عمل سورت را روی ستون مورد نظر انجام دهد
    سپس عمل شماره گذاری را
    نتوانستم

    لطفا کمکم کنید
    درخواست(لطفاَ):ماکرویی باشد که ابتدا عمل سورت کردن را بر روی ستون " i " انحام دهد سپس عمل شماره گذاری را اعمال کند
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip 1.zip اطلاعات (50.3 کیلو بایت, 20 نمایش)
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

    مشکل در نام فارسی سرستون " تاریخ اعزام " میباشد. میتوانید بکمک ماکرو قبل از سورت نام "تاریخ اعزام" را به یک نام انگلیسی تغییر داده و در انتهای ماکرو دوباره نام را به "تاریخ اعزام " تغییر دهید.

    کد PHP:
    Sub sort()

    Application.ScreenUpdating False

    Range
    ("i5") = "tarikh"
      
        
    ActiveWindow.SmallScroll ToRight:=6
        ActiveWorkbook
    .Worksheets("data").ListObjects("Data").sort.SortFields.Clear
        ActiveWorkbook
    .Worksheets("data").ListObjects("Data").sort.SortFields.Add Key _
            
    :=Range("Data[[#All],[tarikh]]"), SortOn:=xlSortOnValuesOrder:= _
            xlDescending
    DataOption:=xlSortNormal
        With ActiveWorkbook
    .Worksheets("data").ListObjects("Data").sort
            
    .Header xlYes
            
    .MatchCase False
            
    .Orientation xlTopToBottom
            
    .SortMethod xlPinYin
            
    .Apply
        End With
        
        Range
    ("i5") = "تاريخ اعزام"
        
        
    Range("B6").Select
        
        numbering
        
        Application
    .ScreenUpdating True
        
    End Sub 
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: zip 1.zip اطلاعات (49.6 کیلو بایت, 40 نمایش)

  4. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد