Excel VBA How to sort a single-row Range -

-

i have range defined as

set myrange=range("$e$10,$g$10,$i$10")

the values in these cells -1, -1.2, 1 when iterate on range values printed in order of -1, -1.2, 1

i sort range when iterate on range see: -1.2, -1, 1

i not want reorganize these cells in actual worksheet.

i trying mimic sort function in normal programming language, excel range, expect 'cells' re-arranged within range data structure

i have tried naive

myrange.sort key1:=myrange.item(1, 1), order1:=xlascending, header:=xlno

but not anything

excel not sort non-contiguous range.

but using arraylist sort values easy ranges values in order. using sortanyrange it's desc parameter set true sort range in descending order.

enter image description here

windows only

sub testsortanyrange()     sortanyrange range("$e$10,$g$10,$i$10") end sub  sub sortanyrange(target range, optional desc boolean)     dim r range     dim list object     set list = createobject("system.collections.arraylist")     each r in target         list.add r.value     next      list.sort      if desc list.reverse      each r in target         r.value = list(0)         list.remove list(0)     next  end sub

mac or windows

the op requested subroutine work on either mac or windows platform. reason, refactored code replacing arraylist (not available on mac) array , bubblesort routine.

sub sortanyrange(target range, optional desc boolean)     dim r range     dim list     dim long, j long      redim list(0 target.cells.count - 1)      each r in target       list(i) = r.value       = + 1     next      = lbound(list) ubound(list)         j = + 1 ubound(list)             if list(i) > list(j)                 srttemp = list(j)                 list(j) = list(i)                 list(i) = srttemp             end if         next j     next      = iif(desc, ubound(list), 0)      each r in target         r.value = list(i)         = + iif(desc, -1, 1)     next  end sub

Comments

Post a Comment

Popular posts from this blog

php - How to display all orders for a single product showing the most recent first? Woocommerce -

-
i have password protected page on frontend. on page, want display full list of purchases associated single woocommerce product id. option 1: i've looked through woocommerce docs , , found: wc_cli_order , list_( $args, $assoc_args ) function lists orders. presumably, orders can filtered product id [--=] filter orders based on order property. line item fields (numeric array, started index zero): line_items.0.product_id option 2: i found article , based on customer id. i've modified code based on guesses meta_key , meta_value. $customer_orders = get_posts( array( 'numberposts' => -1, 'meta_key' => '_product', 'meta_value' => get_product_id(), 'post_type' => wc_get_order_types(), 'post_status' => array_keys( wc_get_order_statuses() ), ) ); how display orders single product showing recent order first? here solution put based on these articles: http://www.w...
Read more

asp.net - How to correctly use QUERY_STRING in ISAPI rewrite? -

-
i'm having difficult time , hope guys can help. using helicon isapi rewrite version 3.1.0.104 on our iis server. edit http.conf file , have tried , still fail. this trying do: redirect url: https://www.domain.com/switch-by-version?version=2.8.5.2594 to: https://test.domain.com/load/load.aspx?tver=2.8.5.2594 the version number @ end source url change, , need target url have same version number @ end of url example above shows. i tried following not work: rewritecond %{query_string} ^version=(\d\d?)\.(\d\d?)\.(\d\d?)\.(.*)$ [nc] rewriterule ^/switch-by-version(.*)$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l] any appreciated! thanks. if it's running in equivalent context of .htaccess , rule shouldn't start / . here's simpler version: rewritecond %{query_string} ^version=(\d+\.\d+\.\d+(?:\..+)?)$ [nc] rewriterule ^switch-by-version/?$ https://test.domain.com/load/load.aspx?tver=%1 [r=307,nc,l]
Read more

angularjs - How restrict admin panel using in backend laravel and admin panel on angular? -

-
https://scotch.io/tutorials/token-based-authentication-for-angularjs-and-laravel-apps following tutorials, try write authentication restrict admin panel, didn't understood how can that. this admin panel, admin panel don't want show , request database unauthenticated users. my laravel-routes route::get('/admin',function(){ return view('index'); }); route::get('/api/v1/employees/{id?}', 'employees@index'); route::get('/api/v1/users/{id?}', 'employees@users'); route::post('/api/v1/employees', 'employees@store'); route::post('/api/v1/employees/{id}', 'employees@update'); route::delete('/api/v1/employees/{id}', 'employees@destroy'); route::group(['prefix' => 'api'], function() { route::resource('authenticate', 'authenticatecontroller', ['only' => ['index']]); route::post('authenticate', 'authentic...
Read more