vba - Stuck on 'Case' assignment/wording -

-

much have received on forum particular code; thought had there must beg assistance 1 again. think best explanation can give below in pseudo-code! once case selection portion done repeat same process through months have change referenced cells. 

sub popcol()   range("d3:d19").formula = "=rc[-1]-rc[-2]"  'd=c-b , delta equal cap minus dem     = 3 19     range("d" & i) = clng(range("c" & i) - range("b" & i))     if (range("d" & i) < 0)         range("e" & i) = range("e" & i) - range("d" & i)     else         range("f" & i) = range("f" & i) + range("d" & i)     end if next  range("g3:g19").formula = "=rc[-1]-rc[-2]"  'g=f-e , delta equal cap minus dem  'if delta (h)= capacity (g) continue, if g<0 go on prior months negative , add        capacity 'then recalculate, else g>0 - go on prior months , subtract(a neg) demand (same  adding absolute value). recalculate all.  = 3 19     range("g" & i) = clng(range("f" & i) - range("e" & i)) select case (range("g" & i)) 'may    'case "g" = range ("f" & i)  continue case = range("f" & i)           goto line 35  'case "g" < "0" check d if >0,("d"&i)=("d"&i)-("g" & i)       '{then compare d c, balance on equal placed in g , d & c end equal. goto beginning of sub} case < "0"         ("d"&i)=("d"&i)-("g" & i)else goto line 5  case else      'case "g" > "0" check d if <0,("c"&i)=("c"&i)-("g" & i) "(then compare d c, balance on  equal placed in g , d & c end equal.goto beginning of sub}     if range("g" & i) > "0" end select  'next june = 3 19     range("j" & i) = clng(range("i" & i) - range("h" & i)) select case "june"     'case "h" = range ("f" & i)  continue     'case "h" < "0" check g if >0,("g"&i)=("g"&i)-("j" & i) {then compare g f, balance on  equal    placed in j , g & f end equal. goto beginning of sub}     'case "h" > "0" check g if <0,("f"&i)=("f"&i)-("j" & i) (then compare g f, balance on equal  placed in j , g & f end equal. goto beginning of sub} end select  next  'continue on july, august, sept, oct, nov, dec, jan 14, feb 14 in feb 14 place balance on  equal in  end sub

thank soooo much!

your question hard understand. have posted example of code should resemble , can fill in blanks.

for = 3 19     range("g" & i).value = clng(range("f" & i).value) - clng(range("e" & i).value)     select case clng((range("g" & i)).value)         case clng(range("f" & i).value)               goto line 35         case < "0"             '("d"&i)=("d"&i)-("g" & i)else goto line 5  <--- wrong, use 2nd see reformat line.         case else             goto line 35     end select next

Comments

Post a Comment

Popular posts from this blog

Delphi XE2 Indy10 udp client-server interchange using SendBuffer-ReceiveBuffer -

-
i use delphi xe2 , indy10 udp protocol. can't receive server echo on client side if use receivebuffer method. got "socket error # 10040" although send small echo message server client. console application illustrate problem below. in advance. program project1; {$apptype console} {$r *.res} uses system.sysutils, idglobal, idbasecomponent, idcomponent, idsockethandle, idudpclient, idudpserver, idudpbase, idstack; type tudp_serv = class(tidudpserver) procedure udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); end; var udpserver: tudp_serv; udpcl: tidudpclient; bsnd, brcv: tbytes; s: string; k: integer; //============================================================================== procedure tudp_serv.udpsvudpread(athread: tidudplistenerthread; adata: tidbytes; abinding: tidsockethandle); begin writeln(' server read: ' + tohex(adata, length(adata))); abinding sendto(peerip, peerport, adat...
Read more

Qt ActiveX WMI QAxBase::dynamicCallHelper: ItemIndex(int): No such property in -

-
i new windows programming. here goes code objiwbemlocator = new qaxobject("wbemscripting.swbemlocator"); objwmiservice = objiwbemlocator->querysubobject("connectserver(qstring&,qstring&)",qstring("."),qstring("root\\cimv2")); qaxobject* returnlist = objwmiservice->querysubobject("execquery(qstring&)", qstring("select * %1").arg(domain)); qaxobject* result = returnlist->querysubobject("itemindex(int)", 0); i getting error on runtime qt activex wmi qaxbase::dynamiccallhelper: itemindex(int): no such property in but itemindex method exists msdn says the itemindex method not work collections not contain swbemobjects, such swbemmethodset, swbemnamedvalueset, swbemprivilegeset, swbempropertyset, , swbemqualifierset. what selecting ? have tried iterating on collection ? plus need minimum windows vista itemindex method. hope helps
Read more

Enable autocomplete or intellisense in Atom editor for PHP -

-
i'm first time user of atom editor php code. atom can autocomplete built-in functions of php. possible make editor autocomplete custom function written in separate file? function.php <?php function printsomething() { echo "hello world"; } index.php <?php require_once "function.php"; printsomething(); // autocompleted atom editor while typing thanks in advance. there text file in %userprofile%.atom called snippets.cson. in there can add snippet. more this: http://flight-manual.atom.io/using-atom/sections/snippets/ but need think can use later on other files well. otherwise need copy , paste.
Read more