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
ID tematu: 66532 Skopiuj do schowka Etykiety w wykresie przestawnym
Autor Wiadomość
mancia14 
Exceloholic


Pomógł: 2 razy
Posty: 200
Wysłany: 16-11-2019, 11:28   Etykiety w wykresie przestawnym

Cześć.

W arkuszu "układ" utworzyłem wykres przestawny na podstawie tabeli z arkusza "moduły".

Chciałbym aby moje etykiety danych odnosiły się do kolumny "moduł" znajdującej się w tabeli arkusza "moduły"

Czy jest to możliwe?

W załączniku skoroszyt z wstawionym polem tekstowym ma wykresie w arkuszu "układ" dla jednego słupka wykresu, pozkazującym jak by to miało wyglądać.

Pozdrawiam!

przykład.xlsm
Pobierz Plik ściągnięto 24 raz(y) 56.49 KB

ID posta: 377117 Skopiuj do schowka
 
 
mancia14 
Exceloholic


Pomógł: 2 razy
Posty: 200
Wysłany: 17-11-2019, 13:25   

Hej, walczę z moim problemem już drugi dzień, doszedłem do wniosku, że na pewno da się to zrobić makrem.
Potrzebuję w poniższej części kodu instrukcji, która zamieni bieżące etykiety na odpowiadające im wartości z kolumny "Moduł" z tabeli "Tabela4"

Część kodu:
Kod:
For Each seria In wszystkieSerie
    If seria.Name Like "*niewykonane*" Then
        With seria
            .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            .Format.Line.ForeColor.RGB = RGB(127, 127, 127)
            .ApplyDataLabels
        End With
    ElseIf seria.Name Like "*wykonane*" Then
        With seria
            .Format.Fill.ForeColor.RGB = RGB(146, 208, 80)
            .Format.Line.ForeColor.RGB = RGB(127, 127, 127)
            .ApplyDataLabels
        End With
    ElseIf seria.Name Like "*nie występuje*" Then
        With seria
            .Format.Fill.ForeColor.RGB = RGB(255, 255, 255)
            .Format.Line.ForeColor.RGB = RGB(127, 127, 127)
            .ApplyDataLabels
        End With
    End If
    Next


Wykes, na którym mają pojawić się etykiety to ten z arkusza "układ".
Makro wywoływane jest poprzez kliknięcie, w któryś z elementów listy (ListBox1) po prawej stronie też w arkuszu "układ".

Ogólnie etykiety docelowo mają być poniżej serii danych (tych kolorowych klocków) i być trochę większe, ale z tym jeśli nie macie czasu pewnie poradzę sam. Najgorzej mi idzie z podmianą tekstu etykiety...

Będę próbował sam wykonać to równolegle, ale czarno to widzę, trzymajcie kciuki :)

podmiana etykiet.xlsm
Pobierz Plik ściągnięto 23 raz(y) 153.22 KB

ID posta: 377151 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