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

[peha]

سلام خدمت دوستان و اساتید عزیز
یک سوالی داشتم از خدومتتون
استاد ما به عنوان یکی از پروزه های پایان ترم گفته در اکسل یک برنامه ی vba بنویسید که 10 عدد رو از بزرگ به کوچیک با برعکس مرتب کنه
نکته ی مهم هم اینه نباید از توابع خود اکسل استفاده کرد و فقط باید vba باشه
راهی که به ذهن من میرسه استفاده از if هست که خیلی کار رو زیاد میکنه و سخت
دوستان راهی ساده تر که کد نویسی کمتری رو بخواد بلد هستند؟
اگر کدش رو هم بهم بدید که دیگه واقعا لطف کردید:D

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ali.b]

سلامی کمی تو تالار 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

[Javid Mokhtari]

با سلام.
غیر از این روش، روش های دیگه ای هم هست.اگه بگردین پیدا میشه ...
تو کد بالا میشه از خیلی قسمت هاش چشم پوشی کرد:

Sheet1.Sort.SortFields.Clear
Sheet1.Sort.SortFields.Add Key:=Range("A1"), Order:=xlAscendingWith Sheet1.Sort
    .SetRange Range("A1:A10")
    .Orientation = xlTopToBottom
    .Apply
End With 

البته اگه استاد این روش رو قبول کنه.که فکر نکم قبول کنه ..