Registracija

dodavanje gornje i donje granice

Odgovori Nova tema

1 odgovor
3.975 pregleda

dodavanje gornje i donje granice 26.06.2009. u 16:51 · pre 211 meseci #1

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?

primer.xls128k

Re: dodavanje gornje i donje granice 27.06.2009. u 09:54 · pre 211 meseci #2

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme