[ mirjanagb @ 26.06.2009. 15:51 ] @
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?
[ timmy @ 27.06.2009. 08:54 ] @
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