Dersdar destnîşan dike ku hûn çawa dikarin bi karanîna koda VBA û amûra Rêvebirê Pirtûka Xebatê zû pelên xebatê Excel li gorî rêza alfabetîk rêz bikin.

Microsoft Excel çend awayên bilez û hêsan peyda dike ku ji bo rêzkirinê stûn an rêz bi rêza alfabetîk. Lê tenê rêgezek heye ku meriv pelên xebatê li Excel-ê ji nû ve birêkûpêk bike - wan li ser barika tabloya pelê berbi pozîsyona xwestinê kaş bikin. Dema ku dor tê ser alfabekirina tabloyan di pirtûkek xebatek pir mezin de, dibe ku ev rêyek dirêj û xelet be. Li alternatîfek dem-teserûfê digerin? Tenê du hene: Koda VBA an jî amûrên sêyemîn.

Çawa bi VBA-ê di Excel de tabloyan alfabe dikin

Li jêr hûn ê sê mînakên koda VBA-yê bibînin ku Excel birêkûpêk bikin. pelên ku li ser bingeha bijartina bikarhêner hilkişin, dakevin, û her du alî.

Tê wateya ku hin ezmûna we bi VBA re heye, em ê tenê gavên bingehîn destnîşan bikin ku makroyek li pelgeya xebata xwe zêde bikin:

1. Di pirtûka xweya xebatê ya Excel de, Alt + F11 bikirtînin da ku Edîtorê Visual Basic vekin.
2. Li pencereya çepê, rast-klîk bikin ThisWorkbook , û paşê bikirtînin Insert > Modul .
3. Koda VBA-yê di pencereya Kodê de bihêle.
4. F5 bitikîne da ku makroyê bixebitîne.

Ji bo talîmatên hûrgulî gav-bi-gav, ji kerema xwe binihêrin Meriv çawa koda VBA-yê li Excel têxe û bimeşîne.

Serişte. Ger hûn dixwazin makroyê ji bo karanîna bêtir bihêlin, pê ewle bin ku pelê xwe wekî pirtûka xebata makro-çalakkirî ya Excel (.xlsm) hilînin.

Alternatîf, hûn dikarin pirtûka meya xebatê ya Alphabetize Excel Tabs dakêşin, heke were xwestin naverokê çalak bikin û makroya xwestî rasterast ji wir bimeşînin. Pirtûka xebatê makroyên jêrîn dihewîne:

• TabsAscending - pelan bi alfabetîk ji A heta Z rêz dike.
• TabsDescending - pelan di nav de rêz dike rêza berevajî, ji Z berbi A.
• AlphabetizeTabs - tabloyên pelan di her du alîyan de, hilkişin an daketinê rêz bikin.

Bi mînaka pirtûka xebatê ya dakêşandî û vekirî Excel-a xwe, pirtûka xweya xebatê ya ku hûn dixwazin tabloyan bi alfabeyî bikin vekin, Alt + F8 bikirtînin, makroya xwestî hilbijêrin û bikirtînin Run .

Tabên Excel-ê bi alfabetîk ji A berbi Z<15 rêz bikin>

Ev makroya piçûk pelên di pirtûka xebatê ya heyî de bi rêza alfan-hejmarî ya hilkişînê rêz dike, pêşî pelên xebatê yên ku navên wan bi jimareyan dest pê dikin, paşê jî pelên ji A heta Z.

Sub TabsAscending() Ji bo i = 1 Ji Application.Sheets.Count Ji bo j = 1 Ji Application.Sheets.Count - 1 Ger UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Dûv re Sheets(j).Piştî veguheztin:=Pelge(j + 1) End If Next Next MsgBox "Tab ji A ber Z hatine rêzkirin." End Sub

Tabên Excel ji Z ber A rêz bikin

Heke hûn dixwazin pelên xwe bi rêza alfanjimara daketî (Z ber A, paşê pelên bi navên hejmarî) rêz bikin, wê hingê koda jêrîn:

Sub TabsDescending() Ji bo i = 1 ToApplication.Sheets.Count Ji bo j = 1 To Application.Sheets.Count - 1 Ger UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Paşê Application.Sheets(j).Piştre biçe:=Application.Sheets(j + 1) End If Next Next MsgBox "Tabên ji Z-ya A hatine rêz kirin. " End Sub

