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

• #29878 sztanozs veterán Bobrooney #29852

  Új Válasz 2015-12-14 12:13:32 #29878

  Ú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

  

  sztanozs

  veterán

  válasz Bobrooney #29852 üzenetére

  =SUMPRODUCT((1=1)*(A1:E12=(INT(A1:E12/7)*7)))

  vagy

  =SUMPRODUCT((1=1)*(0=MOD((A1:E12)*2,7)))

  Az aláhúzott range az amin keresel (a kétszeres szorzó belerakható, de áthúztam, mert felesleges).

  (#29877) Delila_1 :

• #29873 sztanozs veterán Bobrooney #29852

  Új Válasz 2015-12-14 11:56:32 #29873

  Ú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

  

  sztanozs

  veterán

  válasz Bobrooney #29852 üzenetére

  Ha valaminek a duplája maradék nélkül osztható 7-tel, akkor maga a szám is maradéktalanul osztható 7-tel, nem?

• #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