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

• #15232 Attas aktív tag sztanozs #15212

  Új Válasz 2012-10-11 16:15:45 #15232

  Ú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

  

  Attas

  aktív tag

  válasz sztanozs #15212 üzenetére

  Szia. A makró amit írtál csak egy adathoz tartozó oszlopot ír át pirosra ha 60 nál nagyobb és az érték változásakor, ha esetleg 60 alá esnem nem lesz újra zöld. Vagy mindegyik pontra meg kell ezt csinálni? Ha igen hogy kell egymásba fűzni hogy értelmes legyen a makró?

• #15213 Attas aktív tag sztanozs #15212

  Új Válasz 2012-10-11 08:12:05 #15213

  Ú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

  

  Attas

  aktív tag

  válasz sztanozs #15212 üzenetére

  Szia Sztanozs!
  Mit ronthatok el? Nem működik valamiért. Futtatáskor ennél a sornál ír hibát:
  Sheet1.ChartObjects("Diagram 8").Activate

  Pedig a Diagram 8 a veve a rajzterületnek.
  A hiba pedig: Object required

  Sub KimDiagSzín()
  '
  ' KimDiagSzín Makró
  
  Sheet1.ChartObjects("Diagram 8").Activate
  Dim val()
  val = ActiveChart.SeriesCollection(1).Values
  Dim ix
  For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
  If val(ix) > 60 Then
  ActiveChart.SeriesCollection(1).Points(ix).Select
  With Selection.Format.Fill
  .Solid
  .Visible = msoTrue
  .ForeColor.RGB = RGB(255, 0, 0)
  .Transparency = 0
  End With
  End If
  Next
  End Sub

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