uudelleenjärjestäminen

On Error GoTo virhe

For luku = 0 To 6
taulukko(luku) = CByte(InputBox("anna arvo"))
Next luku

vaihto = True
arvo = 0

Do While vaihto = True
vaihto = False
alla = 0
For yllä = 0 To 5
alla = alla 1
If taulukko(yllä) > taulukko(alla) Then
arvo = taulukko(alla)
taulukko(alla) = taulukko(yllä)
taulukko(yllä) = arvo
vaihto = True
End If
Next yllä
Loop


Set target = Application.InputBox("anna kohde", , ActiveCell.Address, , , , , 8)
For luku1 = 0 To 6
target.Offset(luku1, 0) = taulukko(luku1)
Next luku1

Exit Sub
virhe:
If taulukko(luku) = 0 Then
MsgBox ("luvun on oltava välillä 0 ja 225")
Exit Sub
End If
Resume
End Sub