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

• #1759 mezis félisten tomi0829 #1754

  Új Válasz 2012-05-19 21:12:58 #1759

  Ú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

  

  mezis

  félisten

  válasz tomi0829 #1754 üzenetére

  [Egy algoritmus (van több is)]

• #1755 martonx veterán tomi0829 #1754

  Új Válasz 2012-05-14 15:15:53 #1755

  Ú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

  

  martonx

  veterán

  válasz tomi0829 #1754 üzenetére

  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.

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

• #1753 martonx veterán tomi0829 #1752

  Új Válasz 2012-05-14 12:04:50 #1753

  Ú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

  

  martonx

  veterán

  válasz tomi0829 #1752 üzenetére

  Excelben egyrészt minek használsz tömböket? Ott van erre egy millió excel cella.
  Másrészt nem tudom mit is akarsz pontosan, de az excel beépített FKERES, VKERES függvényeivel próbálkoznék első körben, a felesleges makró programozás helyett.
  És amikor megvannak az eredmények, akkor a cellákat könnyen sorba is tudod rendezni.

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