eXCEL :)

26.05.2002

21:53

[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.

MOD [ Generaďż˝ ]

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

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.

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.

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

kathulu [ Generaďż˝ ]

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

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:)

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ę.

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.