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

• #4281 Delila_1 veterán lúzer #4279

  Új Válasz 2009-01-03 16:10:39 #4281

  Ú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 lúzer #4279 üzenetére

  Így:

  Function CountCCC(Mintacella As Range)
  Dim rngCell As Range
  Dim Tartomany As Range
  sor = Range("A65536").End(xlUp).Row
  Set Tartomany = Range(Cells(1, 1), Cells(sor, 1))
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + 1
  End If
  Next rngCell
  CountCCC = nResult
  End Function

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