This Excel VBA Macro is too Slow -


is there way speed code. new vba (only started week) , i've made attempt @ writing macro automatically calculate amount of money required borrowed based on financial model.

to give context, cell informs peak borrowing requirement (pbr) cell on worksheet when increase value of facility required (fr) pbr due interest , various other charges on amount being borrowed.

i've created series of while loops fr value closest 10,000 is incredibly slow. i'm sure there must more elegant way write cant seem able figure out. preferably turn function rather sub i'm not sure if possible.

here code far, give appreciated!

' sub procedure calculate peak borrowing requirement'  sub calculatefacilityrequiredbutton() dim pbr long ' stores initial peak borrowing requirement viability page dim fr long ' stores facility required inputs page  ' set pbr variable value viability page  worksheets("viability").activate pbr = cells(9, "k").value  ' set starting value @ current peak borrowing rate viability page  worksheets("viability").activate fr = cells(9, "k").value  while fr <= pbr if fr <= pbr  fr = fr + 1000000 worksheets("inputs").activate range("n47").value = fr  worksheets("viability").activate pbr = cells(9, "k").value  end if  loop   while fr > pbr + 100000 if fr > pbr + 100000  fr = fr - 100000 worksheets("inputs").activate range("n47").value = fr  worksheets("viability").activate pbr = cells(9, "k").value    end if  loop  while fr > pbr + 10000 if fr > pbr + 10000  fr = fr - 10000 worksheets("inputs").activate range("n47").value = fr  worksheets("viability").activate pbr = cells(9, "k").value    end if  loop  worksheets("inputs").activate  end sub

your while loop seem have same condition if condition. can see, ever perform 1 loop in while loop. don't think need while loops. also, others have mentioned, don't try activating sheets. qualify sheet as:

dim ow worksheet: set ow = thisworkbook.worksheets("viability")

you can use ow.range("n47").value = fr. should point in right direction


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj...
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer ...
Read more

c# - Asp.net web api : redirect unauthorized requst to forbidden page -

im trying redirect unauthorized request forbidden page instead i'm getting forbidden page in response body , how can fix ? here's startup class : app.createperowincontext(storecontext.create); app.createperowincontext<applicationusermanager>(applicationusermanager.create); app.createperowincontext<applicationsigninmanager>(applicationsigninmanager.create); app.usecookieauthentication(new cookieauthenticationoptions { authenticationtype = defaultauthenticationtypes.applicationcookie, expiretimespan = timespan.fromdays(30), }); app.useexternalsignincookie(defaultauthenticationtypes.externalcookie); app.usetwofactorsignincookie(defaultauthenticationtypes.twofactorcookie, timespan.fromminutes(5)); app.usetwofactorrememberbrowsercookie(defaultauthenticationtypes.twofactorrememberbrowsercookie); the method im trying reach : [httpget] [authorize(roles = "admin")] public string getcurrentusername() { return userman...
Read more