Excel дээр VBA ашиглан мужийг хэрхэн ангилахыг мэдэх нь бидний өдөр тутмын тооцоололд цаг хугацаа, хүчин чармайлт хэмнэдэг. Хэдийгээр Excel нь анхдагчаар ангилах боломжийг олгодог. Range.Sort арга -г ашигласнаар бид ердийнхөөс илүү олон сонголттой өгөгдлийн багцыг эрэмбэлэх хэд хэдэн параметрт хандах боломжтой болно.

Дадлагын ажлын номыг татаж авах

Энэ нийтлэлийг уншиж байхдаа дасгал хийхийн тулд энэхүү дасгалын номыг татаж авна уу.

Excel VBA дахь Range.Sort мэдэгдлийн танилцуулга

Зорилго : Үүрэн өгөгдлийг эрэмбэлэх.

Синтакс:

илэрхийлэл .Ангилах ( Түлхүүр1 , Захиалга1 , Түлхүүр2 , Төрөл , Захиалга2 , Түлхүүр3 , Захиалга3 , Толгой , Захиалгат , MatchCase , Orientation , SortMethod , DataOption1 , DataOption2 , DataOption3 )

Энд илэрхийлэл нь Муж объектыг, өөрөөр хэлбэл нүд, мөр, багана эсвэл нүднүүдийн сонголтыг төлөөлдөг.

Аргументууд:

Бид Range.Sort аргын хувьд гурван үндсэн параметрүүдийг өгөх хэрэгтэй. Тэдгээр нь-

Түлхүүр – Бидний эрэмбэлэх шаардлагатай ганц эсвэл олон баганын нүднүүдийн муж.

Захиалга – Эрэмбэлэх дарааллыг зааж өгнө үү. өсөх эсвэл буурах.

Толгой – Эрэмбэлэх баганууд нь толгой хэсэгтэй эсэхийг мэдэгдэнэ.

Excel VBA дахь мужийг эрэмбэлэх 6 жишээ

ИнЭнэ нийтлэлд бид өгөгдлийн багц болгон хүмүүсийн нэрсийн жагсаалтыг тэдний төрсөн он сар өдөр, насаар нь ашиглах болно. Бид өгөгдлийн багцыг эрэмбэлэхийн тулд өөр өөр аргыг хэрэглэнэ. Эдгээр аргуудыг эзэмшихийн тулд нийтлэлийг уншиж, дадлага хийцгээе.

1. Excel VBA-г ашиглан нэг баганын мужийг эрэмбэлэх

Энэ жишээнд бид хүмүүсийг хамгийн хөгшин -с залуу хүртэл эрэмблэх болно. . Муж -г ашиглах алхмуудыг дагана уу. Эрэмбэлэх арга Энэ нь Насны баганыг эрэмбэлэх >буурах дарааллаар .

Алхам:

• Excel тууз<2 дахь Хөгжүүлэгч таб руу очно уу> тулд Visual Basic

• дээр товшиж Дараа нь Модуль сонголтыг<2 сонгоно уу> Insert tab хэсгээс шинэ модуль нээх.

Одоо бид кодоо дараах руу оруулна. Нас баганын мужийг ангилах .

1.1 Толгойтой багана

Доорх кодыг визуал код засварлагчд оруулна.

3175

F5 эсвэл Ажиллуулах товчийг дарж кодыг гүйцэтгэнэ.

Тайлбар:

Дээрх кодонд бид-

Илэрхийлэл (Range объект)=Range(“D4:D11”); насны багана толгой D4 нүдэн дэх утгууд D5:D11.

Түлхүүр = Хүрээ("D4"); түлхүүр эрэмбэлэх.

Order= xlDescending; бид утгуудыг хамгийн том -с хамгийн бага хүртэл эрэмбэлэхийг хүсэж байгаа тул эрэмлэх дарааллыг тохируулна. буурах байдлаар.

Толгой =xlYes; Дараах дэлгэцийн агшинд өгөгдлийн багц а байгааг харж болно. толгой багана тус бүрийн хувьд.

1.2 Толгойгүй багана

Дараах зүйлийг оруулна уу. визуал код засварлагчийн код.

1397

F5 эсвэл Ажиллуулах товчийг дарж кодыг гүйцэтгэнэ.

Тайлбар:

Дээрх кодонд бид-

Илэрхийлэл (Range объект)=Range(“D4 :D10”); насны багана толгойгүй утгууд D4:D10.

Түлхүүр = Хүрээ("D4"); түлхүүр эрэмбэлэх.

