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

• #14614 Delila_1 veterán laci8080 #14612

  Új Válasz 2012-08-13 11:29:36 #14614

  Ú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 laci8080 #14612 üzenetére

  A másik fórumon bugizoziéhoz hasonló választ adtam.

  Sub valami()
  Range("A1") = Application.WorksheetFunction.CountIf _
  (Range("B1:B4"), ">" & 5)
  End Sub

• #14613 bugizozi őstag laci8080 #14612

  Új Válasz 2012-08-13 10:41:55 #14613

  Ú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 laci8080 #14612 üzenetére

  Így esetleg:

  Cells(1,1).Select
  ActiveCell.FormulaR1C1 = "=COUNTIF(elemek,"">5"")"

• #14610 poffsoft veterán laci8080 #14608

  Új Válasz 2012-08-11 22:44:35 #14610

  Ú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 laci8080 #14608 üzenetére

  Sub Gomb1_Kattintás()
  Dim ch, a, b, c, d, elemek
  a = 2
  b = 3
  c = 8
  d = 10
  elemek = Array(a, b, c, d)
  Cells(1, 1) = ""
  For Each ch In elemek
  If ch > 5 Then Cells(1, 1) = Cells(1, 1) + 1
  Next
  End Sub

  Az union rangek-hez használható, szóval, én inkább tömbbel csinálnám meg.
  Persze nem értek hozzá.
  (és nem hiányzott neki a .value)

• #14609 poffsoft veterán laci8080 #14608

  Új Válasz 2012-08-11 22:27:31 #14609

  Ú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 laci8080 #14608 üzenetére

  nem hiányzik a cells(1,1).value ?

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