GRY-Online.pl --> Archiwum Forum

eXCEL :)

26.05.2002
20:03
smile
[1]

Jeremy [ Konsul ]

eXCEL :)

Wie ktoś może jak w wykresach w excelu robi się strzałeczki na końcach osi????

26.05.2002
21:49
[2]

Rendar [ Senator ]

Moim skromnym zdanie : nie da się.

26.05.2002
21:53
smile
[3]

kathulu [ Generał ]

Wie ktoś jak mam jutro zaliczyć kolokwium z exela i użycia w nim Visual Basica (komendy Makr - utwórz wykres, skasuj wykres) - mając jedynie notatki z tablicy, które absolutnie nic mi nie mówią i nie można ich zastosować przy tworzenia każdego wykresu.

26.05.2002
21:57
[4]

MOD [ Generał ]

kathulu>>O co ci dokladnie chodzi?O tworzenie makr?Moge cos podpowiedziec nawet(pamietam troche z liceum).Moj numer gg 1904813.

26.05.2002
22:01
[5]

kathulu [ Generał ]

MOD ---> dzięki stary, ale tworzenie makr - to jeszcze prościzna, chodzi potem o ich odpowiednie modyfikowanie za pomocą Visual Basic, przy czym u nas żaden z wykładowców nie wytłumaczył co do czego służy, było tylko: Wpiszcie: Dim N As Integer itp. Więc nawet przy najszczerszych chęciach nic to nie da. Jak zwykle będzie samopomoc koleżeńska.

26.05.2002
22:05
[6]

MOD [ Generał ]

Visual Basica znam troche, Exela tez , razem tego nie probowalem , ale mozesz zarzucic te fragmenty notatek. Dim N As Integer Deklaracja zmiennej N jako liczby rzeczywistej.

26.05.2002
22:15
[7]

kathulu [ Generał ]

Makro Utworz_wykres Jakieś bzdury Dim N As Integer N = Range ("D8").Value Range ("J15").Resize(N+1).Select Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Arkusz1").Range("J15:J15").Resize(N+1).PlotBy _ :=xlColumns ActiveChart.Laocation Where:=xlLocationAsNewSheet WithActiveChart .HasTitle = true .ChartTitle.Characters>text = "Stan konta na" & Chr(10) & "koniec okresu" $ Chr(10) & "rozliczeniowego" .Axes (xlCategory, xlPrimary).HasTitle = true .Axes (xlCategory, xlPrimary).AxisTitle.Characters.Text = "Numer raty" .Axes (xlValue, xlPrimary).HasTitle = True .Axes (xlValue, xlPrimary).AxisTitle.Characters.Text = "PLN" End With ActiveChart.HasDataTable = False Sheets("Arkusz1").Select End Sub

26.05.2002
22:26
[8]

kathulu [ Generał ]

Szok co? I najlepsze, że nic z tego nie umiej bo nikt nam nie raczył wytłumaczyć co to znaczy.

26.05.2002
22:29
[9]

MOD [ Generał ]

Mozesz mi powiedziec gdzie to wpisac w Exelu? Na oczy czegos takiego nigdy nie widzialem ale pozgaduje Dim N As Integer // to juz wiesz N = Range ("D8").Value //n= wartosc pola D8? co oznacza Range? Range ("J15").Resize(N+1).Select Charts.Add //Dodanie wykresu? ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Arkusz1").Range("J15:J15").Resize(N+1).PlotBy _ :=xlColumns //wybranie zrodla do wykresu , arkusz ,zasieg ActiveChart.Laocation Where:=xlLocationAsNewSheet //utworzenie jako nowy obiekt? WithActiveChart //cechy wykresu? .HasTitle = true //czy ma tytul ? tak .ChartTitle.Characters>text = "Stan konta na" & Chr(10) & "koniec okresu" $ Chr(10) & "rozliczeniowego" //tytul wukresu .Axes (xlCategory, xlPrimary).HasTitle = true //czy jakas tam os ma miec tytul .Axes (xlCategory, xlPrimary).AxisTitle.Characters.Text = "Numer raty" //tytul osi .Axes (xlValue, xlPrimary).HasTitle = True //czy jakas tam os ma miec tytul , os z wartosciami? .Axes (xlValue, xlPrimary).AxisTitle.Characters.Text = "PLN" //czy jakas tam os ma miec tytul End With //koniec cehc wykresu ActiveChart.HasDataTable = False //czy wykres ma baze tablice danych? Sheets("Arkusz1").Select //wybierz obiekt arkusz 1 End Sub //koniec procedury:)

26.05.2002
22:33
[10]

kathulu [ Generał ]

Dzięki stary - jak widzisz wiesz milion razy więcej niż ja. Jest to komenda dla makra, aby stworzył wykres oparty na danej tabeli. I to jest tylko i wyłącznie dla jednej sytuacji, gdy trzeba stworzyć wykres z innego zakresu danych trzeba przerobić całą procedurę.

26.05.2002
22:44
[11]

MOD [ Generał ]

Ech , ja mam tak z elektronika i analiza matematyczna, na wykladach patrzylem tylko czy to co jest na tablicy mam w notatkach.Analize zaczynam kumac ale i tak jeszcze full nauki.

© 2000-2021 GRY-OnLine S.A.