Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - widok danych w serii

markustal · Exceloholic **Pomógł:** 1 raz Posty: 151

Dziękuję Macieju, jak zawsze można na Ciebie liczyć.
Zaczynam się trochę wgryzać w kod żeby chociaż trochę zrozumieć o co chodzi. Mam takie pytania. Przy nagrywaniu zastanawiałem się jak umieścić obiekt czyli tutaj wykres w konkretnej komórce bo przy nagrywaniu wstawiał w środek (chyba ma jakiś adres domyślny przy wstawianiu wykresów). Ty rozwiązałeś to linijką:

Kod:

ActiveSheet.Shapes.AddChart(xlColumnClustered, _
Left:=Range("A19").Left, Top:=Range("A19").Top).Select

Pytanie. Czy można określić miejsce wstawiania na początku? Kombinowałem jakoś tak, ale nie działa.

Kod:

Sheets("Arkusz2").Select
Range("a2").Select
activeRange.Shapes.AddChart(xlColumnClustered).Select

oraz

Kod:

Sheets("Arkusz2").Select
Range("a2").Select
Selection.Shapes.AddChart(xlColumnClustered).Select

też nie działa.
Następnie dlaczego

Kod:

.SeriesCollection(1).Delete

nie można zastąpić

Kod:

.SeriesCollection(1)=False

Następnie, linijka kodu

Kod:

' .ChartTitle.Characters.Font.Bold = True

jest w formie opisu. Tzn, że w layout 3 czcionka już jest pogrubiona i nie musimy wpisywać ją w kod?
I ostatnie pytanie. W kodzie

Kod:

With .Range("c2", .UsedRange.SpecialCells(xlCellTypeLastCell))

jest określona ostatnia komórka do formatowania. Czy istnieje kod do określenia pierwszej wypełnionej komórki? Coś w stylu

Kod:

