VBA array sort function

Question

I m looking for a decent sort implementation for arrays in VBA  A Quicksort would be preferred  Or any other sort algorithm other than bubble or merge would suffice   Please note that this is to work with MS Project 2003  so should avoid any of the Excel native functions and anything  net related

User · Answer

You didn t want an Excel-based solution but since I had the same problem today and wanted to test using other Office Applications functions I wrote the function below   Limitations    2-dimensional arrays  maximum of 3 columns as sort keys  depends on Excel    Tested calling Excel 2010 from Visio 2010    Option Base 1   Private Function sort array 2D excel array 2D  array sortkeys  Optional array sortorders  Optional tag header As String    Guess   Optional tag matchcase As String    False        Dependencies  Excel  Tools  gt  References  gt  Microsoft Excel  Version  Object Library      Dim excel application As Excel Application     Dim excel workbook As Excel Workbook     Dim excel worksheet As Excel Worksheet      Set excel application   CreateObject  Excel Application        excel application Visible   True     excel application ScreenUpdating   False     excel application WindowState   xlNormal      Set excel workbook   excel application Workbooks Add     excel workbook Activate      Set excel worksheet   excel workbook Worksheets Add     excel worksheet Activate     excel worksheet Visible   xlSheetVisible      Dim excel range As Excel Range     Set excel range   excel worksheet Range  A1   Resize UBound array 2D  1  - LBound array 2D  1    1  UBound array 2D  2  - LBound array 2D  2    1      excel range   array 2D       For i sortkey   LBound array sortkeys  To UBound array sortkeys           If IsNumeric array sortkeys i sortkey   Then             sortkey range   Chr array sortkeys i sortkey    65 - 1   amp   1              Set array sortkeys i sortkey    excel worksheet Range sortkey range           Else             MsgBox  Error in sortkey parameter    amp  vbLf  amp   array sortkeys    amp  i sortkey  amp          amp  array sortkeys i sortkey   amp  vbLf  amp   Terminating                 End          End If      Next i sortkey       For i sortorder   LBound array sortorders  To UBound array sortorders          Select Case LCase array sortorders i sortorder               Case  asc                  array sortorders i sortorder    XlSortOrder xlAscending             Case  desc                  array sortorders i sortorder    XlSortOrder xlDescending             Case Else                 array sortorders i sortorder    XlSortOrder xlAscending         End Select     Next i sortorder      Select Case LCase tag header          Case  yes              tag header   Excel xlYes         Case  no              tag header   Excel xlNo         Case  guess              tag header   Excel xlGuess         Case Else             tag header   Excel xlGuess     End Select      Select Case LCase tag matchcase          Case  true              tag matchcase   True         Case  false              tag matchcase   False         Case Else             tag matchcase   False     End Select       Select Case  UBound array sortkeys  - LBound array sortkeys    1          Case 1             Call excel range Sort Key1  array sortkeys 1   Order1  array sortorders 1   Header  tag header  MatchCase  tag matchcase          Case 2             Call excel range Sort Key1  array sortkeys 1   Order1  array sortorders 1   Key2  array sortkeys 2   Order2  array sortorders 2   Header  tag header  MatchCase  tag matchcase          Case 3             Call excel range Sort Key1  array sortkeys 1   Order1  array sortorders 1   Key2  array sortkeys 2   Order2  array sortorders 2   Key3  array sortkeys 3   Order3  array sortorders 3   Header  tag header  MatchCase  tag matchcase          Case Else             MsgBox  Error in sortkey parameter    amp  vbLf  amp   Maximum number of sort columns is 3    amp  vbLf  amp   Currently passed     amp   UBound array sortkeys  - LBound array sortkeys    1              End     End Select       For i row   1 To excel range Rows Count          For i column   1 To excel range Columns Count              array 2D i row  i column    excel range i row  i column           Next i column      Next i row       excel workbook Close False     excel application Quit      Set excel worksheet   Nothing     Set excel workbook   Nothing     Set excel application   Nothing       sort array 2D excel   array 2D   End Function     This is an example on how to test the function   Private Sub test sort        array unsorted   dim sort array        Call msgbox array array unsorted       array sorted   sort array 2D excel array unsorted  Array 2  1  3   Array  desc        asdas     yes    False        Call msgbox array array sorted   End Sub   Private Function dim sort array        Dim array unsorted 1 To 5  1 To 3  As String      i row   0      i row   i row   1     array unsorted i row  1     Column1   array unsorted i row  2     Column2   array unsorted i row  3     Column3       i row   i row   1     array unsorted i row  1     OR   array unsorted i row  2     A   array unsorted i row  3    array unsorted i row  1   amp       amp  array unsorted i row  2       i row   i row   1     array unsorted i row  1     XOR   array unsorted i row  2     A   array unsorted i row  3    array unsorted i row  1   amp       amp  array unsorted i row  2       i row   i row   1     array unsorted i row  1     NOT   array unsorted i row  2     B   array unsorted i row  3    array unsorted i row  1   amp       amp  array unsorted i row  2       i row   i row   1     array unsorted i row  1     AND   array unsorted i row  2     A   array unsorted i row  3    array unsorted i row  1   amp       amp  array unsorted i row  2       dim sort array   array unsorted  End Function   Sub msgbox array array 2D  Optional string info As String    2D array content         msgbox string   string info  amp  vbLf      For i row   LBound array 2D  1  To UBound array 2D  1           msgbox string   msgbox string  amp  vbLf  amp  i row  amp  vbTab          For i column   LBound array 2D  2  To UBound array 2D  2               msgbox string   msgbox string  amp  array 2D i row  i column   amp  vbTab          Next i column      Next i row      MsgBox msgbox string  End Sub     If anybody tests this using other versions of office please post here if there are any problems

