Excel 2020: Készítsen saját QAT rutinokat VBA makrók használatával - Excel tippek

Számos rövid makrót adhat hozzá a Személyes makró munkafüzetéhez, majd hozzáadhatja a QAT-hoz. Ebben a tippben megtudhatja, hogyan hozhatja létre a Személyes makró munkafüzetet, írjon be néhány makrót, majd rendelje hozzá őket a QAT ikonjaihoz.

Hozzon létre egy személyes makró munkafüzetet

Bármely munkafüzetből induljon. Lépjen a Nézet, Makrók, Makró rögzítése elemre. A Makró rögzítése párbeszédpanelen írja be az egyszavas nevet, például a HelloWorld. Válassza a Személyes makró munkafüzet lehetőséget. Kattintson az OK gombra.

Írja be az aktív cellába a Hello szót, és nyomja meg az Enter billentyűt. Ezután válassza a Nézet, Makrók, Felvétel leállítása lehetőséget. Ezekkel a lépésekkel létrehoz egy Personal.xlsb fájlt a számítógépén, ahol új makrókat tárolhat.

Nyissa meg a VBA Szerkesztőt, és keresse meg a 1. modult a Personal.xlsb fájlban

Az Excel alkalmazásban nyomja le az Alt + F11 billentyűkombinációt. (Ha nincs Alt + F11, hozzáadhatja a Visual Basic parancsot a QAT-hoz, és kattintson rá.

Először a VBA szerkesztőjében ez egy hatalmas szürke színű lehet. A VBA menüből válassza a Nézet, a Project Explorer elemet.

Keressen egy VBAProject nevű bejegyzést (SZEMÉLYES.XLSB). Kattintson a + ikonra a kibontásához.

Keresse meg és bővítse a modulokat. Kattintson a jobb gombbal a Modul1 elemre, és válassza a Kód megtekintése lehetőséget.

Látni fogja a HelloWorld kódját. A Végső al után írja be ezeknek az eljárásoknak a bármelyikét.

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 

A QAT testreszabásakor válassza a Makrók lehetőséget a bal felső legördülő menüből.

Amikor kiválaszt egy makrót, és az Hozzáadás >> gombra kattint, az ikon alapértelmezés szerint egy folyamatábra lesz. Kattintson a jobb alsó sarokban található Módosítás gombra. Válasszon egy új ikont. Írjon be egy jó tippet.

Itt van egy magyarázat az öt makró használatára:

  • Nagyon elrejt : A munkalapok lehetnek láthatóak, rejtettek vagy nagyon rejtettek. Kevesen tudnak a nagyon rejtett lapokról, mert a VBA használatával kell létrehozni őket. A nagyon rejtett munkalap nem jelenik meg a Kezdőlap, a Formázás, az Elrejtés és elrejtés, Munkalapok között. (Köszönet -Sagar Malik-nak)
  • Az összes lap megjelenítése : Könnyű kiválasztani 12 lapot, és egyetlen parancsba elrejteni őket. De akkor a lapok elrejtése egyszerre felvetés. Ez a makró elrejti az összes lapot (beleértve a nagyon rejtett lapokat is).
  • Felső kijelölés : A kijelölésben szereplő összes szöveget nagybetűvé alakítja.
  • Kis kijelölés : A kijelölésben szereplő összes szöveget kisbetűvé alakítja.
  • Helyes kiválasztás : A kijelölésben szereplő összes szöveget nagybetűvé alakítja.

Köszönet MF Wongnak, hogy néhány ilyen makrót javasolt.

érdekes cikkek...