• Skip to primary navigation
  • Skip to main content
  • Skip to primary sidebar
Office 指南

Office 指南

辦公室工作實用教學

  • Excel
  • Word
  • PowerPoint
  • Windows
  • PowerShell
  • R

Excel VBA 陣列泡沫排序教學與範例

使用自己定義的泡沫排序法 VBA 函數,處理陣列排序問題。


對於普通陣列的排序而言,快速排序法是效率最高的排序方法(實作請參考 Excel VBA 快速排序教學),但是快速排序法的演算法牽涉到遞迴,如果想要進行客製化的修改,就比較不方便。

如果資料量不大的情況,可以改用泡沫排序法,程式碼簡單易懂,修改也方便。

泡沫排序 VBA 巨集函數

以下是泡沫排序法的 VBA 巨集函數:

' 泡沫排序函數
Public Sub BubbleSort(arr As Variant)
  idxMin = LBound(arr)
  idxMax = UBound(arr)
  For i = idxMin To idxMax - 1
    For j = i + 1 To idxMax
      If arr(i) > arr(j) Then ' 判斷條件
        temp = arr(i)
        arr(i) = arr(j)
        arr(j) = temp
      End If
    Next j
  Next i
End Sub

這段排序程式碼是以遞增的方式排序元素,如果想要修改排序規則,只要修改判斷條件的那一行即可,修改上很方便。例如將大於改成小於,就變成遞減排序。

數值陣列排序

這是使用泡沫排序法來排序數值陣列的範例:

Sub Test()
  ' 建立測試用陣列
  Dim arr As Variant
  arr = Array(2, 5, 4, 1, 3)

  ' 對陣列進行排序
  BubbleSort arr

  ' 輸出結果
  For i = LBound(arr) To UBound(arr)
    Debug.Print "元素 " & i & " = " & arr(i)
  Next i
End Sub

執行後的結果會像這樣:

VBA 數值陣列排序
VBA 數值陣列排序

文字陣列排序

這裡的泡沫排序 VBA 巨集函數也可以用來處理文字的資料:

Sub Test()
  ' 建立測試用陣列
  Dim arr As Variant
  arr = Array("Red", "Yellow", "Green", "Blue")

  ' 對陣列進行排序
  BubbleSort arr

  ' 輸出結果
  For i = LBound(arr) To UBound(arr)
    Debug.Print "元素 " & i & " = " & arr(i)
  Next i
End Sub

執行後的結果會像這樣:

VBA 數值陣列排序
VBA 數值陣列排序

參考資料:Access Excel

分類:Excel 標籤:VBA

讀者互動

發佈留言 取消回覆

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *

Primary Sidebar

搜尋

分類

Android Apple C/C++ Excel Linux OneNote PHP PowerPoint PowerShell Python R Windows Word 免費工具 創客 網站架設 線上工具 資料庫 遊戲 雜七雜八

近期文章

  • Python 使用 openpyxl 模組讀取、寫入 Excel 檔案教學與範例
  • Python 使用 humanize 模組將數字轉為容易閱讀格式教學與範例
  • iOS 捷徑教學:充電時朗讀電量提示聲
  • 舊健保卡網路申請補發新卡教學
  • Linux 設定 Swap 記憶體交換空間優先值教學與範例
  • ITK 以 LabelStatisticsImageFilter 套用遮罩影像計算統計量教學與範例
  • iCloud 匯入 Google 聯絡人教學
  • CSS 檔案最小化與壓縮處理教學與範例

推薦網站

  • Udemy 線上教學課程
  • Coursera 線上教學課程

關注本站

  • 電子郵件
  • Facebook

Copyright © 2020 · Office Guide