User · Answer

Take a look here  Edit   The referenced source  allexperts com  has since closed  but here are the relevant author comments      There are many algorithms available on the web for sorting   The most versatile and usually the quickest is the Quicksort algorithm   Below is a function for it           Call it simply by passing an array of values  string or numeric  it doesn t matter  with the Lower Array Boundary  usually 0  and the Upper Array Boundary  i e  UBound myArray         Example  Call QuickSort myArray  0  UBound myArray        When it s done  myArray will be sorted and you can do what you want with it     Source  archive org    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  lt   tmpHi       While  vArray tmpLow   lt  pivot And tmpLow  lt  inHi          tmpLow   tmpLow   1      Wend       While  pivot  lt  vArray tmpHi  And tmpHi  gt  inLow          tmpHi   tmpHi - 1      Wend       If  tmpLow  lt   tmpHi  Then         tmpSwap   vArray tmpLow          vArray tmpLow    vArray tmpHi          vArray tmpHi    tmpSwap         tmpLow   tmpLow   1         tmpHi   tmpHi - 1      End If   Wend    If  inLow  lt  tmpHi  Then QuickSort vArray  inLow  tmpHi   If  tmpLow  lt  inHi  Then QuickSort vArray  tmpLow  inHi End Sub   Note that this only works with single-dimensional  aka  normal    arrays    There s a working multi-dimensional array QuickSort here

User · Answer

I think my code  tested  is more  educated   assuming the simpler the better   Option Base 1   Function to sort an array decscending Function SORT Rango As Range  As Variant     Dim check As Boolean     check   True     If IsNull Rango  Then         check   False     End If     If check Then         Application Volatile         Dim x   As Variant  n As Double  m As Double  i As Double  j As Double  k As Double         n   Rango Rows Count  m   Rango Columns Count  k   n   m         ReDim x n  m          For i   1 To n Step 1             For j   1 To m Step 1                 x i  j    Application Large Rango  k                  k   k - 1             Next j         Next i         SORT   x     Else         Exit Function     End If End Function

User · Answer

This is what I use to sort in memory - it can easily be expanded to sort an array   Sub sortlist        Dim xarr As Variant     Dim yarr As Variant     Dim zarr As Variant      xarr   Sheets  sheet   Range  sing col range       ReDim yarr 1 To UBound xarr   1 To 1      ReDim zarr 1 To UBound xarr   1 To 1       For n   1 To UBound xarr          zarr n  1    1     Next n      For n   1 To UBound xarr  - 1         y   zarr n  1          For a   n   1 To UBound xarr              If xarr n  1   gt  xarr a  1  Then                 y   y   1             Else                 zarr a  1    zarr a  1    1             End If         Next a         yarr y  1    xarr n  1      Next n      y   zarr UBound xarr   1      yarr y  1    xarr UBound xarr   1       yrng    A1 A   amp  UBound yarr      Sheets  sheet   Range yrng    yarr  End Sub