Order= xlDescending; бид утгуудыг хамгийн их -с хамгийн бага хүртэл эрэмбэлэхийг хүсэж байгаа тул эрэмлэх дарааллыг буурах байдлаар тохируулна.

Толгой =xlNo; Дараах дэлгэцийн агшинд бид өгөгдлийн багц нь толгойгүй болохыг харж болно.

Холбогдох контент: Өгөгдлийг холихгүйгээр Excel-ийн баганыг хэрхэн эрэмбэлэх вэ (3 арга)

2. Excel дээр олон баганын мужийг эрэмбэлэхийн тулд VBA кодыг ашиглах

олон баганад эрэмбэлэхийг харуулахын тулд бид өөрчлөх хэрэгтэй. 1>өгөгдлийн багц бага зэрэг. Бид хэд хэдэн шинэ мөр оруулсан . Өөрчлөгдсөн өгөгдлийн багцын 7, 8, ба 9 мөрүүд нь төрсөн огноо ба насны хувьд ижил утгатай байна. гэхдээ гурван өөр нэр . Эдгээр нэр нь тодорхой дарааллаар биш өсөх эсвэл буурах.

Энэ жишээнд бид нэрсийг өсөх дарааллаар эрэмбэлнэ. Visual basic editor дээр дараах кодыг ажиллуулъя:

9538

Тайлбар:

Дээрх дэлгэцийн агшинд D багананд байгаа насыг буурах дарааллаар эрэмбэлсэн болохыг бид харж болно. Бид өмнөх коддоо дахин хоёр параметр нэмсэн.

Түлхүүр2: =Range(“B4”) , нэрийг эрэмбэлэх түлхүүр.

2-р эрэмбэ: =xlӨсөх , нэрийг богиносгох захиалга .

Үүний үр дүнд бид нэр -ыг харна. 7, 8, 9-р мөр одоо цагаан толгойн өсөх дарааллаар эрэмблэгдсэн байна.

Дараах дэлгэцийн агшинд бид -г өөрчилсөн. Захиалга2 параметрийн утгыг нэрсийг буурах дарааллаар эрэмлэх болгох.

Дэлгэрэнгүй унших: Excel дээр олон баганыг хэрхэн эрэмбэлэх вэ (5 хурдан арга)

3. Excel VBA дахь баганын мужийг эрэмбэлэхийн тулд толгой дээр давхар товшино уу

Excel-ийн анхдагч эрэмбэлэх функц нь баганын утгыг <1-ээр эрэмбэлэхийг зөвшөөрдөггүй> баганын толгой дээр давхар товш. Гэхдээ VBA кодыг ашигласнаар бид үүнийг хийж чадна. Дараах кодыг ашиглан энэ функцийг тайлбарлая.

6463

Энэ кодонд бид BeforeDoubleClick үйл явдлыг ашиглан ердийн давхар – товшилтыг идэвхгүй болгосон> нь нүдний засварлах горимыг эхлүүлэх явдал юм. Энэ үйл явдалтай хамтХэрэв бид давхар – дарвал баганын толгой энэ нь баганын өгөгдлийг өсөх дарааллаар эрэмбэлдэг.

Дэлгэрэнгүй унших: Excel дэх баганыг эрэмбэлэх VBA (4 арга)

Ижил төстэй уншилтууд:

• Excel дээр эрэмбэлэх товчийг хэрхэн нэмэх вэ (7 арга)
• Excel дээр өвөрмөц жагсаалтыг эрэмбэлэх (10 ашигтай арга)
• Хэрхэн Excel VBA-д эрэмбэлэх функцийг ашиглах (8 тохиромжтой жишээ)
• Excel дээр давхардсан зүйлсийг эрэмбэлэх (багана ба мөр)
• Excel дээр санамсаргүй эрэмбэлэх ( Томъёо + VBA)

4. Excel VBA-г ашиглан дэвсгэрийн өнгө дээр тулгуурлан баганын мужийг эрэмбэлэх

Бид баганын хүрээний нүднүүдийг дэвхжүүлэн тэдгээрийн арын өнгө< . Үүнийг хийхийн тулд бид хlSortOnCellColor утгатай SortOn нэртэй а параметр нэмэх хэрэгтэй. Эрэмбэлэхийг харуулахын тулд бид эхлээд өгөгдлийн багцын мөрүүдэд өөр өөр арын өнгийг тохируулдаг.

Дараа нь visual basic дээр код засварлагч дараах кодыг хуулж F5 дарж ажиллуулна уу.

3531

