Új hozzászólás Aktív témák

• #35490 sztanozs veterán oke #35489

  Új Válasz 2017-06-15 14:48:48 #35490

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz oke #35489 üzenetére

  2003-ban is van ilyen. Beállítod, hogy mutassa az értékeket az oszlopok felett és egyesével belekattintva meg tudod változtatni annak az értékét.

  Makróval:
  Sub Feltolt()
Sheet1.ChartObjects(1).Activate
ertekek_tabla = "B8:E11"
sor = Range(ertekek_tabla).Row
oszlop = Range(ertekek_tabla).Column
Dim c As Range
For Each c In Sheet1.Range(ertekek_tabla)
ActiveChart.SeriesCollection(c.Row - sor + 1).Points(c.Column - oszlop + 1).DataLabel.Text = c.Value2
Next
End Sub

Új hozzászólás Aktív témák