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

• #10787 m.zmrzlina senior tag djzomby #10786

  Új Válasz 2011-07-11 12:06:31 #10787

  Ú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

  

  m.zmrzlina

  senior tag

  válasz djzomby #10786 üzenetére

  Van egy szörnyű gyanúm, hogy van erre egyszerűbb megoldás is de több időm erre csak este lesz. Ha addig nem kapsz valami egyszerűbb megoldást akkor használd ezt:

  

  Sub szinosszeg()
  Range("A1").Select
  Dim pirososszeg As Integer, feketeosszeg As Integer
  Dim betuszine As Integer
  
  pirososszeg = 0
  feketeosszeg = 0
  
  Do Until ActiveCell.Value = ""
  betuszine = ActiveCell.Font.ColorIndex
  
  Select Case betuszine
  Case Is = 3
  pirososszeg = ActiveCell.Value + pirososszeg
  Case Is = 1
  feketeosszeg = ActiveCell.Value + feketeosszeg
  End Select
  
  ActiveCell.Offset(1, 0).Select
  Loop
  
  Range("H2").Value = pirososszeg
  Range("G2").Value = feketeosszeg
  End Sub

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