|
こんにちは。かみちゃん です。
>の説明をしなければならないのですが意味がチンプンカンプンです。
とりあえず、コメント文にして、説明を我流で書きました。
「意味がチンプンカンプン」とは、具体的にどこなのでしょうか。
何か情報Bの課題を手伝わされているような気がして、いわばノートの書き写しをされているような気がします。
まずは、ご自分で、教科書、ExcelVBAのヘルプ情報、VBAの解説本、Excelのサイトなどで「調べる」という努力をされてはいかがでしょうか?
Sub 練習3()
'変数iを3を起点として-1ずつ足して(Step)いってiが1になるまで繰り返す。
For i = 3 To 1 Step -1
'変数jを1を起点として1ずつ足して(Step 1の記述は省略されている)変数iになるまで繰り返す。
For j = 1 To i
'もし、1行目、変数j列目のセルの値が、1行目、変数jに1足した列のセルの値よりも大きければ
If Cells(1, j).Value > Cells(1, (j + 1)).Value Then
'変数xに1行目、変数jの値の列のセルの値を入れる。
x = Cells(1, j).Value
'変数xに1行目、変数jの値の列のセルに、1行目、変数jに1足した列のセルの値を入れる。
Cells(1, j).Value = Cells(1, (j + 1)).Value
'変数jに1足した列のセルに変数xを入れる。
Cells(1, (j + 1)).Value = x
End If
'変数jのFor文の先頭に戻る。
Next j
'変数iのFor文の先頭に戻る。
Next i
End Sub
※今日は、もう寝ますので・・・
|
|