%]IN|THgdş|G'vJp,dlq"`[z]3d8ܿiMO(znL[z%"P,K5] +#_)x-:0c`9e8m^KF'.$"*DZ2ce_GpBZ^1zˉ-')icĮ%xakudhcq6Qʽ>YPK!"0drs/downrev.xml\_O0M5MMtR!QA"Hխ;ط{{OFVd'-bw< B%:-U`|:R^i%셅Tj.v4Q6
616)䶣7Ba/Frijx沢]ϻ
7|#ƅHd0}U9rrWM3zD.Q\@debe7 Sheet2b(b(
ggD
VBAtcLcSheet1 ThisWorkbookSheet2#(SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1"
Bast0{00020820- C$0046}
|Global!SpacFalsedCreatablPre declaIdTru
BExposeTemplateDeriv$BustomizD2e#xME(SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook"
Bas0{00020P819-0C$0046}
|GlobalSpacFalsedCreatablPredeclaIdTru
BExposeTemplateDerivBustomizD2a *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{000208indo]D Tru]D0nd I]Dw
E] X] ]xi](@ S]Xp p(r'^At ^Gvj < 8$x!z'd" < :$x!z'f'l'n < 4$x!z < 8$x!z p%| < 0$x(z < 0$x!z'h < 6$x!z < :$x!z p%| < 2$x(z < 2$x!z'j B @$x(z_ n B n @$x(z < l 4$x < l 0$x < l 2$x p%|'h h < n 4$x(zdo h < 8$x p%| < n 0$x(z < l 6$x < l 0$x < l 2$x p%|'j j < n 6$x(z j < :$x p%| < n 2$x(z l'l n'n < n 0$x < n 2$x n B n @$x(z < n 4$x!z < n 4$x(z < n 6$x!z < n 6$x(z < n 0$x!z < n 0$x(z < n 2$x!z < n 2$x(z TnumRows$~!z V$x!z D F$x(z D F$x!z H J$x(z X Z$x!z L N$x(z X \$x!z P R$x(zv p(ro < 4$x!z < 6$x!z *A@|xkp < 8$x!z < :$x!z < 8$x!z ,A@d .A@k|ko] p(rnumRows$~B@=COUNTA($A:$A) (numRows$~!z'` ` < @$x(z < 4$x(z < 6$x(z < 0$x(z < 2$x(z < 8$x(z < :$x(z D F$x(z H J$x(z L N$x(z P R$x(z p(ro ]] (6Initial Concentration Of Both A and B Can Not Be Zero!+)Forward Rate of Reaction Can Not Be Zero!+)Reverse Rate of Reaction Can Not Be Zero!+ $ $''^osAttribute VB_Name = "She@et2"
Bast0{00020820- C$0046}
|Global!SpacFalsedCreatablPre declaIdTru
BExposeTemplateDeriv$BustomizD2ControlprocInp, 1, 0, MSForms, CommandButtonclear, 2 Option nlic0it
0
p
Phl;nst MAXERPRORSQ3
IACONZERO1
RATEFOR2REVO
NT4)BC5PONCIB*A0{D)
6@(7STINPROWN!COL!TRICNK@MXMINGRn161nKnXcnV
AXGB
!YJYh
1(B
-2?!`' ub^ inpError As Bo
o gnflastRowAInteger@dbSub t_C k()
Dim 0forRg`
Single, revKnewACnt@BJloopIndexrowl(App a}.ScreenUpdyng IAf!= Call chk %#
If () Then GoTo e pMw
Dos3c + U,g!, -L^NT)0LGW
.w
.&TxRoae(u6
{^+k_ IO|&QTzI&1SRg? q3~+H!L] Whi,G$ϐ+$<>v-1>
"N2
ecx%procInp, 1, 0, MSForms, CommandButton#clear, 2, 1, MSForms, CommandButtonME(SLSSsN0{00020820-0000-0000-C000-000000000046}8B,PLB0PLB2xLB6LB:LB<LB@LBD@LBFLBJ@LBNLBPhLBTLBX0LBZLj^%*%b00`d0p`f@@`h`j`l`nt `< ` I p` < %B((LB*LB.(LB4xLB8LB>LBBLBHhLBLLBRLBVLB\XLj`* 4*\R8004*#5d$ 0@ P`p 0@P` p "
( @X px FF(@ X`R: R8:: P6p666 BP$$$
("068p6 ("08
@Ph @ `
"(
0
8
DH
8
8
(8xp]D]D(]D]DP]D(]DP]Dx]DxDP]D]D]D6]D@]D2.]D18]D]D
@
]Dndow]DhFals]D
@ach ]D
ks(w]D
]Dhible]D ]DG7c7i))1 )^3< }C(xY!AP'$ed)&/ R|, r0$CQR "Range("Hnums"e
- 3/s(} Gr Qs(<, r0AX{Ӆ:#JcEnd Uu!b6-0 A;^"=COUNTA($A:$A)"last!)Value - 2$[= 0 xTo 9s(STINPROW +, TR@ICOL).+= "@IACONC/B3ACNT1p
FORn
XMINGR, OiXMAXC V YX
YP NextËTru(iЈworkVarAByterrArray(ERRORS)Botro F0)eInitial Concentrbr Of Both A a`B Can Not Be Zero!DZf 1b gward R@of Reauo
n2Reve8rse = MsgBox(% z1), vbDCr@cal(in= /_VBA_PROJECT#dir_"PROJECTwmlSPROJECT
n)13-0000-0000-C000-000000000046}#1.7#0#C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{844E0700-1E1D-41BD-A330-E5F723DC7145}#2.0#0#C:\Users\User\AppData\Local\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E
.`M(,HeSheet10:57d6b91d!Sheet1T%ThisWorkbook0;57d6b91d%ThisWorkbook%Sheet20>57d6b91d'Sheet20P0?;Bz`!e]RWOl3j+NrH0NKT/Excel+VBAWin16~Win32Win64xMacVBA6#VBA7#
VBAProjectstdole`OfficeuMSFormsCSheet1 _EvaluateThisWorkbook|Sheet2 MAXERRORSč IACONZERO-RATEFORZERORATEREVZERO`IACNTIBCNTwIACONCIBCONCuRATEFORRATEREVxSTINPROW&STINPCOLTRICOLLTRIROWN@XMINGRXMINGCXMAXGRXMAXGCYMINGRfYMINGCfYMAXGRnYMAXGCnXMINRXMINCԢYMINR:YMINC+YMAXCinpErrorlastRoww
procInp_ClickforRate=revRate_newACntFnewBCnt# loopIndexKrowIndex6dApplication*ScreenUpdating! chkInpErr endSub:CellsValueK RoundDownRange dispError !clear_Click,;clrIndexWActivate|
ActiveCellFormulaqYindexworkVarerrArrayMsgBoxR
vbCritical+}procInpT]clearWorkbookk Worksheetl!%'
60* pHd
VBAProject4@j
=
r (,HJ<
rstdole>stdole
h%^*\G{00020430-C
0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE14\MSO.DLL#P 11 .0 Ob LibraryNMSFo@rms>SFrmHs3D452EE1-E08F1A-8-02608C4 D0BB4TFMl20L'B @a&/;"1lrAr00}#0r#50 A844E0700-1E1D-41BD-A3E5F723D C71456Users\A\AppData\Local\Temp\Excel8.0@c7.exdHd<".E
.`(MA"eSheet1GSet1H2NHB1`%B,QT"B+BBThisWorkbookGU Ti@DWEkbok v2 kab 2m 2i 2m $2
o
"!ThisWorkbookThisWorkbookSheet2Sheet2Sheet1Sheet1ID="{9F630C57-CEF8-407C-BCA5-598C5AC4E16B}"
Document=ThisWorkbook/&H00000000
Document=Sheet2/&H00000000
Document=Sheet1/&H00000000
Name="VBAProject"
HelpContextID="0"
VersionCompatible32="393222000"
CMG="DBD9CD34AC38AC38AC38AC38"
DPB="B6B4A011A0377A387A387A"
GC="919387A888A88857"
[Host Extender Info]
&H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000
&H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000
[Workspace]
ThisWorkbook=110, 145, 825, 600,
Sheet2=88, 116, 802, 571, Z
Sheet1=0, 0, 0, 0, C
Oh+'0 PSummaryInformation(
wDocumentSummaryInformation8|(CompObjkXl
equilSimChemistry II(AP)/IIFred MorrisUserMicrosoft Excel@(@ c՜.+,0 PXdlt|
Intro
SimulatornumRowsWorksheets
Named Ranges
FMicrosoft Excel 2003 WorksheetBiff8Excel.Sheet.89q