LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5,600
Default Modify Excel's Sorting Procedure

Vinny,

As Rob says I can't see any other way other than with a macro to do
everything, or a bit of help from a UDF. Various approaches according to
overall needs. Try following UDF to insert a column of helper cells. Sort on
that together with the original column.

Function DisOrder(vInput) As String
Dim vArr, n As Long, c As Long
Dim sIn As String, sOut As String

' ("a", "b", "g", "d", "e", "z", "h", "q", _
' "i", "k", "l", "m", "n", "x", "o", "c", "f", _
' "j", "p", "r", "s", "t", "u", "v", "w", "y")

vArr = Array("a", "b", "p", "d", "e", "q", "c", "g", _
"i", "r", "j", "k", "l", "m", "o", "s", "h", _
"t", "u", "v", "w", "x", "y", "n", "z", "f")

sIn = LCase(vInput)
For n = 1 To Len(sIn)
c = Asc(Mid(sIn, n, 1))
If c 96 And c < 123 Then
sOut = sOut & vArr(c - 97)
Else
sOut = sOut & Chr(c)
End If
Next
DisOrder = sOut

End Function

You only gave the order of 15 out of 26 letters so I've guessed the others,
adjust the array as required.

Regards,
Peter T

"Rob van Gelder" wrote in message
...
There isn't an event for "On_Sort", so you cannot override it the nice

way.

The other (not so nice) way is to replace the Sort menu items and shortcut
keys with a custom macro.

I cant be more help I'm afraid.

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Vinny" wrote in message
...
Thanks for the help Rob,
But not exactly what I was looking for. Let me rephrase.

I actually want to sort a list by character, but in non alphabetical

order
(change the order to a, b, g, d, e, z, h, q, i, k, l, m, n, x, o ...

etc;
so
the leter combination 'ago' would appear before 'ado', for example). I
wouldn't, therefore, be able to create a list of all the leter
combinations.
I have created a procedure that will do this for me, but it works when i
press ctrl+s, and i was wondering if there was a way to append it to the
way
that excel already sorts, so that when I chose to sort by column E (the
column with these words in it) it will sort by my "alphabet" instead.
Doing
this would alow me to sort by column E, plus two other columns (i could
modify my existing macro to sort by the two other columns, but they

often
change, and sometimes I want to be able to sort by another column first
then
column E).

Thanks again,
Vinny







 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Stop a Procedure from another procedure Ayo Excel Discussion (Misc queries) 1 October 30th 08 01:42 AM
Calling a procedure in a procedure Norman Jones Excel Programming 8 August 20th 04 07:53 PM
Calling a procedure in a procedure N10 Excel Programming 2 August 18th 04 12:49 AM
Calling a procedure in a procedure Don Guillett[_4_] Excel Programming 1 August 17th 04 11:31 PM


All times are GMT +1. The time now is 09:37 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"