VBA ya Kupanga Jedwali katika Excel (Njia 4)

Hugh West

18-06-2023 Macros & Excel VBA
  • Shiriki Hii
Hugh West

Utekelezaji VBA macro ndiyo njia bora zaidi, ya haraka na salama zaidi ya kuendesha operesheni yoyote katika Excel. Katika makala haya, tutakuonyesha jinsi ya kupanga jedwali katika Excel na VBA .

Pakua Kitabu cha Kazi

Unaweza kupakua kitabu cha mazoezi bila malipo cha Excel kutoka hapa.

Panga Jedwali kwa VBA.xlsm

Mambo ya Kujua Kabla ya Utekelezaji wa VBA ili Panga Jedwali katika Excel

Kuna baadhi ya vigezo ambavyo unapaswa kutumia mara kwa mara unapofanya kazi na Panga mbinu ya VBA . Kwa hivyo hapa tutajadili baadhi ya vigezo vya kukufanya ufahamu unapoandika msimbo.

Kigezo Inayohitajika/ Hiari Aina ya Data Maelezo
Ufunguo Si lazima Kibadala Hubainisha safu au safu wima ambazo thamani zake zitapangwa.
Agizo Si lazima XlSortOrder Inabainisha mpangilio ambao upangaji utafanywa.
  • xlAscending = Ili kupanga kwa mpangilio wa kupanda.
  • xlDescending = Ili kupanga kwa utaratibu wa kushuka.
Kichwa Si lazima XlYesNoGuess Inabainisha iwapo safu mlalo ya kwanza ina vichwa au la .
  • xlNo = Wakati safu wima haina vichwa vyovyote; Thamani chaguo-msingi.
  • xlNdiyo = Wakati safu wima zina vichwa.
  • xlGuess = Kuruhusu Excelbainisha vichwa.

4 Mbinu za Utekelezaji wa VBA ili Kupanga Jedwali katika Excel

Sehemu hii itafanya kukuonyesha jinsi ya kupanga majedwali ya Excel kwa kuzingatia thamani, rangi, aikoni na safu wima nyingi na VBA msimbo.

1. Pachika VBA ili Kupanga Jedwali kwa Thamani katika Excel

Kwa kuzingatia mfano ufuatao tutapanga jedwali hili kulingana na thamani zilizopo kwenye Alama safu katika mpangilio wa kushuka.

Hatua:

  • Bonyeza Alt + F11 kibodi yako au nenda kwenye kichupo Msanidi programu -> Visual Basic ili kufungua Visual Basic Editor .

  • Katika dirisha ibukizi la msimbo, kutoka kwa upau wa menyu , bofya Ingiza -> Moduli .

  • Nakili msimbo ufuatao na ubandike kwenye dirisha la msimbo. 
8170

Msimbo wako sasa iko tayari kuendeshwa.

Hapa,

  • PangaTBL → Ilibainisha jina la jedwali.
  • PangaTBL[Alama] -> Imebainisha jina la safu wima la jedwali la kupanga.
  • Ufunguo1:=iColumn → Ilibainisha safu wima ili kujulisha msimbo ni safu wima ipi katika jedwali ya kupanga.
  • Order1:=xlDescending → Ilibainisha mpangilio kama xlDescending ili kupanga safu katika mpangilio wa kushuka. Ikiwa ungependa kupanga safu kwa mpangilio wa kupanda basi andika xlAscending badala yake.
  • Header:= xlNdiyo → Kama safu wima katika jedwali hili inakichwa kwa hivyo tuliibainisha kwa xlNdiyo chaguo.

  • Bonyeza F5 kwenye kibodi yako au kutoka upau wa menyu chagua Run -> Endesha Fomu Ndogo/Mtumiaji . Unaweza pia kubofya ikoni ndogo ya Cheza katika upau wa menyu ndogo ili kuendesha jumla.

Utaona kwamba safu katika jedwali lako sasa imepangwa kwa mpangilio wa kushuka .

