Excel VBA質問箱 IV

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

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


64009 / 76738 ←次へ | 前へ→

【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

では。

0 hits

【17308】ソート(昇順) SR2.2DET 04/8/26(木) 18:50 質問
【17311】Re:ソート(昇順) shousuke 04/8/26(木) 20:07 発言
【17312】Re:ソート(昇順) SR20DET 04/8/26(木) 20:25 お礼
【17313】Re:ソート(昇順) Hirofumi 04/8/26(木) 20:37 回答
【17315】Re:ソート(昇順) Hirofumi 04/8/26(木) 20:53 回答
【17314】Re:ソート(昇順) Ron 04/8/26(木) 20:50 回答
【17334】Re:ソート(昇順) SR20DET 04/8/27(金) 9:51 お礼

64009 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free