مشکل در ایجاد یک ستون به ترتیب روف الفبای فارسی

[mhm_1371]

با سلام من یه فایل اکسل دارم که برا شروع کار با برنامه کاربر باید 16 تا اسم تیم فوتبال حاضر در سری مسابقات را وارد 16 تا سلول کنه چطور میتونم بعد از وارد کردن نامها این 16 تا اسم را تو یه ستون به ترتیب حروف الفبا برام قرار بده
باتشکر

[amir_ts]

با سلام
فایل نمونه رو ملاحظه کنید و متناسب با آدس اطلاعات ، یک ستون انتخاب و فرمول زیر رو وارد کنید. لیست ردیفی شما به ستونی تبدیل میشه درآخر لیست فرمول دار رو کپی کنید و در ستون مورد نظر paste values کنید و فیلتر که به ترتیب حروف الفبا نمایش داده شه.

=IF(ROW($A1)<=8;OFFSET($B$1;1;ROW($A1)-1);OFFSET($B$1;3;ROW($A1)-9)) 

[mhm_1371]

ببخشید ولی منظور من این بود که اسم ها خود به خود وبا وارد کردن 16 همی سورت بشن چون ممکن کاربر اصلا اکسل بلد نباشه ولی برا یه منظور خاص تو یه جای دیگه برنامه حتما باید این کار انجام بشه اصلا فرض کنید اسامی را ستونی وارد کنیم

[amir_ts]

با این کد های ماکرو میتونید با قرار دادن یک دکمه مرتب سازی رو انجام بدید.

[LEFT]

Sub test()
   
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("O9"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("O9:O24")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub




[/LEFT]