MOCKSTACKS
EN
Questions And Answers

More Tutorials









VBA Sorting

Algorithm Implementation - Quick Sort on a OneDimensional Array


From VBA array sort function?

Public Sub QuickSort(vArray As Variant, inLow As Long, inHi As Long)
 Dim pivot As Variant
 Dim tmpSwap As Variant
 Dim tmpLow As Long
 Dim tmpHi As Long
 tmpLow = inLow
 tmpHi = inHi
 pivot = vArray((inLow + inHi) \ 2)
 While (tmpLow <= tmpHi)
 While (vArray(tmpLow) < pivot And tmpLow < inHi)
 tmpLow = tmpLow + 1
 Wend
 While (pivot < vArray(tmpHi) And tmpHi > inLow)
 tmpHi = tmpHi - 1
 Wend
 If (tmpLow <= tmpHi) Then
 tmpSwap = vArray(tmpLow)
 vArray(tmpLow) = vArray(tmpHi)
 vArray(tmpHi) = tmpSwap
 tmpLow = tmpLow + 1
 tmpHi = tmpHi - 1
 End If
 Wend
 If (inLow < tmpHi) Then QuickSort vArray, inLow, tmpHi
 If (tmpLow < inHi) Then QuickSort vArray, tmpLow, inHi
End Sub


Conclusion

In this page (written and validated by ) you learned about VBA Sorting . What's Next? If you are interested in completing VBA tutorial, your next topic will be learning about: VBA Flow control structures.



Incorrect info or code snippet? We take very seriously the accuracy of the information provided on our website. We also make sure to test all snippets and examples provided for each section. If you find any incorrect information, please send us an email about the issue: mockstacks@gmail.com.


Share On:


Mockstacks was launched to help beginners learn programming languages; the site is optimized with no Ads as, Ads might slow down the performance. We also don't track any personal information; we also don't collect any kind of data unless the user provided us a corrected information. Almost all examples have been tested. Tutorials, references, and examples are constantly reviewed to avoid errors, but we cannot warrant full correctness of all content. By using Mockstacks.com, you agree to have read and accepted our terms of use, cookies and privacy policy.