Soma Zaidi: Jinsi ya Kupanga Data kwa Thamani katika Excel (Njia 5 Rahisi )

2. Chomeka VBA Macro ili Kupanga Jedwali kwa Safu Wima Nyingi

Unaweza pia kupanga jedwali kwa safu wima nyingi katika Excel na VBA jumla.

Kutoka kwenye jedwali lililo hapo juu, tutapanga safuwima Jina na Idara kwa mpangilio wa kupanda .

Hatua:

  • Sawa na hapo awali, fungua Kihariri cha Msingi cha Kuonekana kutoka kwa kichupo cha Msanidi na Ingiza Moduli kwenye dirisha la msimbo.
  • Katika dirisha la msimbo, nakili msimbo ufuatao na ubandike. 
6001

Yako msimbo sasa uko tayari kutumika.

Hapa,

  • Thamani ya Jedwali → Ilibainisha jina la jedwali.
  • Thamani ya Jedwali[Jina] -> Imebainisha jina la safu wima ya kwanza ya jedwali la kupanga.
  • Thamani ya Jedwali[Idara] -> Imebainisha jina la safu wima ya pili ya jedwali la kupanga.
  • Ufunguo1:=iColumn1 → Ilibainisha safu wima ili kujulisha msimbo kwamba safu wima ya kwanza katika jedwali inahitaji kuwekwa.imepangwa.
  • Ufunguo1:=iColumn2 → Ilibainisha safu wima ili kujulisha msimbo kwamba safu wima ya pili katika jedwali inahitaji kupangwa.
  • Agizo1: =xlAscending → Ilibainisha mpangilio kama xlAscending kupanga safu katika mpangilio wa kushuka. Ikiwa ungependa kupanga safu kwa mpangilio wa kushuka basi andika xlDescending badala yake.
  • Header:= xlYes → Kwa vile safu wima za jedwali hili zina vichwa ndivyo tuliibainisha. kwa xlNdiyo chaguo.

  • Endesha msimbo huu na utapata zote mbili za safu wima za jedwali zimepangwa kwa mpangilio wa kupanda.

Soma Zaidi: Jinsi ya Kupanga Safu Wima Nyingi Kiotomatiki katika Excel (Njia 3)

Visomo Sawa

  • Jinsi ya Kupanga Orodha ya Kipekee katika Excel (Njia 10 Muhimu) 18>
  • Panga Mpangilio kwa Excel VBA (Agizo la Kupanda na Kushuka)
  • Jinsi ya Kupanga na Kuchuja Data katika Excel (Mwongozo Kamili)
  • Panga Kiotomatiki cha Excel Wakati Data Inapobadilika (Mifano 9)
  • Panga Nasibu katika Excel (Mfumo + VBA)

3. Tekeleza Macro ili Kupanga Jedwali kwa Rangi ya Kiini katika Excel

Unaweza pia kupanga jedwali kulingana na rangi ya seli iliyomo.

Jedwali lililo hapo juu kama mfano wetu, tutakuonyesha jinsi ya kupanga kulingana na rangi ambazo jedwali hili linashikilia.

Hatua:

  • Kama ilivyoonyeshwa hapo awali, fungua Visual BasicMhariri kutoka kwa kichupo cha Msanidi na Ingiza Moduli kwenye dirisha la msimbo.
  • Katika dirisha la msimbo, nakili msimbo ufuatao. na ubandike. 
2952

Msimbo wako sasa uko tayari kutumika.

Hizi RGB misimbo ambayo tulitoa , unaweza kuipata au msimbo mwingine wowote RGB unaotaka kwa kufuata gif iliyotolewa hapa chini.

  • Bofya tu kisanduku chenye rangi .
  • Kwenye kichupo cha Nyumbani , bofya kishale kando ya Jaza Rangi kisha uchague Rangi Zaidi . Utaona misimbo ya RGB kwenye kichupo cha Custom cha kisanduku ibukizi cha Rangi .