User · Answer

I wonder what would you say about this array sorting code  It s quick for implementation and does the job     haven t tested for large arrays yet  It works for one-dimensional arrays  for multidimensional additional values re-location matrix would need to be build  with one less dimension that the initial array           For AR1   LBound eArray  1  To UBound eArray  1              eValue   eArray AR1              For AR2   LBound eArray  1  To UBound eArray  1                  If eArray AR2   lt  eValue Then                     eArray AR1    eArray AR2                      eArray AR2    eValue                     eValue   eArray AR1                  End If             Next AR2         Next AR1

User · Answer

I posted some code in answer to a related question on StackOverflow   Sorting a multidimensionnal array in VBA  The code samples in that thread include    A vector array Quicksort  A multi-column array QuickSort  A BubbleSort    Alain s optimised Quicksort is very shiny  I just did a basic split-and-recurse  but the code sample above has a  gating  function that cuts down on redundant comparisons of duplicated values  On the other hand  I code for Excel  and there s a bit more in the way of defensive coding - be warned  you ll need it if your array contains the pernicious  Empty    variant  which will break your While    Wend comparison operators and trap your code in an infinite loop   Note that quicksort algorthms - and any recursive algorithm - can fill the stack and crash Excel  If your array has fewer than 1024 members  I d use a rudimentary BubbleSort     Public Sub QuickSortArray ByRef SortArray As Variant                                    Optional lngMin As Long   -1                                     Optional lngMax As Long   -1                                     Optional lngColumn As Long   0  On Error Resume Next  Sort a 2-Dimensional array   Sample Usage  sort arrData by the contents of column 3       QuickSortArray arrData      3    Posted by Jim Rech 10 20 98 Excel Programming  Modifications  Nigel Heffernan            Escape failed comparison with empty variant           Defensive coding  check inputs Dim i           As Long Dim j           As Long Dim varMid      As Variant Dim arrRowTemp  As Variant Dim lngColTemp  As Long  If IsEmpty SortArray  Then      Exit Sub  End If  If InStr TypeName SortArray          lt  1 Then   IsArray   is somewhat broken   Look for brackets in the type name      Exit Sub  End If  If lngMin   -1 Then      lngMin   LBound SortArray  1   End If   If lngMax   -1 Then      lngMax   UBound SortArray  1   End If   If lngMin    lngMax Then   no sorting required      Exit Sub  End If  i   lngMin  j   lngMax  varMid   Empty  varMid   SortArray  lngMin   lngMax    2  lngColumn     We  send  Empty  and invalid data items to the end of the list   If IsObject varMid  Then    note that we don t check isObject SortArray n   - varMid might pick up a valid default member or property      i   lngMax      j   lngMin  ElseIf IsEmpty varMid  Then      i   lngMax      j   lngMin  ElseIf IsNull varMid  Then      i   lngMax      j   lngMin  ElseIf varMid      Then      i   lngMax      j   lngMin  ElseIf varType varMid    vbError Then      i   lngMax      j   lngMin  ElseIf varType varMid    17 Then      i   lngMax      j   lngMin  End If  While i  lt   j      While SortArray i  lngColumn   lt  varMid And i  lt  lngMax          i   i   1      Wend      While varMid  lt  SortArray j  lngColumn  And j   lngMin          j   j - 1      Wend      If i  lt   j Then            Swap the rows          ReDim arrRowTemp LBound SortArray  2  To UBound SortArray  2            For lngColTemp   LBound SortArray  2  To UBound SortArray  2               arrRowTemp lngColTemp    SortArray i  lngColTemp               SortArray i  lngColTemp    SortArray j  lngColTemp               SortArray j  lngColTemp    arrRowTemp lngColTemp           Next lngColTemp          Erase arrRowTemp          i   i   1          j   j - 1      End If  Wend  If  lngMin  lt  j  Then Call QuickSortArray SortArray  lngMin  j  lngColumn   If  i  lt  lngMax  Then Call QuickSortArray SortArray  i  lngMax  lngColumn   End Sub

User · Answer

