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

• #8794 Azura csendes tag

  Új Válasz 2010-12-06 11:12:54 #8794

  Ú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

  

  Azura

  csendes tag

  Sziasztok!
  Tudnátok segíteni, hogy az alábbi kódban hol van a hiba?
  Van egy táblázat, ahol az A oszlop tartalmazza a neveket, a B azt, hogy hány éves az illető, a C pedig hogy hányast kapott egy dolgozatra.
  Amit szeretnék, hogy a J oszlopba listázza ki azoknak a nevét, akik a legrosszabb eredményt érték el, és rendezze a neveket névsorba.
  Meg is csinálja, csak végtelenre fut, és nem tudom, hogy hol a hiba.
  Előre is köszi

  Azura

  Sub sorbarendez()
  Columns(10) = Empty
  Dim min As Integer
  Dim v As Integer
  Dim w As Integer
  Dim j As Integer
  Dim i As Integer
  min = Cells(1, 3)
  v = 1
  i = 0
  j = 1
  Do While Cells(v, 1) <> ""
  v = v + 1
  Loop
  v = v - 1
  For i = 1 To v
  If Cells(i, 3) < min Then min = Cells(i, 3)
  Next
  For i = 1 To v
  Do While Cells(j, 10) <> ""
  j = j + 1
  Loop
  If Cells(i, 3) = min Then Cells(j, 10) = Cells(i, 1)
  Next
  w = 1
  Do
  w = w + 1
  Loop Until Cells(w, 10) = ""
  w = w - 2
  Do
  For i = 1 To w
  If Cells(i + 1, 10) < Cells(i, 10) Then
  a = Cells(i, 10)
  Cells(i, 10) = Cells(i + 1, 10)
  Cells(i + 1, 10) = a
  End If
  Next
  Loop Until Cells(i + 1, 10) > Cells(i, 10)
  End Sub

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