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

• #7311 Delila_1 veterán Floriano #7309

  Új Válasz 2010-05-23 09:11:36 #7311

  Ú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 Floriano #7309 üzenetére

  Function SumColor(Tartomany As Range)
  Dim összeg As Integer
  Dim CV As Range
  összeg = 0
  For Each CV In Tartomany
  If CV.Interior.ColorIndex = 3 Then
  összeg = összeg + CV.Value
  End If
  Next CV
  SumColor = összeg
  End Function

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