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: 68078 Skopiuj do schowka Automatyczna granica minimalna osi
Autor Wiadomość
majer999 
Starszy Forumowicz


Wersja: Win Office 2010
Posty: 37
Wysłany: 08-05-2020, 15:22   Automatyczna granica minimalna osi

Cześć,
czy mógłby ktoś podpowiedzieć w jaki sposób zrobić automatyczną granicę osi na wykresie np. gdy mam dane 2;3;4 to aby oś nie zaczynała się od 0.

Nie mogę sobie z tym poradzić.

Przykład_2.xlsx
Pobierz Plik ściągnięto 9 raz(y) 18.61 KB

ID posta: 387080 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 658 razy
Posty: 3466

Wysłany: 08-05-2020, 16:13   

Wyjaśnij dokładniej: jak będzie 200, 201, 1000, 100000000 - to od ilu?
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 387083 Skopiuj do schowka
 
 
majer999 
Starszy Forumowicz


Wersja: Win Office 2010
Posty: 37
Wysłany: 08-05-2020, 16:46   

Kurczę, nie wiem - aby automatycznie wykrył minimum i skonstruował oś aby wszystkie punkty były widoczne.
Myślę że jeśli minimum to 200 to np od 180.
ID posta: 387084 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 1663 razy
Posty: 5432
Wysłany: 08-05-2020, 18:19   

Możesz sobie zdefiniować funkcję UDF za pomocą której możesz ustawiać potrzebne wartości graniczne na osiach. Funkcję umieszczasz w module uniwersalnym. Treść funkcji jest taka:
Kod:
Function ChangeChartAxisScale(CName, ax, Optional lower, Optional upper) As String
  Dim chax As Long
  Select Case LCase(ax)
    Case "x": chax = xlCategory '1
    Case "y": chax = xlValue  '2
    Case Else: chax = xlSeriesAxis '3
  End Select
  With ActiveSheet.Shapes(CName).Chart.Axes(chax)
    If IsMissing(lower) Then .MinimumScaleIsAuto = True Else .MinimumScale = lower
    If IsMissing(upper) Then .MaximumScaleIsAuto = True Else .MaximumScale = upper
  End With
  ChangeChartAxisScale = "OK"
End Function
Opis argumentów i przykłady użycia w przykładowym pliku (żółte pola).

Przykład_2_granice_osi.xlsm
Pobierz Plik ściągnięto 8 raz(y) 23.45 KB

ID posta: 387087 Skopiuj do schowka
 
 
majer999 
Starszy Forumowicz


Wersja: Win Office 2010
Posty: 37
Wysłany: 08-05-2020, 21:00   

Myślałem że da się to "wyklikac" normalnie w opcjach. Bo nieraz Excel robi dynamiczne osie - nie wiem od czego to zależy i jak działa standard automatycznych granic osi.
ID posta: 387091 Skopiuj do schowka
 
 
bodek 


Wersja: Win Office 2019
Pomógł: 969 razy
Posty: 2798
Wysłany: 08-05-2020, 21:49   

Jest tylko jedna opcja -> ustawiasz na sztywno konkretną wartość przecięcia, np. zero. Wtedy wyłącza się automat. Odwrotnie już nie.
Jak działa automat? A kto to wie :-P , działa jak popadnie, należy na to bardzo uważać, ja jestem zwolennikiem ustawiania na zero.
_________________
Szkolenia z Excela, Power Query, Power Pivot, wizualizacje danych w Excelu, szkolenia online
ID posta: 387094 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 658 razy
Posty: 3466

Wysłany: 09-05-2020, 11:15   

:oops
Cytat:
Jak działa automat? A kto to wie :-P , działa jak popadnie...

No nie - są jednak jakieś reguły (zasady / algorytmy ..) - tylko ich konstrukcja pozostaje słodką tajemnicą M$...

Historia Excel w baaaaaaaaaaaaaaardzo dużym skrócie:

Rok < 1983:
Cytat:
W prototypie było jedynie 5 kolumn i 20 wierszy, czyli wielokrotnie mniej niż mają nam do zaoferowania współczesne tego typu programy. Autorem tego prototypu był Dan Bricklin. Pomysł miał bardzo dobry, jednak później zabrakło mu już wyobraźni do kontynuacji swojego dzieła, dlatego postanowił poszukać bardziej doświadczonych informatyków, którzy pomogliby mu dalej szlifować swój wynalazek.

20 x 5 - heh...

Współautor projektu: Bob Frankstonem
+ ekipa (teraz ważniejsza - twórcy mają teraz ~70...).

Ad meritum: ci panowie chyba nie wiedzieli jakiego zamieszania narobią... :mrgreen: .
.
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 387108 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