excel - Generating same random number max 6 times vba -


my problem trying series of random numbers let between 1-10 , these numbers going spread out on 50 posts , same random number can occur max 6 times.

(edited)

my current code written count rows value divided 6 determine how many different random numbers need. if 58 cells have value need random numbers between 1-10. think max rows need 200

dim integer dim integer  a1 = activesheet.usedrange.rows.count  range("e1") = a1  = 1 a1 minnumber = 1 maxnumber = a1 / 6 range("d1") = maxnumber  cells(i, 1).value = int((rnd * (maxnumber - minnumber + 1)) + minnumber) next

this code uses dictionary enter initial range of required numbers, , remove them 1 one. 

sub recut()  dim long  dim objdic object dim lngcnt long dim lngcnt2 long dim lngcnt3 long  dim lngtot long dim lngout long dim lngnum long  lngtot = application.inputbox("input number of items generate", , activesheet.usedrange.rows.count)  set objdic = createobject("scripting.dictionary") minnumber = 1 maxnumber = int(lngtot / 6) + 1  lngcnt = 1 6     lngcnt2 = 1 maxnumber         lngcnt3 = lngcnt3 + 1         objdic.add lngcnt2 & "|" & lngcnt, lngcnt3     next next  lngout = 1     lngnum = int(rnd() * objdic.count)     cells(lngout, 1) = application.index(split(objdic.keys(lngnum), "|"), 1)     objdic.remove objdic.keys(lngnum) next end sub

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more