3>

  • Endesha msimbo huu na jedwali lako litapangwa kulingana na rangi .

0> Soma Zaidi: Jinsi ya Kupanga kwa Rangi katika Excel (Vigezo 4)

4. Tumia VBA ili Panga Jedwali la Excel kwa Aikoni

Tuseme jedwali la mkusanyiko wa data lina aikoni za kusomeka vyema. Unaweza kupanga jedwali kulingana na aikoni katika Excel ukitumia VBA jumla.

Angalia mkusanyiko wa data ulio hapo juu. Hapa jedwali lina aikoni kando ya thamani za nambari katika safuwima za Alama ili tuweze kuelewa ni mwanafunzi gani ana matokeo mazuri, mabaya au wastani.

Kumbuka kwamba, iwapo hujui jinsi unavyoweza kuingiza ikoni ndani ya kisanduku, unaweza kufanya hivi kwa urahisi kwa Uumbizaji wa Masharti kipengele katika Excel.

  • Chagua safu nzima ausafu.
  • Nenda kwa Uumbizaji wa Masharti -> Aikoni Seti . Kisha chagua seti zozote za aikoni unazotaka kutoka kwa chaguo.

Hatua za kupanga jedwali kulingana na aikoni zimetolewa hapa chini.

Hatua:

  • Fungua Kihariri Cha Msingi Kinachoonekana kutoka kwenye kichupo cha Msanidi na Ingiza a Moduli katika dirisha la msimbo.
  • Katika dirisha la msimbo, nakili msimbo ufuatao na ubandike. 
1481

Msimbo wako sasa uko tayari kutumika.

Hapa,

  • xl5Arrows -> Tulichagua seti ya mishale 5 kutoka kwa chaguo katika Uumbizaji wa Masharti .
  • Kipengee (1) -> Imebainisha aina ya kwanza ya aikoni ya mshale.
  • Kipengee (2) -> Imebainisha aina ya ya pili ya aikoni ya mshale.
  • Kipengee (3) -> Imebainisha aina ya tatu ya aikoni ya mshale.
  • Kipengee (4) -> Imebainisha aina ya nne ya aikoni ya mshale.
  • Kipengee (5) -> Imebainisha aina ya tano ya aikoni ya mshale.

  • Endesha msimbo huu na jedwali litakuwa imepangwa kulingana na aikoni .

Soma Zaidi: Jinsi ya Kupanga Jedwali Kiotomatiki katika Excel (Mbinu 5) 3>

Hitimisho

Makala haya yalikuonyesha jinsi ya kupanga jedwali katika Excel VBA . Natumaini makala hii imekuwa ya manufaa sana kwako. Jisikie huru kuuliza ikiwa una maswali yoyote kuhusu mada hiyo.

Chapisho lililotangulia Jinsi ya Kunakili na Kuweka Bila Kubadilisha Umbizo katika Excel
Chapisho linalofuata Jinsi ya Kupata Thamani Muhimu katika Excel (Njia 2 Muhimu)

Hugh West ni mkufunzi na mchambuzi mwenye uzoefu wa juu wa Excel na uzoefu wa zaidi ya miaka 10 katika tasnia. Ana Shahada ya Kwanza katika Uhasibu na Fedha na Shahada ya Uzamili katika Utawala wa Biashara. Hugh ana shauku ya kufundisha na ameanzisha mbinu ya kipekee ya kufundisha ambayo ni rahisi kufuata na kuelewa. Ujuzi wake wa kitaalam wa Excel umesaidia maelfu ya wanafunzi na wataalamu ulimwenguni kote kuboresha ujuzi wao na kufaulu katika taaluma zao. Kupitia blogu yake, Hugh hushiriki ujuzi wake na ulimwengu, akitoa mafunzo ya bila malipo ya Excel na mafunzo ya mtandaoni ili kuwasaidia watu binafsi na biashara kufikia uwezo wao kamili.