How to show entries of a shuffled array in VBA / Excel -


i've been trying shuffle 11-integer array , paste shuffled array excel. i've found code want, instead of returning shuffled entries of array shows shuffled row numbers (col a) , random numbers used sorting (col b).

i'm new vba , can't figure out return entry of array corresponds shuffled row number in col a, if makes sense? want see shuffled entries , not row numbers or random numbers. hope makes sense! i'm using:

sub shuffle()  dim intnumbers(1 11) integer  'the list of numbers want shuffle  intnumbers(1) = 1 intnumbers(2) = 1 intnumbers(3) = 1 intnumbers(4) = 1 intnumbers(5) = 1 intnumbers(6) = 1 intnumbers(7) = 2 intnumbers(8) = 5 intnumbers(9) = 6 intnumbers(10) = 3 intnumbers(11) = 7  dim rngnumbers range dim rngrandom range dim rngsort range dim rngtemp range    set rngnumbers = activesheet.range("a1:a11") set rngrandom = activesheet.range("b1:b11") set rngsort = activesheet.range("a1:b11")    randomize  ' store number , random sequence each rngtemp in rngrandom     rngtemp = rnd()     rngtemp.offset(0, -1) = rngtemp.row next  rngsort.sort key1:=rngsort.columns(2) each rngtemp in rngnumbers     intnumbers(rngtemp.value) = rngtemp  next    end sub

i can see code doing can't figure out how i'd like. still got lot learn!

try code. leave original rows in column a, sorted random numbers a>z in column b, , in column c: index of array, dependent on row number.

sub shuffle()  dim intnumbers(1 11) integer  'the list of numbers want shuffle intnumbers(1) = 1 intnumbers(2) = 1 intnumbers(3) = 1 intnumbers(4) = 1 intnumbers(5) = 1 intnumbers(6) = 1 intnumbers(7) = 2 intnumbers(8) = 5 intnumbers(9) = 6 intnumbers(10) = 3 intnumbers(11) = 7  dim rngnumbers range dim rngrandom range dim rngsort range dim rngtemp range    set rngnumbers = activesheet.range("a1:a11") set rngrandom = activesheet.range("b1:b11") set rngsort = activesheet.range("a1:b11")    randomize  ' store number , random sequence each rngtemp in rngrandom     rngtemp = rnd()     rngtemp.offset(0, -1) = rngtemp.row next  rngsort.sort key1:=rngsort.columns(2) each rngtemp in rngnumbers     rngtemp.offset(0, 2).value = intnumbers(rngtemp)  next    end sub

Comments

Post a Comment

Popular posts from this blog

toolbar - How to add link to user registration inside toobar in admin joomla 3 custom component -

im trying write component admin side , need add user creation. dont want duplicate existing codes add link. know how add task not simple link toolbar. thx help. if wanting button opens new user screen can try in component: $bar = jtoolbar::getinstance('toolbar'); $bar->appendbutton('link', 'users', 'new user','index.php?option=com_users&task=user.add'); you need add view.html.php file wherever you're creating toolbar. is need?
Read more

linux - disk space limitation when creating war file -

i have 1 gb disk space limitation hosting app , have used 700mb of it. however want create war file directory big (around 600mb) using command : jar -cvf root.war folderpath that's why encounter quota limitation , can't following. i'm looking way delete folder content when it's applying archive conserve disk space take note can't install zip tool in ssh shell ~ the code works on test directories, test first anyway, deletes files. it's not efficient. assumptions: 300mb free space, in destructively compress 600mb folderpath directory. none of files big -- if file in folderpath 300mb or larger, fail. notes: if ' $out ' file exists, nothing. first find pipes file list while , if ' $out ' doesn't exist in loop, create it, don't update -- if does exist, update it. each pass adds 1 more file, deletes unless file directory. after loop finishes delete empty directories too. unset u ; in=folderpath ; out=roo...
Read more

How to provide Authorization & Authentication using Asp.net, C#? -

Image
i have asp.net application in c#. i have provide page authorization specific user/usergroup. i have created 2 tables in database: 1) pagename 2)permissions[insert, update, view, delete] but i'm unable match tables , permissions assigning... can 1 please me, how created tables in database , how coding. please me. you can below explanation. configure access specific file , folder, set forms-based authentication. request page in application redirected logon.aspx automatically. in web.config file, type or paste following code. this code grants users access default1.aspx page , subdir1 folder . <configuration> <system.web> <authentication mode="forms" > <forms loginurl="login.aspx" name=".aspnetauth" protection="none" path="/" timeout="20" > </forms> </authentication> <!-- section denies access files in...
Read more