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

• martonx veterán

  #1755

  #1754 tomi0829

  2012-05-14 15:15:53

  Ú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

  

  martonx

  veterán

  #1754 tomi0829

  #1754 tomi0829

  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...

  http://www.cpearson.com/excel/VBAArrays.htm
  Ugyan továbbra is alapvető koncepcionális hibának tartom a tömbök erőltetését Excel makróban, mikor az egész excel egy nagy két dimenziós tömb, de itt hátha találasz megfelelő példa kódot.

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