Istnieje kilka krótkich makr, które można dodać do osobistego skoroszytu makr, a następnie dodać do QAT. W tej wskazówce zobaczysz, jak utworzyć skoroszyt makr osobistych, wpisać kilka makr, a następnie przypisać je do ikon na pasku narzędzi QAT.
Utwórz osobisty skoroszyt makr
Zacznij od dowolnego skoroszytu. Idź do Widok, Makra, Zarejestruj makro. W oknie dialogowym Zarejestruj makro wpisz jednowyrazową nazwę, na przykład HelloWorld. Wybierz osobisty skoroszyt makr. Kliknij OK.
Wpisz Hello w aktywnej komórce i naciśnij Enter. Następnie wybierz Widok, Makra, Zatrzymaj nagrywanie. Te kroki spowodują utworzenie pliku Personal.xlsb na komputerze, w którym będzie można przechowywać nowe makra.
Otwórz Edytor VBA i znajdź Module1 w Personal.xlsb
W programie Excel naciśnij klawisze Alt + F11. (Jeśli nie masz Alt + F11, możesz dodać polecenie Visual Basic do QAT i kliknąć to.
Twój pierwszy raz w edytorze VBA może to być ogromna przestrzeń szarości. Z menu VBA wybierz Widok, Eksplorator projektu.
Poszukaj wpisu o nazwie VBAProject (PERSONAL.XLSB). Kliknij ikonę +, aby ją rozwinąć.
Wyszukaj i rozwiń moduły. Kliknij prawym przyciskiem myszy Module1 i wybierz opcję Wyświetl kod.
Zobaczysz swój kod HelloWorld. Po End Sub wpisz dowolną z tych procedur.
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 Kiedy dostosujesz QAT, wybierz Makra z menu rozwijanego po lewej stronie u góry.
Po wybraniu makra i kliknięciu Dodaj >> ikona domyślnie zmieni się na schemat blokowy. Kliknij Zmień w prawym dolnym rogu. Wybierz nową ikonę. Wpisz dobrą podpowiedź.
Oto wyjaśnienie, jak używać tych pięciu makr:
- Bardzo ukryj : Arkusze robocze mogą być widoczne, ukryte lub bardzo ukryte. Niewiele osób wie o bardzo ukrytych arkuszach, ponieważ do ich tworzenia trzeba używać języka VBA. Arkusz, który jest bardzo ukryty, nie pojawi się w Home, Format, Hide and Unhide, Worksheets. (Dzięki -Sagar Malik)
- Pokaż wszystkie arkusze : łatwo jest wybrać 12 arkuszy i ukryć je jednym poleceniem. Ale wtedy odkrycie prześcieradeł jest jednorazową propozycją. To makro odkryje wszystkie arkusze (w tym bardzo ukryte arkusze).
- Górne zaznaczenie : Konwertuje cały zaznaczony tekst na wielkie litery.
- Dolne zaznaczenie : Konwertuje cały zaznaczony tekst na małe litery.
- Właściwy wybór : Konwertuje cały zaznaczony tekst na odpowiednią wielkość liter.
Podziękowania dla MF Wong za sugestię niektórych z tych makr.
