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

• #1754 tomi0829 csendes tag tomi0829 #1752

  Új Válasz 2012-05-14 12:12:52 #1754

  Ú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

  

  tomi0829

  csendes tag

  válasz tomi0829 #1752 üzenetére

  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