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

• tomi0829 csendes tag

  #1754

  #1752 tomi0829

  2012-05-14 12:12:52

  Ú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

  #1752 tomi0829

  #1752 tomi0829

  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

  Igen ebben igazad van.
  Viszont ez a pár sor csak egy része egy nagyobb programnak, ami a végén sorba rendezi a talált sorszámokat illetve később szelektál. Az a gond, hogy a sorba rendezésnél megakadtam, pedig nagyon egyszerű lenne.
  A lényeg, hogy van 2 tömb amiben vannak tárolt adatok.
  masolander(I)
  346
  1096
  5600
  6826
  8301
  10205
  11611
  12035
  13523
  14663
  15640

  Második tömb:
  ker_hatar(l_j)
  400
  1150
  9654

  Ezeket kellene rendeznie, úgy hogy a kapott érték ez legyen:
  Eredmény
  400
  1150
  6826
  8301
  9654
  11611
  12035
  13523
  14663
  15640
  16617

  I = 0
  j = 0

  For I = 0 To talalat

  If masolander(I + 1) < ker_hatar(j) Then
  vegleges_hatar(I) = ker_hatar(j)
  Cells(16 + I, 4) = I & ". " & vegleges_hatar(I) & " |" & ker_hatar(j) & " 1< " & masolander(I + 1)
  j = j + 1

  Else
  vegleges_hatar(I) = masolander(I + 1)
  Cells(16 + I, 4) = I & ". " & vegleges_hatar(I) & " |" & ker_hatar(j) & " 2> " & masolander(I + 1)

  End If

  Next

  Nem tudom, hogy ebben mit rontottam el...

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