VBA Excel "error 13: type mismatch" -


i used code create 100000 numbers (12 digit unique random numeric numbers )

sub uniqueramdom()  const strcharacters string = "0123456789"  dim cllalphanums collection dim arrunqalphanums(1 60000) string dim varelement variant dim stralphanum string dim alphanumindex long dim lubound long dim lnumchars long dim long  set cllalphanums = new collection lubound = ubound(arrunqalphanums) lnumchars = len(strcharacters)  on error resume next     stralphanum = vbnullstring     = 1 12         stralphanum = stralphanum & mid(strcharacters, int(rnd() * lnumchars) + 1, 1)     next     cllalphanums.add stralphanum, stralphanum loop while cllalphanums.count < lubound on error goto 0  each varelement in cllalphanums     alphanumindex = alphanumindex + 1     arrunqalphanums(alphanumindex) = varelement next varelement  range("a1").resize(lubound).value = application.transpose(arrunqalphanums)  set cllalphanums = nothing erase arrunqalphanums  end sub

it works with:     dim arrunqalphanums(1 50000) string

but with:     dim arrunqalphanums(1 100000) string , not working , producing error : type mismatch

i have following code in here http://www.excelforum.com/

you have hit limitation of transpose. below work

dim arrunqalphanums(1 65536 ) string 'remember number 65536?

this wont work 

dim arrunqalphanums(1 65537 ) string

you find limitation inherited on ranges prior versions of excel. microsoft may have left business incomplete

you refactor code below 

option explicit sub uniqueramdom()      const strcharacters string = "0123456789"      dim stralphanum string     dim alphanumindex long     dim lubound long     dim lnumchars long     dim long     dim irow long     irow = 1      lubound = 100000 'change here ubound. can increase execution time.     lnumchars = len(strcharacters)      on error resume next             stralphanum = vbnullstring         = 1 12             stralphanum = stralphanum & mid(strcharacters, int(rnd() * lnumchars) + 1, 1)         next         cells(irow, 1) = stralphanum         irow = irow + 1     loop while irow <= lubound     on error goto 0   end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more