Jak používat příkazy Znovu a Opakovat ve Wordu 2016
Objevte, jak efektivně využívat příkazy Znovu a Opakovat ve Wordu 2016 pro opravy dokumentů a zlepšení pracovního toku.
Příklady Excel VBA: Použití doplňku Excelu k zabalení vašich procedur VBA
Tento příklad doplňku aplikace Excel popisuje základní kroky spojené s vytvořením užitečného doplňku, který můžete použít k zabalení procedur VBA. Tento příklad Excel VBA je založen na nástroji pro převod textu Change Case.
Nastavení excelového sešitu
Sešit aplikace Excel se skládá z jednoho prázdného listu, modulu VBA a UserForm.
Původní verze nástroje obsahuje možnosti pro velká, malá a správná písmena. Verze doplňku obsahuje dvě možnosti pro UserForm, takže má stejné možnosti jako vestavěný nástroj v aplikaci Microsoft Word:
- Velká písmena ve větě: První písmeno bude velké a všechna ostatní písmena malá.
- Přepnout velká a malá písmena : Všechna velká písmena se převedou na malá písmena a naopak.
Tento obrázek ukazuje UserForm1. Pět ovládacích prvků OptionButton je uvnitř ovládacího prvku Frame. Kromě toho má UserForm tlačítko Storno (s názvem CancelButton) a tlačítko OK (s názvem OKButton).
UserForm pro doplněk Change Case.
Kód spuštěný po kliknutí na tlačítko Storno je velmi jednoduchý. Tento postup uvolní UserForm bez jakékoli akce:
Private Sub CancelButton_Click() Uvolněte UserForm1 End Sub
Následuje kód, který se spustí po kliknutí na tlačítko OK. Tento kód dělá veškerou práci:
Private Sub OKButton_Click()
Ztlumit TextCells jako rozsah
Ztlumit buňku jako rozsah
Ztlumit text jako řetězec
Dim i As Long
' Vytvořte objekt pouze s textovými konstantami
Při chybě pokračovat dále
Set TextCells = Selection.SpecialCells(xlConstants, xlTextValues)
' Vypněte aktualizaci obrazovky
Application.ScreenUpdating = False
Projděte buňky
Pro každou buňku v TextCells
Text = buňka.Hodnota
Vyberte možnost Case True
Case OptionLower 'malá písmena
cell.Value = LCase(cell.Value)
Case OptionUpper 'VELKÁ PÍSMENA
cell.Value = UCase(cell.Value)
Case OptionProper 'Proper Case
cell.Value = WorksheetFunction.Proper(cell.Value)
Case OptionSentence 'Věta velká
Text = UCase(Left(cell.Value, 1))
Text = Text & LCase(Mid(cell.Value, 2, Len(cell.Value)))
cell.Value = Text
Case OptionToggle 'TOGGLE CASE
Pro i = 1 To Len (Text)
If Mid(Text, i, 1) Like "[AZ]" Then
Mid(Text, i, 1) = LCase(Mid(Text, i, 1))
Jiný
Mid(Text, i, 1) = UCase(Mid(Text, i, 1))
End If
Příště já
cell.Value = Text
Konec Vyberte
další
' Uvolněte dialogové okno
Uvolněte UserForm1
End Sub
Testování sešitu Excel
Před převodem tohoto sešitu otestujte doplněk Excel. Chcete-li simulovat, co se stane, když je sešit doplňkem, měli byste sešit otestovat, když je aktivní jiný sešit aplikace Excel. Protože doplněk aplikace Excel není nikdy aktivním listem nebo sešitem, jeho testování, když je otevřený jiný sešit, vám může pomoci identifikovat některé potenciální chyby.
Otevřete nový sešit a zadejte informace do některých buněk.
Pro účely testování zadejte různé typy informací, včetně textu, hodnot a vzorců. Nebo stačí otevřít existující sešit a použít jej pro své testy. Pamatujte, že jakékoli změny v sešitu nelze vrátit zpět, takže možná budete chtít použít kopii.
Vyberte jednu nebo více buněk (nebo celé řádky a sloupce).
Spusťte makro ChangeCase výběrem nového příkazu Change Case z místní nabídky Buňka (nebo řádek nebo sloupec).
Pokud se příkaz Změnit případ nezobrazí v místní nabídce, nejpravděpodobnějším důvodem je, že jste nepovolili makra při otevření sešitu change case.xlsm. Zavřete sešit a poté jej znovu otevřete – a ujistěte se, že jste povolili makra.
Přidání popisných informací do doplňku aplikace Excel
Ačkoli to není povinné, považuje se za nejlepší postup zadat popis doplňku aplikace Excel . Chcete-li přidat popis, postupujte takto:
Aktivujte sešit change case.xlsm.
Vyberte Soubor → Informace a klepněte na Zobrazit všechny vlastnosti vpravo dole.
Excel rozbalí seznam Vlastnosti.
Do pole Název zadejte název doplňku.
Tento text se zobrazí v seznamu doplňků v dialogovém okně Doplňky. Pro tento příklad zadejte Change Case.
Do pole Komentáře zadejte popis.
Tyto informace se zobrazí v dolní části dialogového okna Doplňky, když je vybrán doplněk. Pro tento příklad zadejte
Změní velikost písmen textu ve vybraných buňkách.
Tento nástroj otevřete pomocí místní nabídky.
Tento obrázek ukazuje sekci Vlastnosti s vyplněnými poli Název a Komentáře.
Pomocí části Vlastnosti zadejte popisné informace o vašem doplňku.
Ochrana kódu VBA
Pokud chcete přidat heslo, abyste ostatním zabránili v zobrazení kódu VBA , postupujte takto:
Aktivujte VBE a v okně projektu vyberte sešit change case.xlsm.
Vyberte Nástroje → Vlastnosti VBAProject a v zobrazeném dialogovém okně klepněte na kartu Ochrana.
Zaškrtněte políčko Zamknout projekt pro prohlížení a zadejte heslo (dvakrát).
Klepněte na tlačítko OK.
Uložte sešit výběrem Soubor → Uložit ve VBE nebo návratem do okna Excelu a výběrem Soubor → Uložit.
Vytvoření doplňku aplikace Excel
V tuto chvíli jste otestovali soubor change case.xlsm a funguje správně. Dalším krokem je vytvoření doplňku. Následuj tyto kroky:
V případě potřeby znovu aktivujte Excel.
Aktivujte sešit change case.xlsm a zvolte Soubor → Uložit jako → Procházet.
Excel zobrazí dialogové okno Uložit jako.
Z rozevírací nabídky Uložit jako typ vyberte možnost Doplněk (*.xlam).
Zadejte umístění a klikněte na Uložit.
Vytvoří se nový soubor doplňku (s příponou .xlam) a původní verze XLSM zůstane otevřená.
Otevření doplňku aplikace Excel
Abyste předešli nejasnostem, zavřete sešit XLSM před otevřením doplňku, který jste z tohoto sešitu vytvořili.
Otevřete doplněk podle následujících kroků:
Vyberte Vývojář → Doplňky → Doplňky (nebo stiskněte Alt+TI).
Excel zobrazí dialogové okno Doplňky.
Klepněte na tlačítko Procházet.
Vyhledejte a vyberte doplněk, který jste právě vytvořili.
Klepnutím na tlačítko OK zavřete dialogové okno Procházet.
Po nalezení nového doplňku se v dialogovém okně Doplňky zobrazí seznam doplňku. Jak je znázorněno níže, dialogové okno Doplňky také zobrazuje popisné informace, které jste zadali na panelu Vlastnosti dokumentu.
V dialogovém okně Doplňky je vybrán nový doplněk.
Ujistěte se, že je váš nový doplněk vybrán v dialogovém okně Doplňky.
Klepnutím na tlačítko OK zavřete dialogové okno.
Excel otevře doplněk. Nyní jej můžete používat se všemi svými sešity. Dokud zůstane vybraný v dialogovém okně Doplňky, otevře se doplněk při každém spuštění aplikace Excel.
Distribuce doplňku aplikace Excel
Pokud máte velkorysou náladu, můžete tento doplněk distribuovat ostatním uživatelům aplikace Excel jednoduše tím, že jim dáte kopii souboru XLAM. (Nepotřebují verzi XLSM.) Když doplněk otevřou, objeví se v místní nabídce nový příkaz Změnit velikost písmen, když vyberou rozsah, jeden nebo více řádků nebo jeden nebo více sloupců. Pokud zamknete projekt VBA heslem, ostatní nebudou moci zobrazit váš kód makra, pokud nebudou znát heslo.
Úprava doplňku aplikace Excel
Doplněk lze upravovat stejně jako jakýkoli jiný sešit. Soubor XLAM můžete upravit přímo (nemusíte pracovat s původní verzí XLSM) podle následujících kroků:
Otevřete soubor XLAM, pokud ještě není otevřený.
Aktivujte VBE. Poklepejte na název projektu v okně Projekt.
Pokud jste kód ochránili, budete vyzváni k zadání hesla.
Zadejte své heslo a klepněte na OK.
Proveďte změny v kódu.
Soubor uložte výběrem Soubor → Uložit.
Pokud vytvoříte doplněk, který ukládá informace do listu, musíte pro zobrazení sešitu nastavit vlastnost IsAddIn sešitu na hodnotu False. To provedete v okně Vlastnosti, když je vybrán objekt ThisWorkbook. Po provedení změn v sešitu se ujistěte, že jste před uložením souboru nastavili vlastnost IsAddIn zpět na hodnotu True.
Vytvoření doplňku, nikoli doplňku.
Jak změnit zamčené a skryté formátování buněk
Naučte se, jak efektivně změnit stav buněk v Excelu 2010 z uzamčených na odemčené nebo z neskrytého na skrytý s naším podrobným průvodcem.
Jak přeložit text v cizím jazyce ve Wordu 2016
Zjistěte, jak efektivně využít překladové nástroje v Office 2016 pro překlad slov a frází. Překlad Gizmo vám pomůže překládat text s lehkostí.
Jak používat šablony ve Wordu 2013
Šablona ve Wordu šetří čas a usnadňuje vytváření dokumentů. Zjistěte, jak efektivně používat šablony ve Wordu 2013.
Jak vytvořit e-mailová upozornění pro skupinu SharePointu
Zjistěte, jak si vytvořit e-mailová upozornění ve SharePointu a zůstat informováni o změnách v dokumentech a položkách.
Obsah SharePoint Online a typy obsahu
Objevte skvělé funkce SharePoint Online, včetně tvorby a sdílení dokumentů a typů obsahu pro efektivnější správu dat.
Výpočet fiskálního čtvrtletí pro datum v Excelu
Zjistěte, jak vypočítat fiskální čtvrtletí v Excelu pro různá data s použitím funkce CHOOSE.
Jak vytvořit hypertextový odkaz na jiný snímek v aplikaci PowerPoint 2007
Zjistěte, jak vytvořit hypertextový odkaz v PowerPointu, který vám umožní pohodlně navigovat mezi snímky. Použijte náš návod na efektivní prezentace.
Zobrazit starší verzi dokumentu aplikace Word 2016
Uložili jste nedávno svůj dokument? Náš návod vám ukáže, jak zobrazit starší verze dokumentu v aplikaci Word 2016.
Jak přiřadit makra pásu karet a panelu nástrojů Rychlý přístup v Excelu 2013
Jak přiřadit makra vlastní kartě na pásu karet nebo tlačítku na panelu nástrojů Rychlý přístup. Návod pro Excel 2013.