Heapsort implementation  An O n log n    both average and worst case   in place  unstable sorting algorithm   Use with  Call HeapSort A   where A is a one dimensional array of variants  with Option Base 1   Sub SiftUp A   As Variant  I As Long      Dim K As Long  P As Long  S As Variant     K   I     While K  gt  1         P   K   2         If A K   gt  A P  Then             S   A P   A P    A K   A K    S             K   P         Else             Exit Sub         End If     Wend End Sub  Sub SiftDown A   As Variant  I As Long      Dim K As Long  L As Long  S As Variant     K   1     Do         L   K   K         If L  gt  I Then Exit Sub         If L   1  lt   I Then             If A L   1   gt  A L  Then L   L   1         End If         If A K   lt  A L  Then             S   A K   A K    A L   A L    S             K   L         Else             Exit Sub         End If     Loop End Sub  Sub HeapSort A   As Variant      Dim N As Long  I As Long  S As Variant     N   UBound A      For I   2 To N         Call SiftUp A  I      Next I     For I   N To 2 Step -1         S   A I   A I    A 1   A 1    S         Call SiftDown A  I - 1      Next End Sub

User · Answer

Prasand Kumar  here s a complete sort routine based on Prasand s concepts   Public Sub ArrayListSort ByRef SortArray As Variant             Uses the sort capabilities of a System Collections ArrayList object to sort an array of values of any simple      data-type             AUTHOR  Peter Straton            CREDIT  Derived from Prasand Kumar s post at  https   stackoverflow com questions 152319 vba-array-sort-function                                                                                                                               Static ArrayListObj As Object     Dim i As Long     Dim LBnd As Long     Dim UBnd As Long      LBnd   LBound SortArray      UBnd   UBound SortArray        If necessary  create the ArrayList object  to be used to sort the specified array s values      If ArrayListObj Is Nothing Then         Set ArrayListObj   CreateObject  System Collections ArrayList       Else         ArrayListObj Clear   Already allocated so just clear any old contents     End If       Add the ArrayList elements from the array of values to be sorted   There appears to be no way to do this      using a single assignment statement        For i   LBnd To UBnd         ArrayListObj Add SortArray i      Next i      ArrayListObj Sort    Do the sort       Transfer the sorted ArrayList values back to the original array  which can be done with a single assignment      statement   But the result is always zero-based so then  if necessary  adjust the resulting array to match      its original index base       SortArray   ArrayListObj ToArray     If LBnd  lt  gt  0 Then ReDim Preserve SortArray LBnd To UBnd  End Sub

User · Answer

Dim arr As Object Dim InputArray   Creating a array list Set arr   CreateObject  System Collections ArrayList     String InputArray   Array  d    c    b    a    f    e    g     number  InputArray   Array 6  5  3  4  2  1     adding the elements in the array to array list For Each element In InputArray     arr Add element Next   sorting happens arr Sort   Converting ArrayList to an array  so now a sorted array of elements is stored in the array sorted array   sorted array   arr toarray

User · Answer

Somewhat related  but I was also looking for a native excel VBA solution since advanced data structures  Dictionaries  etc   aren t working in my environment  The following implements sorting via a binary tree in VBA    Assumes array is populated one by one Removes duplicates Returns a separated string   0 2 3 4 9   which can then be split    I used it for returning a raw sorted enumeration of rows selected for an arbitrarily selected range  Private Enum LeafType  tEMPTY  tTree  tValue  End Enum Private Left As Variant  Right As Variant  Center As Variant Private LeftType As LeafType  RightType As LeafType  CenterType As LeafType Public Sub Add x As Variant      If CenterType   tEMPTY Then         Center   x         CenterType   tValue     ElseIf x  gt  Center Then         If RightType   tEMPTY Then             Right   x             RightType   tValue         ElseIf RightType   tTree Then             Right Add x         ElseIf x  lt  gt  Right Then             curLeaf   Right             Set Right   New TreeList             Right Add curLeaf             Right Add x             RightType   tTree         End If     ElseIf x  lt  Center Then         If LeftType   tEMPTY Then             Left   x             LeftType   tValue         ElseIf LeftType   tTree Then             Left Add x         ElseIf x  lt  gt  Left Then             curLeaf   Left             Set Left   New TreeList             Left Add curLeaf             Left Add x             LeftType   tTree         End If     End If End Sub Public Function GetList        Const sep            If LeftType   tValue Then         LeftList    Left  amp  sep     ElseIf LeftType   tTree Then         LeftList   Left GetList  amp  sep     End If     If RightType   tValue Then         RightList    sep  amp  Right     ElseIf RightType   tTree Then         RightList   sep  amp  Right GetList     End If     GetList   LeftList  amp  Center  amp  RightList End Function   Sample code Dim Tree As new TreeList Tree Add  0   Tree Add  2   Tree Add  2   Tree Add  -1   Debug Print Tree GetList    prints  -1 0 2  sortedList   Split Tree GetList

