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

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

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