Ta wskazówka umożliwia użytkownikom raportu wybór między kilkoma formatami tabeli przestawnej za pomocą przycisków opcji, a następnie automatyczne aktualizowanie tabeli przestawnej! (Przydaje się, gdy użytkownicy mają preferencje dotyczące formatu raportu bez konieczności przechodzenia do paska narzędzi tabeli przestawnej i wybierania jednego za każdym razem)
Krok pierwszy:
Umieść przycisk opcji (lub kilka) w dowolnym miejscu w arkuszu raportu tabeli przestawnej i nazwij go, na przykład „Format raportu 1”, „Format raportu 2” itp.
Aby to zrobić, przejdź do „Widok > Paski narzędzi > Formularze” , wybierz „Przycisk opcji” z przybornika i przeciągnij go do raportu.
Krok drugi:
Utwórz makro, przechodząc do „Narzędzia > Makro > Makra”, wpisz nazwę, taką jak „Format2”, a następnie „Utwórz”
Wpisz lub wytnij i wklej następujący kod VB. (Uwaga: Upewnij się, że Twoja tabela przestawna ma domyślną nazwę „Tabela przestawna1”, klikając prawym przyciskiem myszy w dowolnym miejscu tabeli przestawnej, wybierając „Opcje tabeli” i spójrz na pole „Nazwa”. W przeciwnym razie konieczne będzie zastąpienie nazwę tabeli przestawnej w poniższym kodzie z nazwą tabeli przestawnej):
Podformat2()
' Format 2 Makro
ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("Tabela przestawna1").Format xlReport6
Komórki.Wybierz
Z zaznaczeniem
.HorizontalAlignment = xlOgólne
.VerticalAlignment = xlBottom
.WrapText = Fałsz
Orientacja = 0
.AddIndent = Fałsz
.IndentLevel = 0
.ShrinkToFit = Fałsz
.ReadingOrder = xlContext
Kończyć z
Z zaznaczeniem
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Fałsz
Orientacja = 0
.AddIndent = Fałsz
.IndentLevel = 0
.ShrinkToFit = Fałsz
.ReadingOrder = xlContext
Kończyć z
Komórki.Wybierz
Wybór.Kolumny.Autodopasowanie
Zakres ("A1"). Wybierz
Napis końcowy
~~~~~~~~~~~~~~~~~~~~~~~~~
Możesz tworzyć makra różnych formatów przy użyciu tego samego kodu, a jedyną linią, którą musisz zmienić, jest "Format xlReport6". Do wyboru jest około 15 formatów raportów. Po prostu zmień „xlReport(number)” z 1 na 15.
Powyższy kod również automatycznie dopasowuje kolumny i wyśrodkowuje tekst po sformatowaniu raportu.
Krok trzeci:
Przypisz makro do przycisku opcji, klikając prawym przyciskiem myszy przycisk opcji, wybierz „Przypisz makro” i po prostu wybierz makro, które właśnie utworzyłeś. Zrób to dla każdego z przycisków opcji
Otóż to! Teraz, gdy użytkownik kliknie przycisk opcji, tabela przestawna zostanie automatycznie zaktualizowana do formatu na podstawie opcji formatu użytej w makrze. Przetestuj kilka stylów raportów, aby zobaczyć, które z nich odpowiadają Twoim potrzebom, a następnie przypisz je do makr i przycisków opcji.
Twoi użytkownicy będą wdzięczni i pod wrażeniem!
Powodzenia!
~CJ