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

• #29856 Delila_1 veterán Bobrooney #29852

  Új Válasz 2015-12-13 08:02:16 #29856

  Ú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 Bobrooney #29852 üzenetére

  Valószínűleg meg lehet oldani tömbképlettel is, én egy függvényt írtam rá.

  Function HibaDarab(tartomány As Range)
  Dim db As Long, CV As Range
  
  For Each CV In tartomány
  If CV > 0 And IsNumeric(CV) And CV * 2 Mod 7 > 0 Then
  db = db + 1
  End If
  Next
  HibaDarab = db
  End Function

  Az összegző cellába ez jön: =HibaDarab(tartomány), ahol a tartományt beírod, vagy kijelölöd egérrel.

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