マクロを教えてください

質問

私は学生なのですが、どうしても情報の宿題がわからずできません。
マクロ以外は出来たので画像のマクロを教えていただけませんか？

回答No.2

High_Score · ベストアンサー

他回答にあるのはエクセルのソート機能を使ったものなので、書いても先生を怒らせるだけですよ。

Sub Macro1()

Dim i As Long, j As Long, Tmp As Long '型宣言
For i=4 To 1 step -1
For j=1 To i

If Cells(1, j)>Cells(1, j+1) Then '右隣のセルと比較し大きいなら入れ替える
Tmp=Cells(1, j)
Cells(1, j)=Cells(1, j+1)
Cells(1, j+1)=Tmp
End if

Next j
Next i
End Sub

動作確認くらいはやって下さい。

お礼

ありがとうございます！助かります！

回答No.3

High_Score

訂正
Cells()の後ろに.value を追加して下さい。

回答No.1

neKo_deux

> マクロ以外は出来たので画像のマクロを教えていただけませんか？

その言葉とフロチャートを提示しなきゃ、マクロと内容が違ってたら別の人がやったのがバレバレでは。

Sub Macro1()
Range("A1:E1").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:E1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:E1")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub

お礼

回答ありがとうございます。
とりあえずは書かないと評価に影響するので
他の人に教えてもらったことは言うつもりなので大丈夫です。すみません。