Tālāk ir norādīts, kā tabulām piešķirt alfabētisku secību
Datu kārtošana alfabētiskā secībā savos sarakstos nav problēma. Bet kā rīkoties, ja vēlaties darba lapas salikt alfabētiskā secībā pēc to nosaukumiem?
Nākamajā attēlā parādīts lapu reģistrs ar darblapu sēriju. Tie ir jāsakārto alfabētiskā secībā, lai tos būtu vieglāk atrast.
3
Izmantojot dažas lapas, jūs varat uzticami veikt darbu manuāli. Ar daudzām lapām tas ātri kļūst grūti, laikietilpīgi un mulsinoši. Tālāk norādītais makro palīdzēs:
ApakššķirotBlaetter ()
Dim Zaehler1 kā vesels skaitlis, Zaehler2 kā vesels skaitlis
Dim nosaukums kā virkne
Nosaukums = ActiveSheet.Name
Zaehler1 = 1 uz darblapām. Skait
Zaehler2 = Zaehler1 uz darblapām. Skait
Ja UCase (darblapas (skaitītājs2). Nosaukums) <UCase (darblapas (skaitītājs1). Nosaukums) pēc tam
Darblapas (Zaehler2). Pārvietot pirms: = Darblapas (Zaehler1)
Beigas Ja
Nākamais skaitītājs2, skaitītājs1
Darblapas (nosaukums). Aktivizēt
Beigt apakš
Makro kārto darblapas aktīvajā darbgrāmatā alfabētiskā augošā secībā. Šajā attēlā parādīts, kā izskatās darbgrāmatas paraugs pēc makro palaišanas:
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
