EXCEL VBA Run Solver Over Multiple rows Using a Loop -


hi all: brand new vba, used macro recorder gist of code want. of inputs solver in 1 row (e.g. row 19 of worksheet). objective cell in column r, decision cells in columns e , f , constraint in column g. want create more input rows, 10, 10 objective functions in column r etc... want keep columns fixed create loop loops on 10 rows, running solver each row , resets , runs next row. when reaches row 10 checks see if $r29 "" if stops running.

i know should use form of "do while cells(row,1) <> "" " contruction, @ losts how create simple loop in vba. thank you

    sub rr_sc_optimizer() ' ' rr_sc_optimizer macro '  '     solverok setcell:="$r$19", maxminval:=2, valueof:=0, bychange:="$e$19:$f$19", _         engine:=1, enginedesc:="grg nonlinear"     solveradd cellref:="$e$19", relation:=1, formulatext:="$g$19"     solverok setcell:="$r$19", maxminval:=2, valueof:=0, bychange:="$e$19:$f$19", _         engine:=1, enginedesc:="grg nonlinear"     solverok setcell:="$r$19", maxminval:=2, valueof:=0, bychange:="$e$19:$f$19", _         engine:=1, enginedesc:="grg nonlinear"     solversolve     solverok setcell:="$r$19", maxminval:=2, valueof:=0, bychange:="$e$19:$f$19", _         engine:=1, enginedesc:="grg nonlinear" end sub

you can try following script (untested):

sub rr_sc_optimizer()      dim rngobjectcells range     set rngobjectcells = range("r19:r28")      dim rngobjectcell range      each rngobjectcell in rngobjectcells          solverreset         solverok setcell:=rngobjectcell.address, maxminval:=2, valueof:=0, bychange:=rngobjectcell.offset(0, -13).range("a1:b1").address, _             engine:=1, enginedesc:="grg nonlinear"         solveradd cellref:=rngobjectcell.offset(0, -13).address, relation:=1, formulatext:=rngobjectcell.offset(0, -11).address         solverok setcell:=rngobjectcell.address, maxminval:=2, valueof:=0, bychange:=rngobjectcell.offset(0, -13).range("a1:b1").address, _             engine:=1, enginedesc:="grg nonlinear"         solverok setcell:=rngobjectcell.address, maxminval:=2, valueof:=0, bychange:=rngobjectcell.offset(0, -13).range("a1:b1").address, _             engine:=1, enginedesc:="grg nonlinear"         solversolve         solverok setcell:=rngobjectcell.address, maxminval:=2, valueof:=0, bychange:=rngobjectcell.offset(0, -13).range("a1:b1").address, _             engine:=1, enginedesc:="grg nonlinear"      next  end sub

basically looping through hardcoded range r19:r28 (not r29 make 11 rows) , each value in column r running solver. references in solver based on cell looping through. hope serves purpose. regards,


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

jquery - javascript onscroll fade same class but with different div -

i new @ javascript , want learn new. there wrong code : why div fades @ same time. i want ask how fade different div s same class name.can me , explain me. thanks in advance. javascript: $(window).scroll(function(){ if ($( "div.fade" ).offset().top - $(window).scrolltop() <= 100){ $('.fade').addclass( "fade-in"); } else { $('.fade').removeclass("fade-in"); } }); here jsfiddle onscroll = function () { var scrolltop = $(this).scrolltop() ; $("div.fade").each(function(){ if(($(this).offset().top - scrolltop) <= 100){ $(this).toggleclass("fade-in"); } }) }
Read more