Existuje několik krátkých maker, která můžete přidat do svého osobního sešitu maker a poté přidat do QAT. V tomto tipu uvidíte, jak vytvořit osobní sešit maker, zadat některá makra a poté je přiřadit k ikonám na QAT.
Vytvořte osobní sešit maker
Začněte z libovolného sešitu. Přejít na Zobrazit, Makra, Záznam makra. V dialogovém okně Zaznamenat makro zadejte jednoslovný název, například HelloWorld. Vyberte osobní sešit maker. Klikněte na OK.
Zadejte Hello do aktivní buňky a stiskněte klávesu Enter. Poté vyberte Zobrazit, Makra, Zastavit nahrávání. Tyto kroky vytvoří ve vašem počítači soubor Personal.xlsb, kde můžete ukládat nová makra.
Otevřete editor VBA a najděte Module1 v Personal.xlsb
V aplikaci Excel stiskněte Alt + F11. (Pokud nemáte Alt + F11, můžete do QAT přidat příkaz jazyka a kliknout na něj.
Poprvé v editoru VBA to může být obrovská šedá škála. V nabídce VBA vyberte Zobrazit, Průzkumník projektu.
Vyhledejte položku s názvem VBAProject (PERSONAL.XLSB). Kliknutím na ikonu + ji rozbalte.
Vyhledejte a rozbalte Moduly. Klikněte pravým tlačítkem na Module1 a vyberte Zobrazit kód.
Uvidíte svůj kód HelloWorld. Po End Sub zadejte kterýkoli z těchto postupů.
Sub VeryHideActiveSheet() ActiveSheet.Visible = xlVeryHidden End Sub Sub ShowAllSheets() For Each sh In ActiveWorkbook.Worksheets sh.Visible = True Next sh End Sub Sub UpperSelection() For Each cell In Selection.SpecialCells(2, 2) ' 2, 2 means xlCellTypeConstants, Text cell.Value = UCase(cell.Value) Next End Sub Sub LowerSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = LCase(cell.Value) Next End Sub Sub ProperSelection() For Each cell In Selection.SpecialCells(2, 2) cell.Value = Application.WorksheetFunction.Proper(cell.Value) Next End Sub Když přizpůsobujete QAT, vyberte z rozevírací nabídky vlevo nahoře Makra.
Když vyberete makro a kliknete na Přidat >>, bude výchozí ikona vývojového diagramu. Vpravo dole klikněte na Upravit. Vyberte novou ikonu. Zadejte dobrý popis.
Zde je vysvětlení, jak používat těchto pět maker:
- Velmi skrýt : Pracovní listy mohou být viditelné, skryté nebo velmi skryté. Jen málo lidí ví o velmi skrytých listech, protože k jejich vytvoření musíte použít VBA. Pracovní list, který je velmi skrytý, se nezobrazí v pracovních listech Domů, Formátovat, Skrýt a Zobrazit. (Díky -Sagar Malik)
- Zobrazit všechny listy : Je snadné vybrat 12 listů a skrýt je v jediném příkazu. Ale potom je odkrytí listů individuální návrh. Toto makro odkryje všechny listy (včetně velmi skrytých listů).
- Horní výběr : Převede veškerý text ve výběru na velká písmena.
- Malý výběr : Převede veškerý text ve výběru na malá písmena.
- Správný výběr : Převede veškerý text ve výběru na velká a malá písmena.
Děkujeme společnosti MF Wong za navržení některých z těchto maker.