Дараах дэлгэцийн агшинд бид эрэмбэлэгдсэн өгөгдлийн багцыг харж болно. тэдгээрийн дэвсгэр өнгө дээр.

Тайлбар:

• Энэ жишээнд бид ажлын хуудсыг <2 гэж нэрлэсэн>“ арын дэвсгэр ”. Тиймээс кодонд бид “ арын дэвсгэр ”-г өөрийн идэвхтэй ажлын хуудасны нэр болгон оруулсан.
• Бид B4 г түлхүүр болгон тохируулсан. болон B4:D10 гэж муж . Код нь өгөгдлийг түлхүүр дээр үндэслэн ангилах болно.
• Бид толгой параметрийг заагаагүй тул код нь үндсэн толгойгүй.
• Бид дараалал параметрийг өсөхөөр тохируулсан тул өгөгдлийг доод утгаас дээд утга руу эрэмбэлсэн .

Дэлгэрэнгүй унших: Excel дээр өнгөөр ​​хэрхэн ангилах вэ (4 шалгуур)

5. Үсгийн өнгөөр ​​баганын мужийг эрэмбэлэхийн тулд VBA кодыг ашиглах

VBA кодыг хэрэглэснээр бид өөрсдийн өгөгдлийн багцыг фонтын өнгө дээр үндэслэн ангилах боломжтой. Эхлээд бид жишээг харуулахын тулд өөр өөр мөрүүдийг өнгөөр ​​​​будах хэрэгтэй.

Доорх кодыг ашиглан фонтын өнгөөр ​​эрэмбэлнэ үү.

8167

Тайлбар:

• Үүнд Жишээ нь, бид ажлын хуудсыг “ фонтын өнгө ” гэж нэрлэсэн. Тиймээс кодонд бид “ фонтын өнгө ”-г өөрийн идэвхтэй ажлын хуудасны нэр болгон оруулсан.
• Бид B4 г түлхүүр болгон тохируулсан. болон B4:D11 -г муж гэж үзнэ. Код нь өгөгдлийг түлхүүр дээр үндэслэн эрэмбэлэх болно.
• Энэ жишээнд бид мөн толгойн параметрийг xlYes гэж тодорхойлсон.
• Энд бид дарааллыг тохируулсан. параметрийг өсөх шинжтэй, иймээс энэ нь өгөгдлийг доодоос дээд утга руу эрэмбэлсэн .
• SortOn параметрийн утга нь
• чиглэлийн параметр заавал хийх ёстой учраас xlTopToBottom утгыг агуулна.
• Ангилах өнгө нь RGB хэллэгээр илэрхийлэгддэг. үнэ цэнэтэй байдаг 0 -аас 255 хүртэл.

Дэлгэрэнгүй унших: Excel дээр хоёр баганыг хэрхэн тааруулахын тулд хэрхэн эрэмбэлэх вэ? ба Хэсэгчилсэн тоглолт)

6. Excel VBA-г ашиглан мужийг эрэмбэлэхийн тулд чиг баримжаагаа өөрчлөх

чиглэл параметрийг ашигласнаар бид өгөгдлийг эрэмбэлэх аргаа өөрчилж болно. Энэ жишээнд бид өгөгдлийн багцаа хэвтээ хэвтээ байдлаар эрэмбэлэхийн тулд шилжүүлсэн.

Visual basic засварлагчийн дараах кодыг ажиллуулаад F5 товчийг дарж ажиллуулна уу.

1939

Энд бид насны мөр дээр үндэслэн өгөгдлийг эрэмбэлсэн. 2> өсөх зүүнээс баруун хүртэл дарааллаар. Кодод бид чиглэл параметрийг xlSortRows гэж тохируулсан.

Холбогдох контент: Excel дээр олон баганыг хэрхэн автоматаар эрэмбэлэх вэ (3 арга зам)

Санах ёстой зүйлс

• Бидний эрэмбэлэх SortOn параметр > арын өнгө ба фонтын өнгө дээр суурилсан баганын мужийг зөвхөн ажлын хуудасны объект ашиглаж болно. Бид үүнийг мужийн объект -тэй ашиглах боломжгүй.
• BeforeDoubleClick үйл явдал өгөгдлийг зөвхөн өсөх байдлаар эрэмбэлдэг.

Дүгнэлт

Одоо бид Excel-ийн VBA ашиглан мужийг хэрхэн эрэмбэлэхээ мэдэж байна. Энэ нь таныг илүү итгэлтэйгээр ашиглахад тусална гэж найдаж байна. Аливаа асуулт, санал байвал доорх коммент хэсэгт оруулахаа бүү мартаарай.