Ú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)

• #13341 bugizozi őstag Penty #13340

  Új Válasz 2012-03-29 15:51:50 #13341

  Ú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

  

  bugizozi

  őstag

  válasz Penty #13340 üzenetére

  Az Excelben nincs ilyen beépített fv, csak makróban lehet megoldani...

  pl:

  i = 0
  
  For j = 1 To 12
  
  If Range("A" & j).Font.ColorIndex = 5 Then
  
  i = i + 1
  
  End If
  
  Next j
  
  Range("B1") = i

  ps: az adatok A1:A12 oszlopban vannak, és a B1-be írja a számot.

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