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

• #4454 Fehér Mancs tag Gabcsika #4442

  Új Válasz 2009-02-03 23:20:38 #4454

  Ú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

  

  Fehér Mancs

  tag

  válasz Gabcsika #4442 üzenetére

  Még egy észrevétel, ha macroval számoltatjuk ki ezt, akkor saját függvényt érdemes használni, mivel az nem módosítja az adataidat, változásnál újra is számol, másolható, stb.

  Erre egy megoldás:

  Function CountDistinct(Ertekek As range, Tartomany As range, Vizsg_ertek) As Variant
  Dim Taroltak()
  Dim i, j, Talalat
  Dim VanMar As Boolean
  
  Talalat = 0
  For i = 1 To Ertekek.Rows.Count
  If Ertekek(i) = Vizsg_ertek Then
  If Talalat = 0 Then
  ReDim Taroltak(1)
  Taroltak(1) = Tartomany(i)
  Talalat = 1
  Else
  VanMar = False
  For j = 1 To Talalat
  If Taroltak(j) = Tartomany(i) Then
  VanMar = True
  Exit For
  End If
  Next j
  If Not (VanMar) Then
  ReDim Preserve Taroltak(Talalat + 1)
  Taroltak(Talalat + 1) = Tartomany(i)
  Talalat = Talalat + 1
  End If
  End If
  End If
  Next i
  CountDistinct = Talalat
  
  End Function

• #4453 Fehér Mancs tag Gabcsika #4442

  Új Válasz 2009-02-03 22:26:43 #4453

  Ú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

  

  Fehér Mancs

  tag

  válasz Gabcsika #4442 üzenetére

  Az excel 2007-es verziójában képlettel is ki lehet ezt számolni ezt:

  =SZUM(HA(értékek=vizsg_érték;HA(tartomány<>"";1/DARABHATÖBB(értékek;vizsg_érték;tartomány;tartomány);0);0))
  (Tömbképlet, vagyis shift+ctrl+enter-et kell használni)

  Az értékekben keressük meg a vizsg_értéket, és csak ezeket vesszük figyelembe a darabszámlálásnál (tartományban a különbözők kiszedése).

  Ha nem lehet érteni, ne aggódj, én sem igazán értem, de működik

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