excel - VBA Array Sort with Fieldname as Parameter -


here's deal...in trying past fear of class modules in excel vba, decided create class array, add functions (methods) adding elements, sorting instance, etc. things keep re-writing in normal modules functions/subs hope use of classes might step forward.

code module

public type thing    name string    somenumber double end type

class module

private psomething() thing

this followed usual public lets , gets, plus function inserting new values array. sorting function/method. there no problem sorting name or somenumber, far takes 2 function/methods. parameterize single function/mehod use optional parameter control field used. following works, seems bit clunky

function sortbyfield(optional fieldname string, optional sortorder vbasortorder)     dim strtemp thing     if sortorder = 0 sortorder = sobottomtotop     if len(fieldname) = 0 fieldname = "name"     dim long     dim j long     dim lngmin long     dim lngmax long     lngmin = lbound(psomething)     lngmax = ubound(psomething)     = lngmin lngmax - 1       j = + 1 lngmax         if iif(sortorder = sobottomtotop, _                               iif(fieldname = "name", psomething(i).name > psomething(j).name, _                                                        psomething(i).somenumber > psomething(j).somenumber), _                               iif(fieldname = "name", psomething(i).name < psomething(j).name, _                                                        psomething(i).somenumber < psomething(j).somenumber)) _                                         strtemp = psomething(i)           psomething(i) = psomething(j)           psomething(j) = strtemp         end if       next j     next end function

what replace following (and it's peer in second part of gawdawful if(iif...) nonsense

iif(fieldname = "name", psomething(i).name > psomething(j).name, psomething(i).somenumber > psomething(j).somenumber)

...with this

"psomething(i)." & fieldname > "psomething(j)." & fieldname

direct question: how string evaluate/convert code?

indirect question: there other technique pass in fieldname , have treated other string?

thanks in advance help, assistance, guidance, direction, references, advice fool's errand, or derisive comments :).

biggerdon, trying follow code , right nested iif gawdawful. can suggest rewrite code select case statements. might bit. further, big objective trying achieve? looks overkill single dimension array.

there might other excel vba built in methods can capitalize on.

i did quick internet search on sorting arrays , came across pearson's website http://www.cpearson.com/excel/sortingarrays.aspx

you might check out.


Comments

Post a Comment

Popular posts from this blog

c++ - Difference between pre and post decrement in recursive function argument -

i have following sample code used pre-decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(--c); cout << c << endl; return; } } this function give output input 4 : dp3 dp2 dp1 dp0 0 1 2 3 but when use post decrement void function(int c) { if(c == 0) { return; } else { cout << "dp" << c << endl; function(c--); cout << c << endl; return; } } output goes in infinite loop dp4 can explain me in detail why happens ? this happens because function(c--) called same value of c , when finishes c decremented. recursively called, hence called same value no chance of return , hit stack overflow error. assume this, int x = 1, y = 0; y = x++ result y == 1 , x == 2. if y = ++x , bot x , y 2.
Read more

php - Nothing but 'run(); ' when browsing to my local project, how do I fix this? -

i added new project. made mistake in projectname.conf file in sites-available apache2, led me reinstalling apache2. after reinstalling , re-enabling projects on every page of every project .. <body> run(); </body> .. i've run composer update, restarted service, restarted pc, checked config files, tried disabling new project. there nothing in error log, , access.log: 127.0.0.1 - - [15/may/2015:01:40:47 +0200] "get / http/1.1" 304 181 "-" "mozilla/5.0 (x11; ubuntu; linux x86_64; rv:38.0) gecko/20100101 firefox/38.0" maybe i'm forgetting apache2 reinstall? don't think did different last time installed it. looks haven't setup php correctly. take @ this great guide , maybe you're forgetting link php config apache2.
Read more

php - How can I echo out this array? -

i don't know how go grabbing data in variable , put foreach loop. class tree{ private $info = array( array('name'=>'jim','state'=>'nu','company'=>'nu','phone'=>array('cell'=>'5615111111','office'=>'5611111111'),'email'=>array('primary'=>'exs@example.com','ex@there.com')), array('name'=>'joe smith','city'=>'phoenix','phone'=>'4805551111','email'=>'jsmith@some_email.com'), array('name'=>'john doe','city'=>'chandler','company'=>'doe co.','email'=>array('jdoe@gmail.com','personal'=>'email@email.com'),'phone'=>'6025550002') ); } if you're inside of class, can access private variable using $this->variablename . example, i...
Read more