Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

64003 / 76732

←次へ　｜　前へ→


	【17314】Re:ソート（昇順）

Ron - 04/8/26(木) 20:50 -


	引用なし

	パスワード

こんにちは。
参考までに、代表的な方法を

Option Explicit
Type TestA
　　a As Variant
End Type

Sub test()

　　Dim TestArray As Variant
　　Dim TestType As TestA
　　Dim num As Long
　　Dim i As Long
　　Dim j As Long
　　
　　TestArray = Array(5, 6, 7, 1, 2, 9, 8, 4, 3)
　　TestType.a = TestArray
　　
　　With TestType
　　　　For i = LBound(TestType.a) To UBound(TestType.a) - 1
　　　　　　For j = LBound(TestType.a) + 1 + i To UBound(TestType.a)
　　　　　　　　num = .a(i)
　　　　　　　　If .a(i) > .a(j) Then
　　　　　　　　　　.a(i) = .a(j)
　　　　　　　　　　.a(j) = num
　　　　　　　　End If
　　　　　　Next
　　　　Next
　　End With
End Sub

では。

3 hits

▼

【17308】ソート（昇順） SR2.2DET 04/8/26(木) 18:50