Appendix Thread 2. ( Codes for other Threads, HTML Tables, etc.)

[DocAElstein]

Take an example,
A list of Foods, their name in first column and a few other things like calories(Kcal) and Salt content in other columns

First I want to sort to group similar products (based on alphabetical order, but ascending or descending is not important) - This will be sorting on column 1 values

Within similar food types, I want to list them in an order of how healthy they might be, ( or at least in the order of least unhealthy ) .
Most important would be order starting with lowest Kcal.
After that for similar products with similar Kcal , we would consider the minimum salt content as likely to be the less unhealthy.

This might be our list
_____ ( Using Excel 2007 32 bit )

Row\Col	R	S	T	U	V	W
22	Food Product	Was S22	Kcal	Was U22	Salt	Was W22
23	Crisps	Was S23	500	Was U23	0.7	Was W23
24	Beer	Was S24	200	Was U24	0.1	Was W24
25	Wine	Was S25	150	Was U25	0.15	Was W25
26	Beer	Was S26	200	Was U26	0.07	Was W26
27	beer	Was S27	220	Was U27	0.2	Was W27
28	Beer	Was S28	210	Was U28	0.06	Was W28
29	Wine	Was S29	160	Was U29	0.04	Was W29
30	wiNe	Was S30	150	Was U30	0.03	Was W30
31	Crisps	Was S31	502	Was U31	2	Was W31
32	Onion Ringes	Was S32	480	Was U32	1	Was W32
33	Onion Ringes	Was S33	490	Was U33	1.5	Was W33
34	Crisps	Was S34	502	Was U34	1.5	Was W34
35	CRISPS	Was S35	500	Was U35	1.1	Was W35
36	Wine	Was S36	170	Was U36	0.1	Was W36
37	Crisps	Was S37	500	Was U37	3	Was W37

Worksheet: Sorting


Here is a demo Calling test routine

Sub TestieSimpleArraySort6()
Rem 0 test data, worksheets info
Dim WsS As Worksheet: Set WsS = ThisWorkbook.Worksheets("Sorting")
Dim RngToSort As Range: Set RngToSort = WsS.Range("R23:W37")
' Set RngToSort = Selection '                          ' Selection.JPG : https://imgur.com/HnCdBt8
Dim arrTS() As Variant: Let arrTS() = RngToSort.Value ' We would have to use  .Value  for a range capture of this sort because  .Value  returns a field of Variant types.  But also at this stage we want to preserve string and number types
' Call SimpleArraySort6(1, arrTS(), " 1 2 3 4 5 ", " 1 Asc 2 Asc 3 Asc")
Dim cnt As Long, strIndcs As String: Let strIndcs = " "
    For cnt = 1 To RngToSort.Rows.Count
     Let strIndcs = strIndcs & cnt & " "
    Next cnt
Debug.Print strIndcs ' For 5 rows , for example we will have  " 1 2 3 4 5 " , for 15 rows  " 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 "
 Call SimpleArraySort6(1, arrTS(), strIndcs, " 1 Desc 3 Asc 5 Asc")
Rem 2 Output for easy of demo
' 2a
 RngToSort.Offset(0, RngToSort.Columns.Count).Clear
 Let RngToSort.Offset(0, RngToSort.Columns.Count).Value = arrTS()
 Let RngToSort.Offset(0, RngToSort.Columns.Count).Interior.Color = vbYellow
' 2b VBA Range.Sort Method equivalent
Dim TestRngSrt As Range: Set TestRngSrt = RngToSort.Offset(0, RngToSort.Columns.Count * 2)
 TestRngSrt.Clear
 Let TestRngSrt.Value = RngToSort.Value
 TestRngSrt.Sort Key1:=TestRngSrt.Columns("A:A"), order1:=xlDescending, Key2:=TestRngSrt.Columns("C:C"), order2:=xlAscending, Key3:=TestRngSrt.Columns("E:E"), order3:=xlAscending
 TestRngSrt.Interior.Color = vbGreen
End Sub
'

That above routine uses the test range R23:W37 above and feeds that to the main recursion routine below in the next post. The demo routine also does the VBA Range.Sort equivalent code line