Tebên hilkişîn an daketî bi alfabeyî bikin

Ev makro dihêle ku bikarhênerên we biryar bidin ka çawa pelên xebatê di pirtûkek xebatê ya diyarkirî de, bi alfabetîk ji A heya Z an jî li gorî rêza berevajî rêz bikin.

Ji ber ku qutiya diyalogê ya standard (MsgBox) di Excel VBA de tenê dihêle ku ji çend bişkokên pêşwext hilbijêrin, em ê forma xwe (UserForm) bi sê bişkokên xwerû biafirînin: A heta Z , Z heta A , û Betal bike .

Ji bo vê, Edîtorê Visual Basic vekin, li ThisWorkbook rast-klîk bikin û Insert > Forma Bikarhêner . Navê forma xwe bikin SortOrderFrom , û 4 kontrolan lê zêde bikin: etîketek û sê bişkok:

Piştre, F7 bikirtînin (an jî formê ducar bikirtînin ) ji bo vekirina pencereya Kodê û koda jêrîn li wir binivîsin. Koda bişkojka navbirî bitikîne û nîşanek yekta ji her bişkokê re destnîşan dike:

Bin CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Veşêre End Sub

Li gora ku bikarhêner bişkoja A heta Z an Z heta A li ser forma we bitikîne, tabloyên di nav de bişkînin.rêza alfabetîka hilkişînê (ji hêla xwerû ve hatî hilbijartin) an rêza alfabetîk a daketî; an jî formê bigire û di rewşa Betal bike de tiştekî neke. Ev bi koda VBA ya jêrîn pêk tê, ku hûn bi awayê asayî têxin Têxin > Module .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm Ger SortOrder = 0 Paşê Derkeve Bin Ji bo x = 1 Ji Application.Sheets.Count Ji Bo y = 1 Ji Application.Sheets.Count - 1 Ger SortOrder = 1 Paşê Ger UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) Dûv re Sheets(y).Desthilatin:=Sheets(y + 1) End If ElseIf SortOrder = 2 Hingê Ger UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Dûv re Sheets(y).Li pey bigerin:=Pelge(y + 1) Biqedin Ger Biqedin Heke Paşê Paşê Bin-Fonksiyon showUserForm() Wek Intejimar showUserForm = 0 Barkirin SortOrderForm SortOrderForm .Nîşan bide (1) showUserForm = SortOrderForm.Tag Vekêşana SortOrderForm Fonksiyona Dawî

Heke hûn hîna jî ji VBA-yê pir ne rehet in, hûn dikarin bi hêsanî Pirtûka Xebatê ya me dakêşin tabên alfabeyî, wê di Excel-ê de li kêleka pelê xweya ku hûn dixwazin vekin. ji bo rêzkirina tabloyan, û makroya AlphabetizeTabs ji pirtûka xwe ya xebatê bimeşîne:

Rêza tercihkirinê ya bijartî hilbijêre, bêje, A heta Z , û encaman bişopînin:

Tip. Bi VBA re, hûn dikarin kopiyên pelên xebatê yên Excel-ê jî biafirînin. Kod li vir heye: Çawapelê ducarî li Excel bi VBA-yê re.

Çawa bi Ultimate Suite tabloyên Excel-ê bi alfabetîk rêz dikin

Bikarhênerên Suite Ultimate-ya me ya ji bo Excel-ê ne hewce ne ku bi VBA-yê re li dora xwe tevbigerin - pirjimarek wan heye -Rêveberê Pirtûka Xebatê ya fonksîyonel di destê wan de ye:

Bi vê amûrê re ku li ribbona weya Excel-ê hatî zêdekirin, alfabekirina tabloyan bi yek bişkojkê, tam wekî ku divê be, pêk tê!

Heke hûn meraq dikin ku hûn vê û zêdetirî 70 amûrên profesyonel ên ji bo Excel bikolin, guhertoyek ceribandinê ya Ultimate Suite ji bo daxistinê li vir heye.

Ez spas dikim hûn ji bo xwendinê û hêvî dikin ku hûn hefteya pêş me we li ser bloga xwe bibînin!