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

• tomi0829 csendes tag

  #1752 2012-05-14 08:55:07

  Új Válasz

  Ú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

  

  tomi0829

  csendes tag

  Sziasztok!

  Szeretném kérni a segítségeteket egy egyszerű Excel makróval kapcsolatban.
  Annyi lenne a gond, hogy van két adat tömb, ami számokat tárol, és sorrendbe kellene rendeznie.

  ker_hatar = Array("400", "1150", "9654")
  masolander = Array("346", "1096", "5600", "6826", "8301", "10205", "11611", "12035", "13523", "14663", "15640", "16617")

  TALALAT = 11

  For l_j = 0 To 3

  For I = 0 To TALALAT

  If masolander(I + 1) > ker_hatar(l_j) Then

  vegleges_hatar(I) = masolander(I)
  Cells(16 + I, 3) = I & ".Határ >2 = " & vegleges_hatar(I) & "|| L_I= " & I & "|| L_J= " & l_j
  Else

  vegleges_hatar(I) = ker_hatar(l_j)
  Cells(16 + I, 3) = I & ".Határ 1< = " & vegleges_hatar(I) & "|| L_I= " & I & "|| L_J= " & l_j
  l_j = l_j + 1

  End If

  Next

  Next

  Azt szeretném, hogy a kapott eredmény ez legyen:

  masonader ker_hatar eredmény
  346 400 400
  1096 1150 1150
  5600 9654 6826
  6826 8301
  8301 9654
  10205 10205
  11611 11611
  12035 12035
  13523 13523
  14663 14663
  15640 15640

  Remélem tud valaki segíteni!
  Köszi előre is!
  Üdv

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