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

• #23421 Excelbarat tag m.zmrzlina #23420

  Új Válasz 2014-09-23 23:23:13 #23421

  Ú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

  

  Excelbarat

  tag

  válasz m.zmrzlina #23420 üzenetére

  Színezésre egy másik megoldás (sajnos nem tudom, h korábbi verziónál működik-e):

  Sub szinez()
  Dim r
  Dim g
  Dim b
  Dim i
  For i = 1 To 5
  r = Range("A" & i).Interior.Color Mod 256
  g = (Range("A" & i).Interior.Color Mod 256 ^ 2) \ 256
  b = Range("A" & i).Interior.Color \ 256 ^ 2
  Range("C" & i).Interior.Color = RGB(r, g, b)
  Next i
  End Sub

  Az "A" oszlop 1sorától az 5-ig a színeket átmásolja a "C" oszlop ugyan ezen soraiba.
  Ha esetleg valaki makróval akar színezni diagramm oszlopokat így lehet (nálam épp ehhez kellett ):
  ActiveSheet.ChartObjects("chart1").Activate
  ActiveChart.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(r, g, b)

  Üdv,
  Excelbarát

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