[es] - dodavanje gornje i donje granice

mirjanagb
mirjana kovacevic
austrija

Član broj: 160826
Poruke: 184
*.bankgutmann.co.at.

+1 Profil

^{26.06.2009. u 15:51 - pre 180 meseci}

imam istorijske podatke.

na grafiku kao jeda linija ... ja treba da dodam gornju i donju granicu pomocu formle if (ili vlookup ili vec)

primer:
ako je jabuka granica 3, znaci da je gornja granica broj 2 (Gr2 - Gr 3), a donja 4 (Gr 3 - Gr 4)

u sheet-u "grafik" treba na grafiku pored linije jabuka da stoji i gornja i donja granica.

a granice su u sheet-u podaci.

tako da kad menjam grafik se automatski menjaju i granice ...

kako to da uradim?

Prikačeni fajlovi

primer.xls - 128k

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: dodavanje gornje i donje granice

^{27.06.2009. u 08:54 - pre 180 meseci}

1. Dodaj novi modul i ubaci sledeci kod
(ne znam sta su ti granice, ali recimo da si ih prvo izracunala u F4 i F5)

Code:

Dim tx As Shape

Sub AddGranca()
    Dim ChartObj As ChartObject
    Dim txtGranica As String

    On Error Resume Next
    tx.Delete

    txtGranica = "Granica: " & [F4] & " - " & [F5]
    Set ChartObj = ActiveSheet.ChartObjects("Diagramm 2")

    Set tx = ChartObj.Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 5, 190, 200, 10)
    tx.TextFrame.Characters.Text = txtGranica

End Sub

2. DOdaj makro AddGranica na padajucu listu koju imas na listu Grafik
(desni klik na kontrolu i AssignMacro)

Pozdrav

Odgovor na temu