Wszystkie tabele przestawne na jednym arkuszu naśladują się nawzajem pod względem rozwijania i zwijania wierszy

W porządku, jestem nowy w VBA, ale wiem, że to musi być możliwe. Poświęciłem trochę czasu na kodowanie aplikacji na Androida, ale nie powiedziałbym, że jestem prawie ekspertem, prawdopodobnie nawet pośrednim, żeby być szczerym. Niestety, excel nie używa Java. Oto mój problem:

Wszystko, czego potrzebuję, to zrobić 6 innych tabel przestawnych na tym samym arkuszu, naśladować to, co nazywam podstawową tabelą przestawną. Jedyną cechą, która musi naśladować (jak na razie przypuszczam) jest to, że główny element rozszerza się / załamuje, inne powinny pójść w jego ślady.

Zgaduję, że kod będzie podobny do onclicklistener w Javie, a gdy kod „słyszy” kliknięcie w celu zwinięcia lub rozwinięcia w podstawowej tabeli przestawnej, stosuje tylko to samo zwinięcie lub rozszerzenie do pozostałych sześciu. Pozostałe 6 punktów przestawnych zawsze będzie miało takie same etykiety wierszy, więc błąd w przenoszeniu „lokalizacji” kliknięcia z pierwotnego na inne nigdy nie powinien być problemem.

Próbowałem nagrać rozszerzenie jednej z etykiet wierszy w mojej tabeli przestawnej i odzyskać ten kod.

ActiveSheet.PivotTables("PivotTable1").PivotFields("Year").PivotItems("2005"). _
    ShowDetail = True

Wiem jednak, że jest to kodowanie do wykonania tego rozszerzenia (a ShowDetail = False spowodowałoby jego zwinięcie). Myślę, że to, czego potrzebuję, jest takie, jak powiedziałem, słuchacz „słyszący” kliknięcie dowolnego rozszerzenia / zwinięcia podstawowej tabeli przestawnej, sposób na przechowywanie / przenoszenie informacji o klikniętej etykiecie wiersza („lokalizacja” kliknięcia, jeśli chcesz), a następnie ogólna wersja powyższego kodu do wykonania na pozostałych 6 przy użyciu, zgaduję rodzaj pętli for.

Czy jestem na dobrej drodze, żeby ci pomóc? Dziękuję, jak zawsze.

questionAnswers(1)

yourAnswerToTheQuestion