User · Answer

Natural Number  Strings  Quick Sort   Just to pile onto the topic   Normally  if you sort strings with numbers you ll get something like this       Text1     Text10     Text100     Text11     Text2     Text20   But you really want it to recognize the numerical values and be sorted like       Text1     Text2     Text10     Text11     Text20     Text100   Here s how to do it     Note     I stole the Quick Sort from the internet a long time ago  not sure where now     I translated the CompareNaturalNum function which was originally written in C from the internet as well  Difference from other Q-Sorts  I don t swap the values if the BottomTemp   TopTemp   Natural Number Quick Sort  Public Sub QuickSortNaturalNum strArray   As String  intBottom As Integer  intTop As Integer  Dim strPivot As String  strTemp As String Dim intBottomTemp As Integer  intTopTemp As Integer      intBottomTemp   intBottom     intTopTemp   intTop      strPivot   strArray  intBottom   intTop    2       Do While  intBottomTemp  lt   intTopTemp             lt  comparison of the values is a descending sort         Do While  CompareNaturalNum strArray intBottomTemp   strPivot   lt  0 And intBottomTemp  lt  intTop              intBottomTemp   intBottomTemp   1         Loop         Do While  CompareNaturalNum strPivot  strArray intTopTemp    lt  0 And intTopTemp  gt  intBottom                intTopTemp   intTopTemp - 1         Loop         If intBottomTemp  lt  intTopTemp Then             strTemp   strArray intBottomTemp              strArray intBottomTemp    strArray intTopTemp              strArray intTopTemp    strTemp         End If         If intBottomTemp  lt   intTopTemp Then             intBottomTemp   intBottomTemp   1             intTopTemp   intTopTemp - 1         End If     Loop       the function calls itself until everything is in good order     If  intBottom  lt  intTopTemp  Then QuickSortNaturalNum strArray  intBottom  intTopTemp     If  intBottomTemp  lt  intTop  Then QuickSortNaturalNum strArray  intBottomTemp  intTop End Sub   Natural Number Compare Used in Quick Sort   Function CompareNaturalNum string1 As Variant  string2 As Variant  As Integer  string1 is less than string2 -1  string1 is equal to string2 0  string1 is greater than string2 1 Dim n1 As Long  n2 As Long Dim iPosOrig1 As Integer  iPosOrig2 As Integer Dim iPos1 As Integer  iPos2 As Integer Dim nOffset1 As Integer  nOffset2 As Integer      If Not  IsNull string1  Or IsNull string2   Then         iPos1   1         iPos2   1         Do While iPos1  lt   Len string1              If iPos2  gt  Len string2  Then                 CompareNaturalNum   1                 Exit Function             End If             If isDigit string1  iPos1  Then                 If Not isDigit string2  iPos2  Then                     CompareNaturalNum   -1                     Exit Function                 End If                 iPosOrig1   iPos1                 iPosOrig2   iPos2                 Do While isDigit string1  iPos1                      iPos1   iPos1   1                 Loop                  Do While isDigit string2  iPos2                      iPos2   iPos2   1                 Loop                  nOffset1    iPos1 - iPosOrig1                  nOffset2    iPos2 - iPosOrig2                   n1   Val Mid string1  iPosOrig1  nOffset1                   n2   Val Mid string2  iPosOrig2  nOffset2                    If  n1  lt  n2  Then                     CompareNaturalNum   -1                     Exit Function                 ElseIf  n1  gt  n2  Then                     CompareNaturalNum   1                     Exit Function                 End If                    front padded zeros  put 01 before 1                  If  n1   n2  Then                     If  nOffset1  gt  nOffset2  Then                         CompareNaturalNum   -1                         Exit Function                     ElseIf  nOffset1  lt  nOffset2  Then                         CompareNaturalNum   1                         Exit Function                     End If                 End If             ElseIf isDigit string2  iPos2  Then                 CompareNaturalNum   1                 Exit Function             Else                 If  Mid string1  iPos1  1   lt  Mid string2  iPos2  1   Then                     CompareNaturalNum   -1                     Exit Function                 ElseIf  Mid string1  iPos1  1   gt  Mid string2  iPos2  1   Then                     CompareNaturalNum   1                     Exit Function                 End If                  iPos1   iPos1   1                 iPos2   iPos2   1             End If         Loop           Everything was the same so far  check if Len string2   gt  Len String1            If so  then string1  lt  string2         If Len string2   gt  Len string1  Then             CompareNaturalNum   -1             Exit Function         End If     Else         If IsNull string1  And Not IsNull string2  Then             CompareNaturalNum   -1             Exit Function         ElseIf IsNull string1  And IsNull string2  Then             CompareNaturalNum   0             Exit Function         ElseIf Not IsNull string1  And IsNull string2  Then             CompareNaturalNum   1             Exit Function         End If     End If End Function   isDigit Used in CompareNaturalNum   Function isDigit ByVal str As String  pos As Integer  As Boolean Dim iCode As Integer     If pos  lt   Len str  Then         iCode   Asc Mid str  pos  1           If iCode  gt   48 And iCode  lt   57 Then isDigit   True     End If End Function

