للمحترفين كود فرز مع اعادة تنسيق الاعمدة ( كنص )

[ابوسلماان]

الاعزاء الكرام ،،،،،،،،،،،،، صباح الخيرات

احتاج الى تعديل في الكود التالي بحيث يقوم بعملية الفرز ولكن  بتعديل تنسيق الاعمدة المفروزة الى " نص " .

 

Range("F5:G1000").Select
    ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range("G5:G1000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Groups").Sort
        .SetRange Range("F5:G1000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
   End With

 

وتقبلوا خالص الود ،،،

[الـعيدروس]

أضف السطر التالي على الكود

Range("G5:G1000").NumberFormat = "@"

وهذا الكود تبعك ومضاف عليه السطر

Range("F5:G1000").Select
    ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range("G5:G1000") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    '----
    Range("G5:G1000").NumberFormat = "@"
    '----
    With ActiveWorkbook.Worksheets("Groups").Sort
        .SetRange Range("F5:G1000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
   End With
'

 

تحياتي