Private Sub CommandButton1_Click()
Dim ID(1 To 10) As Integer
Dim DE(1 To 10) As Single
Dim I, j, k, sm As Integer
Dim Temp1, Temp2 As Integer
Dim T As String
Sheets("sheet1").Select
For I = 2 To 9
T = Trim(Str(I))
ID(I - 1) = Range("A" + T).Value
DE(I - 1) = Range("G" + T).Value
'Range("I" + T).Value = DE(I - 1)
Next I
For I = 1 To 7
sm = DE(I)
k = I
For j = I + 1 To 8
If (sm > DE(j)) Then
sm = DE(j)
k = j
End If
Next j
Temp1 = DE(k)
DE(k) = DE(I)
DE(I) = Temp1
Temp2 = ID(k)
ID(k) = ID(I)
ID(I) = Temp2
Next I
For I = 2 To 9
T = Trim(Str(I))
Range("I" + T).Value = ID(I - 1)
Range("J" + T).Value = DE(I - 1)
Next I
End Sub
SOZAABEVENT #1 Code is : UMFVACVY