Anybody know VBA?

Adrian · #1 12-12-2006, 09:44 PM

I'm working on a VBA project, and I think I remember that a few people here had some expertise in this language. If there's anybody here that could help me with my problem (sorting a 2D array), would you mind if I posted some code?

Thanks,

Adrian

Edwin · #2 12-13-2006, 08:29 PM

Well, I could always try....

Adrian · #3 12-13-2006, 08:43 PM

If you could help out, that's great.

I got a modification of my code (a bubble sort that sorts a one-dimensional array) which now sorts a two dimensional array. The problem is, it doesn't work. I barely understand bubble sorts as it is, and I can't figure out why the second one won't sort. Here's the code:

Code:

 
Public Function SortArrayOfZips(location() As Variant) As Variant()
    Dim First As Integer, Last As Integer
    Dim i As Integer, j As Integer
    Dim Temp As String
    
    First = LBound(location)
    Last = UBound(location)
    
For i = First To Last
For j = First To (Last - i - 1)
If location(j, First) > location(j + 1, First) Then
Temp = location(j, 1)
location(j, 1) = location(j + 1, 1)
location(j + 1, 1) = Temp
End If
Next j
Next i
    
SortArrayOfZips = location()
End Function

Thanks much in advance!

Adrian

Edwin · #4 12-14-2006, 09:48 PM

Mind that bubble sort only sort a one dimensional array

1 - 5 - 4 - 7
2 - 5 - 9 - 1
8 - 4 - 2 - 3

How should this 2D array be sorted according to you?

Adrian · #5 12-15-2006, 03:11 AM

Thanks. The professor was pretty specific that the bubble sort could be adapted...I don't know though.

The 2D array (it may contain numbers or strings) should be run through the sort, and come out with the first element sorted in ascending order, the second element organized on the first element. So:
1-2
3-4
2-3
4-5
would come out:
1-2
2-3
3-4
4-5
Thanks much! I really appreciate it.

Adrian

Thomas Anderson · #6 12-15-2006, 03:25 AM

I remember doing bubble sorts in maths, one of the many things I've forgotten since, due to it having no use to me, in the 3 years since I finished college.

Edwin · #7 12-15-2006, 03:17 PM

I don't know enough of VBA concepts to implement a bubble sort.
The way I see it, you just implement a regular bubble sort. The only modification is that you surround it with a for-loop which bubblesort each column. That's why I don't get this statement:

Code:

For j = First To (Last - i - 1)

Since integer i seems the outer for loop which should iterate over the columns, while the inner for-loop (or loops) does an actual bubblesort. Otherwise, consult http://en.wikipedia.org/wiki/Bubble_sort because this is far too technical for this board

.

Anybody know VBA?

NBJ - Everything Else