Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Explodujte pracovné hárky programu Excel do samostatných zošitov?

Pracovné hárky Excel môžete explodovať do samostatných zošitov pomocou VBA (Visual Basic for Applications) v programe Excel. Tu je podrobný sprievodca:

1. Povoľte kartu vývojára:

* Otvorte zošit programu Excel.

* Prejdite na možnosti súboru > Prispôsobte stuhu .

* Začiarknite políčko pre vývojára .

* Kliknite na ok .

2. Vložte modul VBA:

* Kliknite na vývojár> Visual Basic .

* V editore Visual Basic (VBE) prejdite na insert> modul .

3. Prilepiť a upraviť kód VBA:

`` `VBA

Sub Splitworksheets ()

Dim WB ako zošit, WS ako pracovný hárok

Dim NewWB ako zošit

Dim súborové meno ako reťazec

SET WB =ActiveWorkbook 'Nastavte aktívny zošit

'Služba cez každý pracovný hárok

Pre každé WS v wb.worksheets

„Vytvorte nový zošit

Set newWB =workbooks.add

„Skopírujte aktuálny pracovný hárok do nového zošitu

ws.copy pred:=newwb.sheets (1)

„Premenujte nový zošit na základe názvu pracovného hárka

filename =ws.name &".xlsx"

NEWWB.SAVEAS NAME

„Zatvorte nový zošit

newwb.close

Ďalší WS

Koncový

`` `

Vysvetlenie:

* `Dim WB ako zošit, ws ako pracovný hárok, newwb ako zošit, názov súboru ako String`: Vyhlasuje premenné na ukladanie zošita a pracovných objektov, ako aj názov súboru nového zošita.

* `Set wb =ActiveWorkbook`: Nastavuje premennú `WB` na aktuálne aktívny zošit.

* `Pre každé WS in wb.worksheets`: Slučky cez každý pracovný hárok v aktívnom zošite.

* `Set newWB =workbooks.add`: Vytvorí nový prázdny zošit.

* `Ws.Copy Pred:=newwb.Sheets (1)`: Skopíruje aktuálny pracovný hárok (`WS`) do novovytvoreného zošita (` newWB`) a vložte ho pred prvý list.

* `filename =ws.name &" .xlsx "`: Nastavuje názov súboru pre nový zošit pomocou názvu pracovného hárka a rozšírenia `.xlsx`.

* `newwb.Saveas filename`: Uloží nový zošit pomocou zadaného názvu súboru.

* `newwb.close`: Uzatvára novovytvorený zošit.

4. Spustite makro:

* Stlačte alt + f11 Vráťte sa do hárku Excel.

* Prejdite na vývojár> makry .

* Vyberte splitworksheets makro a kliknite na spustiť .

Makro vytvorí pre každý pracovný hárok v pôvodnom zošite samostatné zošity Excel a uloží ich do toho istého priečinka ako pôvodný zošit.

Ďalšie poznámky:

* Prispôsobte si názov súboru: Do uložených názvov súborov môžete upraviť premennú `filename` tak, aby obsahovala ďalšie informácie, napríklad dátum alebo čas.

* uložte do konkrétneho priečinka: Na uloženie nových zošitov môžete zadať iný priečinok zmenou premennej „FileName`.

* Spustite makro na inom zošite: Pred spustením makra nezabudnite vybrať zošit, ktorý chcete rozdeliť do samostatných súborov.

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené