Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Artik
18-03-2021, 01:29
Makro zamiast tabeli przestawnej
Autor Wiadomość
Bael
Świeżak


Wersja: Win Office 2019
Posty: 1
Wysłany: 16-03-2021, 22:18   Makro zamiast tabeli przestawnej

Cześć,

Próbowałam napisać dobre makro, którym będę mogła zastąpić tabelę przestawną, ale zaczęłam się gubić, a kod wyglądał co najmniej źle. Czy mogę prosić o pomoc? Zdjęcie problemu z załączniku.

Czy jest możliwość wykonania makra korzystając ze słownika?

Dodam również, że w arkuszu z danymi mam 4 kolumny: "Nr sklepu", "Sklep" - nazwa, "Nazwa towaru" oraz "Sprzedaż netto".

IMG_7128.jpg
Plik ściągnięto 30 raz(y) 396.75 KB

ID posta: 402221 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2530 razy
Posty: 8431
Wysłany: 18-03-2021, 09:31   

Przeczytaj i zastosuj: http://www.excelforum.pl/...ika-vt59262.htm
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 402305 Skopiuj do schowka
 
 
Kaper 



Zaproszone osoby: 2
Wersja: Win Office 365
Pomógł: 4228 razy
Posty: 7959
Wysłany: 24-03-2021, 08:26   Re: Makro zamiast tabeli przestawnej

Do bardzo ważnej wskazówki moderatora dorzucę komentarz do pytania
Bael napisał/a:
Czy jest możliwość wykonania makra korzystając ze słownika?

Tak. Możesz wykorzystać obiekt słownik w makrze, I ma szansę skutkować to dość eleganckim i czytelnym kodem (czy wyglądającym lepiej - nie wiem, bo swoim się nie chwalisz). Zwróć uwagę, że domyślnie biblioteka Microsoft Scripting Runtime nie jest uruchomiona i albo jeśli będziesz kod realizować na swoim komputerze należy dodać do niej referencję, albo zastosować późne wiązanie, czyli zadeklarować i utworzyć słownik mniej więcej tak:
Kod:
Dim dict As Object
Set dict = CreateObject ("Scripting.Dictionary")   
_________________
Kaper Jej Królewskiej Mości :boss

Jeśli dane będą torturowane dość długo, przyznają się do wszystkiego
ID posta: 402647 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe