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

• #13342 poffsoft veterán Penty #13340

  Új Válasz 2012-03-29 18:14:21 #13342

  Ú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

  

  poffsoft

  veterán

  válasz Penty #13340 üzenetére

  Function Keres_2(ByRef mit As Range, ByRef hol As Range)
  
  Dim C As Range
  Dim cnt As Long
  
  cnt = 0
  For Each C In hol
  If C.Value = mit.Range("A1").Value Then If C.Font.ColorIndex = mit.Range("A1").Font.ColorIndex Then cnt = cnt + 1
  Next C
  Keres_2 = cnt
  End Function

  szóval,
  ha a B1 cellába bemásolod a keresett kék banánodat, és az A1:A20 tartományban keresed, akkor a képleted:
  =Keres_2(B1;A1:A20)

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