Speed up looping?

[alee001]

I tried to use method A instead of method B to speed up the loop process in function, but in the massive fx calculation did not significantly accelerate, do you know why?

Dim lot_now As Long

Method A:
   Dim lot_chk As Long
   lot_chk = 0
rtn_chk:
   If lot_now > 10 Then
     step = 10
   Else
     step = 2
   End If
   If amt - lot_now * rate < min_cost And lot_now > 0 Then
     If lot_now = lot_chk Then
       lot_now = lot_now - 1
       GoTo fx_exit  'exit loop
     End If
     lot_now = lot_now - step
     GoTo rtn_chk
   Else
     lot_now = lot_now + 1
     lot_chk = lot_now
     GoTo rtn_chk
   End If

Method B:
Do While amt - lot_now * rate < min_cost And lot_now > 0
   lot_now = lot_now - 1
Loop

 

[jkpieterse]

What I meant was to modify your code like so:

    Dim bkg
    Dim bkg_min
    Dim lvy
    Dim stp
    Dim tra
    Dim qty
    Dim lv
    Dim stm_min
    Dim stm_max
    Dim cty
    
    bkg = Range("bkg").Value2
    bkg_min = Range("bkg_min").Value2
    lvy = Range("lvy").Value2
    stp = Range("stp").Value2
    tra = Range("tra").Value2
    qty = Range("qty").Value2
    lv = Range("lv").Value2
    stm_min = Range("stm_min").Value2
    stm_max = Range("stm_max").Value2
    cty = Range("cty").Value2

    Do While amt - c0 - c1 - c2 _
       - Application.Max(amt * bkg, bkg_min) _
       - amt * (lvy + stp + tra) _
       - lot_now * qty * prt - Application.Max(lot_now * qty * prt * bkg, bkg_min) _
       - lot_now * qty * prt * (lv + stp + tra) _
       - Application.Min(Application.Max(lot_now * qty * prt * stm, stm_min), stm_max) < cty * 12 And lot_now > 0
        lot_now = lot_now - 1
    Loop

Of course how much this improves speed highly depends on the number of times the loop needs to be run.