بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد من دروس الاكسيل البرمجى EXCEL VBA
كيفية ترتيب الاسماء ابجديا Sort Data Form A To Z Excel vba
ورد الينا سؤال من احد الاصدقاء
يقول فية
لو سمحت اريد كود برمجى لترتيبا الاسماء ابجديا من خلال اليوزرفورم
وللاجابة على هذا السؤال نقوم فى البداية بالدخول على محرر الاكواد Visual basic Editor ومن ثم انشاء يوزرفورم جديد
ووضع زر على الفورم
والدخول الى حدث الضغط على الزر Click
وكتابة الكود التالى
Private Sub CommandButton1_Click()
'تعريف المتغيرات
Dim
ws As Worksheet
Dim
rng As Range
Set
ws = Worksheets("sheet1")
ws.Activate
Set
rng = ws.Range("a2:d1000")
'فرز البيانات فى العمود B form A To Z
rng.Sort key1:=Range("b:b"), order1:=xlAscending
End
Sub