مرتب سازی اعداد با 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 

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