napisał: Kasia21-83
postów: 16
 umieszczony:
12 września 2005
18:56
|
|
Czy może ktoś mi dopisć linjikę kodu na to żeby skala y wyświetlała wartości co 20 i jak zmienić żeby to był wykres punktowy nie połączony linią??
Public Sub DodajWykres()
Dim wykres As ChartObject
Set wykres = Arkusz1.ChartObjects.Add(100, 50, 400, 300)
wykres.Chart.ChartWizard Source:=Worksheets("Arkusz1").Range("A5:m33"), _
Gallery:=xlLine, Format:=6, PlotBy:=xlColumns, _
CategoryLabels:=1, SeriesLabels:=0, HasLegend:=0, ValueTitle:="Czas średni w ms"
wykres.Border.Color = RGB(0, 0, 255) 'kolor ramki
'wykres.Interior.Color = RGB(255, 204, 153) 'tło na zewnątrz wykresu
'lub
With wykres.Chart.ChartArea.Fill
.Visible = True
.ForeColor.SchemeColor = 15
.BackColor.SchemeColor = 17
.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With
'dodanie etykiet z wartościami :
wykres.Chart.ApplyDataLabels (xlDataLabelsShowValue)
'Dodanie linii trendu do wykresu :
With wykres.Chart
.SeriesCollection(1).Trendlines.Add _
Type:=xlLinear, Name:="trend liniowy seria1"
.SeriesCollection(2).Trendlines.Add _
Type:=xlLinear, Name:="trend liniowy seria2"
.SeriesCollection(3).Trendlines.Add _
Type:=xlLinear, Name:="trend liniowy seria2"
.SeriesCollection(4).Trendlines.Add _
Type:=xlLinear, Name:="trend liniowy seria2"
.SeriesCollection(5).Trendlines.Add _
Type:=xlLinear, Name:="trend liniowy seria2"
.SeriesCollection(6).Trendlines.Add _
Type:=xlLinear, Name:="trend liniowy seria2"
End With
With wykres.Chart.Axes(xlValue)
.MinimumScale = 10
.MaximumScale = 100
End With
With wykres.Chart.SeriesCollection(1).Trendlines(1)
.DisplayEquation = True
.Border.Color = RGB(247, 147, 226)
End With
With wykres.Chart.SeriesCollection(2).Trendlines(1)
.DisplayEquation = True
.Border.Color = RGB(247, 147, 226)
End With
wykres.Chart.Axes(xlValue).ScaleType = xlScaleLogarithmic
'utworzenie wykresu w nowym arkuszu o nazwie "linie trendu"
wykres.Chart.Location xlLocationAsNewSheet, "linie trendu"
End Sub |
|
|
napisał: Kasia21-83
postów: 16
umieszczony:
11 września 2005
19:28
|
|
| Proszę naprawdę o pomoc bo jest to dla mnie ważna sprawa i chodzi o funkcję napisaną w VBA |
|
|
napisał: Kasia21-83
postów: 16
umieszczony:
11 września 2005
08:38
|
|
| Może chociasz ktoś umiał by tą funkcję napisac proszę o pomoc naprawdę jeste w kropce |
|
|
napisał: Kasia21-83
postów: 16
umieszczony:
8 września 2005
18:43
|
|
Cytat:Chciała bym dla konkretnej tabeli zrobić taka funkcję:
Pod każdą z kolum żeby wyświetliła się wartość średnia, aby w każdej z kolumn funkcja wyszukła wartości najmniejszej i największej i zminiło kolor tła tej komórki, oraz żeby został dla wartości średnich wygenerowany histogram strefy czasowej od pory dnia.
proszę o kontakt mój nr gg to 8407222
www.interia.pl
Dzień
godzina: 10 14 20
01.04.05 28 47 26
02.04.05 23 24 20
03.04.05 19 24 31
04.04.05 21 48 21
05.04.05 22 35 26
06.04.05 20 22 30
07.04.05 21 32 36
08.04.05 21 63 20
09.04.05 20 36 24
10.04.05 20 30 39
11.04.05 19 33 36
12.04.05 20 24 75
13.04.05 19 23 52
14.04.05 20 77 20
15.04.05 19 30 41
16.04.05 19 24 42
17.04.05 20 29 72
18.04.05 26 63 69
19.04.05 26 22 58
20.04.05 20 29 37
21.04.05 25 37 21
22.04.05 19 38 25
23.04.05 18 23 52
24.04.05 19 75 75
25.04.05 19 33 70
26.04.05 21 34 79
27.04.05 18 78 63
28.04.05 21 23 33
29.04.05 16 19 21
30.04.05 16 19 41
Przesyłam fragment tabeli |
|
|
napisał: Kasia21-83
postów: 16
umieszczony:
8 września 2005
18:41
|
|
| Przepraszam to nie było umyślnie |
|
|
napisał:  admin
postów: 613
umieszczony:
8 września 2005
18:36
|
|
Kasia21-83:
W regulaminie stoi, że nie nie toleruję ogoszeń odnośnie sprzedaży lub wymiany!
pozdrawiam
admin |
|
|
napisał: Kasia21-83
postów: 16
umieszczony:
8 września 2005
15:53
|
|
| Jak możesz napisz mi swojego emaila ja napisze ci o co mi dokładnie chodzi po du nie dam rady wkleić całej tabeli mój adres to kasiamadzia@interia.pl bo to musi być napisane kodem VBA |
|
|
napisał: Stanislaw
postów: 109
umieszczony:
8 września 2005
15:14
|
|
Wartość średnią możesz otrzymać za pomocą formuły
=ŚREDNIA(A1:A30)
oczywiście zakres skoryguj do swoich potrzeb.
Zaznaczenie najmniejszej i największej wartości zrób za pomocą formatowania warunkowego.
Np.
1. dla zaznaczonego obszaru komórek A1:A30, przy aktywnej komórce A1
2. wybierz polecenie Format | Formatowanie warunkowe
3. wybierz z listy rozwijanej dla warunku 1 "Formuła jest"
i obok wpisz formułę
=$A1=MAX($A$1:$A$30)
4. kliknij przycisk [Formatuj] i na karcie "Desenie" ustal odpowiednie tło
5. OK
6. kliknij przycisk [Dodaj>>]
7. ale dla drugiego warunku wstaw formułę
=$A1=Min($A$1:$A$30)
8. ustal jakieś tło, inne niż poprzednio
Ok
OK
Natomiast
Cytat:
> żeby został dla wartości średnich wygenerowany histogram strefy czasowej od pory dnia.
Możesz to bliżej wytłumaczyć?
--
Powodzenia
Stanislaw |
|
|
napisał: Kasia21-83
postów: 16
umieszczony:
8 września 2005
13:56
|
|
Chciała bym dla konkretnej tabeli zrobić taka funkcję:
Pod każdą z kolum żeby wyświetliła się wartość średnia, aby w każdej z kolumn funkcja wyszukła wartości najmniejszej i największej i zminiło kolor tła tej komórki, oraz żeby został dla wartości średnich wygenerowany histogram strefy czasowej od pory dnia.
proszę o kontakt może być nawet odpłatnie mój nr gg to 8407222
www.interia.pl
Dzień
godzina: 10 14 20
01.04.05 28 47 26
02.04.05 23 24 20
03.04.05 19 24 31
04.04.05 21 48 21
05.04.05 22 35 26
06.04.05 20 22 30
07.04.05 21 32 36
08.04.05 21 63 20
09.04.05 20 36 24
10.04.05 20 30 39
11.04.05 19 33 36
12.04.05 20 24 75
13.04.05 19 23 52
14.04.05 20 77 20
15.04.05 19 30 41
16.04.05 19 24 42
17.04.05 20 29 72
18.04.05 26 63 69
19.04.05 26 22 58
20.04.05 20 29 37
21.04.05 25 37 21
22.04.05 19 38 25
23.04.05 18 23 52
24.04.05 19 75 75
25.04.05 19 33 70
26.04.05 21 34 79
27.04.05 18 78 63
28.04.05 21 23 33
29.04.05 16 19 21
30.04.05 16 19 41
Przesyłam fragment tabeli |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
