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

• #13524 Delila_1 veterán Z-Tom-ee #13523

  Új Válasz 2012-04-22 14:06:37 #13524

  Ú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

  

  Delila_1

  veterán

  válasz Z-Tom-ee #13523 üzenetére

  Írtam rá egy függvény Sarga_Osszeg néven.

  Function Sarga_Osszeg(Tartomány As Range) As Double
  Dim CV, ossz As Double
  For Each CV In Tartomány
  If CV.Interior.ColorIndex = 6 Then ossz = ossz + CV
  Next
  Sarga_Osszeg = ossz
  End Function

  Az összegző cellába beírod: =sarga_osszeg(A1:G50), ahol az A1:G50 helyett a saját összegzendő tartományod kerül (egérrel is kijelölhető, mint minden más függvénynél). Adhatsz rövidebb nevet, két helyen kell átírnod a makróban.

  Ezt a sárga hátteret veszi figyelembe, ennek a színkódja 6.
  

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