User · Answer

I converted the  fast quick sort  algorithm to VBA  if anyone else wants it   I have it optimized to run on an array of Int Longs but it should be simple to convert it to one that works on arbitrary comparable elements   Private Sub QuickSort ByRef a   As Long  ByVal l As Long  ByVal r As Long      Dim M As Long  i As Long  j As Long  v As Long     M   4      If   r - l   gt  M  Then         i    r   l    2         If  a l   gt  a i   Then swap a  l  i     Tri-Median Methode           If  a l   gt  a r   Then swap a  l  r         If  a i   gt  a r   Then swap a  i  r          j   r - 1         swap a  i  j         i   l         v   a j          Do             Do  i   i   1  Loop While  a i   lt  v              Do  j   j - 1  Loop While  a j   gt  v              If  j  lt  i  Then Exit Do             swap a  i  j         Loop         swap a  i  r - 1         QuickSort a  l  j         QuickSort a  i   1  r     End If End Sub  Private Sub swap ByRef a   As Long  ByVal i As Long  ByVal j As Long      Dim T As Long     T   a i      a i    a j      a j    T End Sub  Private Sub InsertionSort ByRef a    ByVal lo0 As Long  ByVal hi0 As Long      Dim i As Long  j As Long  v As Long      For i   lo0   1 To hi0         v   a i          j   i         Do While j  gt  lo0             If Not a j - 1   gt  v Then Exit Do             a j    a j - 1              j   j - 1         Loop         a j    v     Next i End Sub  Public Sub sort ByRef a   As Long      QuickSort a  LBound a   UBound a      InsertionSort a  LBound a   UBound a  End Sub

User · Answer

Explanation in German but the code is a well-tested in-place implementation   Private Sub QuickSort ByRef Field   As String  ByVal LB As Long  ByVal UB As Long      Dim P1 As Long  P2 As Long  Ref As String  TEMP As String      P1   LB     P2   UB     Ref   Field  P1   P2    2       Do         Do While  Field P1   lt  Ref              P1   P1   1         Loop          Do While  Field P2   gt  Ref              P2   P2 - 1         Loop          If P1  lt   P2 Then             TEMP   Field P1              Field P1    Field P2              Field P2    TEMP              P1   P1   1             P2   P2 - 1         End If     Loop Until  P1  gt  P2       If LB  lt  P2 Then Call QuickSort Field  LB  P2      If P1  lt  UB Then Call QuickSort Field  P1  UB  End Sub   Invoked like this   Call QuickSort MyArray  LBound MyArray   UBound MyArray

[arrays] VBA array sort function?

This is an example on how to test the function:

Examples related to arrays

Examples related to sorting

Examples related to vba

Examples related to vb6

Examples related to ms-project