پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

موضوع: مرتب سازی اعداد با vba

  1. #1


    آخرین بازدید
    2015/08/14
    تاریخ عضویت
    July 2014
    نوشته ها
    18
    امتیاز
    13
    سپاس
    16
    سپاس شده
    3 در 1 پست
    تعیین سطح نشده است

    مرتب سازی اعداد با vba

    سلام خدمت دوستان و اساتید عزیز
    یک سوالی داشتم از خدومتتون
    استاد ما به عنوان یکی از پروزه های پایان ترم گفته در اکسل یک برنامه ی vba بنویسید که 10 عدد رو از بزرگ به کوچیک با برعکس مرتب کنه
    نکته ی مهم هم اینه نباید از توابع خود اکسل استفاده کرد و فقط باید vba باشه
    راهی که به ذهن من میرسه استفاده از if هست که خیلی کار رو زیاد میکنه و سخت
    دوستان راهی ساده تر که کد نویسی کمتری رو بخواد بلد هستند؟
    اگر کدش رو هم بهم بدید که دیگه واقعا لطف کردید
    :D
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1684
    سپاس
    594
    سپاس شده
    1,259 در 438 پست
    تعیین سطح نشده است

    سلامی کمی تو تالار vB جستجو میکردین به نتیجه میرسیدین
    این نمونه کد از کم به بیشتر مرتب میکنه
    کد:
    Sub SORT()    Range("A1:A10").Select
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet1").Sort
            .SetRange Range("A1:A10")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Range("A1").Select
    End Sub



  4. #3


    آخرین بازدید
    2023/05/03
    تاریخ عضویت
    January 2012
    محل سکونت
    استان اردبیل / شهرستان پارس آباد (مغان)
    نوشته ها
    1,222
    امتیاز
    2665
    سپاس
    1,411
    سپاس شده
    2,121 در 671 پست
    سطح اکسل
    73.00 %

    Javid Mokhtari به Yahoo ارسال پیام
    با سلام.
    غیر از این روش، روش های دیگه ای هم هست.اگه بگردین پیدا میشه ...
    تو کد بالا میشه از خیلی قسمت هاش چشم پوشی کرد:
    کد PHP:
    Sheet1.Sort.SortFields.Clear
    Sheet1
    .Sort.SortFields.Add Key:=Range("A1"), Order:=xlAscendingWith Sheet1.Sort
        
    .SetRange Range("A1:A10")
        .
    Orientation xlTopToBottom
        
    .Apply
    End With 
    البته اگه استاد این روش رو قبول کنه.که فکر نکم قبول کنه ..
    دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
    بیش از 60 جلسه آموزش ویدئویی رایگان

    شرکت در دوره:

    https://javidsoft.ir/courses/





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

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

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

موضوعات مشابه

  1. جداسازی حروف و اعداد در سل های اکسل
    توسط mehdi_hidden در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 13
    آخرين نوشته: 2015/10/30, 01:46
  2. کمک مرتب سازی اعداد
    توسط mr.excel در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2012/06/27, 19:04
  3. بهینه سازی
    توسط baran در انجمن آموزش ساير موضوعات در اكسل
    پاسخ ها: 1
    آخرين نوشته: 2012/05/04, 15:02
  4. آشکار سازی سلول های مخفی شده، پس از ذخیره سازی
    توسط only-only در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 1
    آخرين نوشته: 2012/04/24, 13:06

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

دستورات اعداد vba

مرتب سازی اکسل و vba

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

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

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

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