به نام خداوند بخشنده و مهربان با یک پست آموزشی و کاربردی دیگر با عنوان “معرفی دستور Sort در ماکرونویسی و کاربرد آن در داشبوردهای مدیریتی اکسل” خدمت شما سروران و دنبال کنندگان محترم سایت آموزشی اکسل لرن هستیم .

قبل از شروع به معرفی دستور Sort در ماکرونویسی اکسل می بایست شما عزیزان را با کاربرد و نحوه استفاده از ابزار Sort در اکسل آشنا کنیم . برای آشنایی بیشتر با ابزار Sort در نرم افزار اکسل پیشنهاد میکنیم کلیپ آموزشی زیر را با دقت تماشا کنید:

آیا به دنبال یک منبع آموزشی خوب برای یادگیری اکسل هستید ؟

اگر شما نیز به دنبال یک منبع آموزشی خوب برای یادگیری نرم افزار قدرتمند اکسل(Microsoft Excel) بصورت پیوسته و کاربردی هستید پیشنهاد میکنیم پکیج آموزش اکسل کاربردی و استخدامی سایت آموزشی اکسل را به هیچ عنوان از دست ندهید .

البته آموزش ابزار Custom Sort را نیز بصورت مجزا برای شما عزیزان تهیه نمودیم که در صورت تمایل میتوانید کلیپ آموزشی آن را در قسمت زیر مشاهده کنید :

معرفی دستور Sort در ماکرونویسی و کاربرد آن در داشبوردهای مدیریتی اکسل

همانطور که از عنوان دستور Sort مشخص است وظیفه آن مرتب سازی داده های یک جدول بصورت صعودی و یا نزولی است که ساختار خلاصه شده آن بصورت زیر می باشد :

Range.Sort (_Key1_, _Order1_, _Key2_, _Order2_, _Key3_, _Order3, _Header)

1	Range.Sort (_Key1_, _Order1_, _Key2_, _Order2_, _Key3_, _Order3, _Header)

توضیحات دستور فوق به شرح زیر می باشد :

عبارت Range اشاره به محدوده داده های شما دارد ، به عنوان مثال محدوده A1:D10
آرگومان Key اشاره به شماره ستون(فیلد) جهت مرتب سازی دارد .
آرگومان Order اشاره به نحوه مرتب سازی رکوردهای آرگومان Key دارد .
- مرتب سازی صعودی xlAscending
- مرتب سازی نزولی xlDescending
آرگومان Header اشاره به وجود یا عدم وجود سرستون دارد .
- محدوده دارای سرستون می باشد xlYes
- محدوده دارای سرستون نمی باشد xlNo

با فرض اینکه داده های ما به شکل زیر است :

معرفی دستور Sort در ماکرونویسی و کاربرد آن در داشبوردهای مدیریتی اکسل

به دستورات زیر دقت کنید :

Sub excellearn()
Range("A1:D11").Sort key1:=Columns(2), order1:=xlAscending, Header:=xlYes
End Sub

1

2

3

Sub excellearn()

Range("A1:D11").Sort key1:=Columns(2), order1:=xlAscending, Header:=xlYes

End Sub

در دستورات فوق رکورد های محدوده A1:D11 را براساس ستون Name (Columns(2)) بصورت صعودی (xlAscending) با فرض اینکه محدوده انتخابی دارای سرستون است (Header:=xlYes) مرتب سازی کردیم .

نتیجه ماکروی فوق بصورت زیر خواهد شد :

به منظور استفاده از ابزار Custom Sort میتوان از دستورات زیر و چندین الویت بندی استفاده نمود :

Sub excellearn()
Range("A1:D11").Sort key1:=Columns(2), order1:=xlAscending, _
key2:=Columns(3), order1:=xlAscending, key3:=Columns(4), order1:=xlAscending, Header:=xlYes
End Sub

1

2

3

4

Sub excellearn()

Range("A1:D11").Sort key1:=Columns(2), order1:=xlAscending, _

key2:=Columns(3), order1:=xlAscending, key3:=Columns(4), order1:=xlAscending, Header:=xlYes

End Sub

بطور خلاصه در دستورات فوق ما ستون Name را بصورت صعودی ، سپس به دنبال آن ستون LastName را بصورت صعودی و در پایان ستون Amount را نیز بصورت صعودی مرتب کردیم ، نتیجه دستورات فوق بصورت زیر خواهد شد :

جهت آشنایی بیشتر با دستور Sort و نحوه بکارگیری آن در داشبوردهای مدیریتی پیشنهاد میکنیم کلیپ آموزشی زیر را تماشا کنید :

در صورت وجود هرگونه انتقاد و پیشنهاد میتوانید آن را در قسمت نظرات پست آموزشی ” معرفی دستور Sort در ماکرونویسی و کاربرد آن در داشبوردهای مدیریتی اکسل” ارسال نمایید .