With .Range(.UsedRange.SpecialCells(xlCellTypeFirstCell, .UsedRange.SpecialCells(xlCellTypeLastCell))

.
Wiem, że niektóre pytania są trywialne, ale będę wdzięczny za odpowiedzi.

markustal · Exceloholic **Pomógł:** 1 raz Posty: 151

Jeszcze jedno, chociaż nie wiem czy nie za dużo jak na jeden raz.
Chciałem wstawić jeszcze warunek że jeśli ktoś zaznaczy inną kolumnę niż C oraz mniej niż dwa wiersze to pokaże się msgbox
Wymyśliłem coś takiego, ale nie wiem co jest nie tak

Kod:

If Selection.Column <> Range("C:C") Or Range("C" & Rows.Count).End(xlUp).Row < 2 Then MsgBox "Zaznacz dane w kolumnie C"
End If

Pokazuje info że End if without block if, ale nie wiem co to znaczy
Pozdrawiam

Maciej Gonet · Wysłany: 17-11-2020, 07:20

Zacznę od ostatniego pytania, bo mam teraz ograniczony czas.
Tu jest kilka błędów.
Jeśli po Then jest polecenie w jednej linii logicznej z If, to jest to instrukcja jednowierszowa i End If jest wtedy niepotrzebne.
Jeśli po Then przechodzimy do nowej linii, wtedy całą instrukcję kończymy End If w osobnym wierszu.
Zamiast

Kod:

Selection.Column <> Range("C:C")

możesz użyć np.

Kod:

Selection.Column <> 3

albo jeśli obawiasz się, że wybrany zostanie zakres wielokolumnowy, to

Kod:

Selection.Column <> 3 Or Selection.Columns.Count > 1

Zamiast

Kod:

Range("C" & Rows.Count).End(xlUp).Row < 2

można ewentualnie dać

Kod:

Selection.Rows.Count < 2

chyba, że dodatkowo zależy ci, żeby zaznaczenie zaczynało się w pierwszym wierszu (o czym nie pisałeś). Poza tym Twój kod (ten fragment) nie odwołuje się do zaznaczenia tylko do danych, które w ogóle są w kolumnie C. Nie wiem więc, o co dokładnie Ci chodzi.

Teraz mam chwilę, żeby jeszcze odnieść się do wcześniejszych pytań.
Nie wiem czy dobrze zrozumiałem o co chodzi z tym określeniem miejsca wstawiania wykresu "na początku". "Na początku" czego? Nie można do tego użyć selekcji, bo to tak nie działa. Metoda AddChart ma parametry, których wartości określają położenie i rozmiary wykresu. Jak się tych parametrów nie poda, program przyjmie wartości domyślne. Ja założyłem, że wielkość wykresu będzie domyślna, a lewy górny róg określony na podstawie położenia komórek, które były użyte w Twoim kodzie. Inaczej się nie da. Oczywiście można sobie wcześniej wyliczyć te parametry jako zmienne, a później ich użyć.
Można też użyć obiektu zakresu i potem się do niego odwoływać, np. tak:

Kod:

Set pocz = Range("A2")
ActiveSheet.Shapes.AddChart(xlColumnClustered, pocz.Left, pocz.Top).Select

Ale to prawie to samo. Nie wiem o jaki efekt Ci chodziło.

SeriesCollection(1) jest obiektem, a nie właściwością, więc nie można mu przypisać wartości False, można do niego użyć odpowiedniej metody.

Ta instrukcja, którą zakomentowałem jest niepotrzebna, bo domyślnie tytuł jest pisany Boldem.

Kodu do znajdowania pierwszej wypełnionej komórki nie ma, trzeba to robić naokoło. Ten do znajdowania ostatniej też nie jest w pełni wiarygodny.

markustal · Exceloholic **Pomógł:** 1 raz Posty: 151

Dziękuję pięknie, większość zrozumiałem i przyjąłem.
Jednak nadal nurtuje mnie takie coś...
Wstawiając wykres w arkusz uaktywniam arkusz i wstawiam wykres tymże sposobem:

Kod:

ActiveSheet.Shapes.AddChart(xlColumnClustered).Select

Wtedy wykres jest wstawiany domyślnie z domyślnymi właściwościami.
A co jeśli chcę uaktywnić arkusz w nim uaktywnić komórkę i tam wstawić cały wykres (nie wiem czy wtedy wykres dostosowałby się do wielkości komórki czy komórka do wykresu, ale chodzi teoretycznie)
Czy w takim wypadku to nie powinno działać?:

Kod:

Sheets("Arkusz2").Select
Range("a2").Select
activeRange.Shapes.AddChart(xlColumnClustered).Select

jeśli nie to co jest nie tak?
Mam problem jeszcze z moim rozwiązaniem z msgbox. Jeśli wstawię twoje proponowane komendy jest ok. Ale napisałeś, że zamiast mojej Selection.Column <> Range("C:C") mogę Selection.Column <> 3. Ale gdy robię z moją komendą to jest błąd. Więc jednak range ("C:C") jest niewłaściwe tutaj?
I ostatnio prośba mam nadzieję. Jak przerwać makro (bo pokazuje msgbox, ale dalej tworzy wykres, ale tego wtedy już nie chcę) jeśli któryś z tych warunków jest spełniony?
Pozdrawiam

makrowykres2.xlsm

Pobierz Plik ściągnięto 5 raz(y) 26.02 KB

Maciej Gonet · Wysłany: 18-11-2020, 15:43

markustal · Exceloholic **Pomógł:** 1 raz Posty: 151

No i właśnie tego chciałem się dowiedzieć (czyli kluczem jest tutaj WITH).
Na postawie wstawiania wykresu do jednej komórki przerobiłem na wstawianie wykresu do wybranych. Ale działa tylko wtedy jeśli wybierzemy najpierw zakres w drugim arkuszy, wrócimy do pierwszego i uruchomimy makro (oczywiście po zaznaczeniu kolumny C)
Tak się zastanawiałem jeszcze. Gdybym chciał wstawić w wybrane komórki wykres ale w tym samym arkuszu to czy istnieje możliwość wybrania źródła ze schowka. Bo najpierw musiałbym skopiować dane w kolumnie C do schowka, zaznaczyć zakres do wstawiania w tym samym arkuszu i dopiero uruchomić makro.
Jak wygląda kod do pobierania informacji - tutaj zakresu danych ze schowka.
To już tak poza problemem, w celu rozszerzenia swojej wiedzy.
Za rozwiązanie problemu dziękuję Macieju jeszcze raz.
Aha. Czumu należy dać exit Sub a nie End sub?
Dołączam plik żeby było wiadomo o co chodzi.
Pozdrawiam

wykresy.xlsm

Pobierz Plik ściągnięto 9 raz(y) 20.46 KB

Maciej Gonet · Wysłany: 20-11-2020, 13:37

Zacznę od końca.