' ソフトウェア設計II: Excel Macro を用いてプログラミング: 単純ソート
'
'    セルの A1〜A5 にデータを入力
'    マクロ実行でデータのソート

Sub softs2_sort1()
    
    n = 5

    For i = 1 To n - 1
        For j = i + 1 To n
            
            If Cells(i, 1).Value > Cells(j, 1).Value Then
                w = Cells(i, 1).Value
                Cells(i, 1).Value = Cells(j, 1).Value
                Cells(j, 1).Value = w
            End If
        
        Next j
    Next i

    MsgBox "ソート完了"

End Sub