ࡱ> ~H{  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGpJXLMNOPQRSTUVWIYZ[\]^_`abcdefghijlmnoqrstuvxyz|}Root Entryk@%WorkbookH_VBA_PROJECT_CUR"[Ŀ[ĿVBA ĿĿ  "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNORSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxz{|}~n2BhDʐZOL^آATS Ca/o]{EW>͛*_ǨЛ!s#J7<#P0GQkW!6#rA& ܱҊds}j$^}.3wmvnnBԸ|ͦw{DFxYK02RLJ<6 Rx#*(Ȫo,>]O#ymK>bu6^(2&ףhM O. P5}rU/3]2ۉ%yq8/+:W0WcGJr"0Fivn2Q}eIr@2syeSu <'LK{x@O b^5.NM7yȖ^Fhtf f_G#@MK:䶸D]1>2>#T/脙qo9,>DOh> h%k( ňJ9h*C-_B]*ؑ55̓98,T77@zkd FE%xGNY Tx`))%KLA@ tv?Ÿ+\y´,bK;yӢU{ڕd"pL|vG;&9TW8hDTzj?PílC䬒F i}p`”|$ :IHYn5/ 7v?篊yy1 ?7)-CۼH գ{"2DOG{aIGV`)aqm^`- AF"oZՎ >f7PT^"oa?~1 < e/?ޕmLYLs&ĭZ#[_5~.n7avCRT2ӎ%ΈpQx; OFS"|%ux}e%I=㐂n678!pzgLl {DdI hGi,VЭTzX%\&G&') \F0d_0Qs v"|ՖfCb؏r1 WcU0y:}+/`CpZZ(*v`K>UX6w7oXv7Yrs}~ /P{1eŀcDaXgYZH@G 'nѻ  z3;L%os4|QN]q5׭BiQ"|H3 L卽fO ΧK1lå3x(ӊn`EV+)@0lhއ.73j+aS?3sHUOXWÀsܸ,Vt+# id *g|ۿ|.#|_!Êw @脺n#1-%:@r?SנiovMNlYɆ.{YsE[xN,*z vO9T"ī˽وH I/6w&@fݘַZl7Cݖj)Wa@mb4?5ZkU,hf3GB .."!njR-Ղ`=YT ,g$ * ,).sMяuEs<*+}z˞8g[4hoմzנi g)AQίY2a# ~4K/A" ЏCƨ fa4._ᮬ<9*u[xo4R6 㤢N [j]4[c $|4=0*Wx01 YXFMq7WaϠՉ+˯7GF(4(օnzm SdE8"y Tq@|e*(EظJs"&wO} ;Xt$m#*DfD`Yl>g26L@ m(bȤ\pCtz* 3~쎟Ni ^RWeFB1:|O̾ecG&Lw*`Y;ű= #FlOhT'JLBaZ=MyK3#ē Ҝ% uT7z;= =gg,L@@RU" eIz-14v RUƩUq(V6 1VQ.f`3!LBe;L1(KnҬhXWo^f*1d(2'_ Ĭ1oIq& T6Mx/Pxģ10j | iK52HGCseu-ʌ lq<-_,W10PipH96HlT aZ{׽E&)±4$mM10urwa/9_q%$m1R/ kukAl119M,z!"֧]庼1; ^ґjAh壕0:1"t&B;^zHm<*=1"je\]NAhE;Z '?6ȏ)zt1#2y!:n6'x|=_G1PkNk< :ȍ7Dƒ-p1"+>O9i6/|m81"J oYeyY;<.7Rw4du 1O.MO?͒YؽNP>1"'I4(U#ei6udQfSRׅ1wV rU}-O[>N1"61`XO4Ȧ`l1D3Im1"'mS_z-yEx'laRܤ #e1",W-͉2= j#5T18euRv"x1"%m4emׯo![DXZ2WqA'dM1&aW_N^g.&7er>5p1k$#5m 41ZΤg(%^><@R9=t1"}7٣*gbxteUX1"hB/XphG \ѕQΧ4@1"b6%S˰1]/1{*F,y _飉`^1}J+uEP ̱De1"F'L>DP}濕u؟ K1"[R2*TホOJP167!#D$3HI02(.10?%==wke K?>ɹdj((%1G0S[bsO4"iU˓Sn81s$rf1 蟃xVa6$dY/%|hN&1^$ߏm!kvKUrU9 r +L\z"(ݚd\;xRE9̚x/vה'[ Lw-Wډ|4gمz9 Yv\l67`MNr:V \|~J'͉F laYUQŖb9[aAN.up{*Ph&{f%?K4&Tڅqe ?<0Ǽ|#iƹ u7L yƵ29Y%"6}yG4WLU06`e jX@)=y\p)Kk.?C_aB.'RE8vZXX5C1=#XZ'<)@ALi4QAͰGe0w/"o=4g@Z-LyxE݉kd~l# u@]%yrK_󨴙 $X]׀) $.`v(m0W,$֯#%ټUxチ=/Y 0Ȧc儺 TcJ9]LX~: 9|L~*"af7(7. _cTL~\y2PN s r1bnnF62(` ڨ\o{p1|C[4 2N-)2Z| -YޜT h*CmhAs,$%C\ CDQ$ WSKn.5u8#I[ED~bu~~,A١˞TJ.+ >)r+ں/f0؈QVlb{/I~ڮ;$ 5`- {+ gj79iO>%'w 1[Lh@84j[g/9 {+榼WLIq#/b@ȟBBG6Puc&V‚DC˔yl-wPECln`dWc!mc#8LL[$y 6΅R; p:6,h=Ukgqhۨ*t"A Wŗ\%U}sӹHqy3EM5ѝegw-(KIgB:21< g^3 g?;+[{`X/9Y9 !XO3 FIBe"NO$}#B~CH@4ǘE+.z e J WE{jv%G6!5 #g,(bG!Ru@%ܻpg}Ҫ?d 5`3=/Cv,b= +3iconhF0ۤ_(SLQ)r nׇH"o㊀V@ e&ћ21:u[Y06㚮k?N__nec[MV(;*NyϨ2hl9{p=ͥn>Az!}cEOkdv"/2x }1%,hdсۀ<8[@ /HE>2?q\K@5Ăs <&$_%h3 vJIhc &)o} bǑGHy@5E z"B,O.|<3z(/=\`|UXHtv~fT^HX]w\Q7u&}Ptu.bgocq<!OSg k%=+ިXsvt{f3$rw~H;rNi|@*'Uf D<`$,O.IH?6U;psL]$V}W Df&X"L ƫd$^;>~*g+FOp)j ?$C[8UXEm`65v$|.\t>n7d6)ŞǪJKO"\3譚t)m2C]t6Lv2JFBE .cLԛ p{$<`]5ڜIv 73*<=rgDW(rtAxG~ѧt} BgHifV+-e#O&ohͦCdFmg:RWx*T 1饇~c. ;lN!244(qdS@4syU6xPfJ:v7`-_Qrý\ p "c8g Vʝժg>$x€E>sA]v@O  Am4…zB)ƻkd3K>kp?^nݕ ok>S.o,@]h<Kߜ}2Ǖo?ʱ+)DC3Bl]),7QxC|_^6ΉoX8`J. Xb:|_,˟0bьN>и/l8Jd679wK]fR݈l/:gAf  aHV00(J_Hs*5rTcuPhNR@#Ň+? CǛ8CoIiYBec,yQpc h$W)9<;dLuzU 0~ckXup3cRkERChlԍ-?JZH$9'/tt}P_wLQ߭,H ~CD-/odύ[ C~}3Hkw+LY3|ZZ7 ǠTez4>\as4kt+6q~_9qH ׅ a>6*j}:>OO.%Mzh*i+ߜ9*"_g&]N6KU&{y5v ]ƺ!Ѝ\X5XbYҟ Ba9äA} /.5H0-8׊e'uSrS.&TT[)*p=,kV.wqJwP>[T9w0֯Rn;`P}lM \YY/~QM%:i*p)J*>a}osg,=vqƤAІc /S}`fta E8jG %֖U)ߣ!3'd "J }_fk'[U꒪J9+(W (qQ.LF1vnD-Rz^rj`Etb|QmsآQTbQU@tԊg\Ba%ٌo/ۑ+۱|y5Ruؼ##A >wR1A)r+pa]ʫ݄Rq,)]NJw|W+Sypnlu =r5dɟ2;x8+ Uuq^,z\B# /mD۽8a!w F3QDt @lЫݼQ L62 k[+bKAQ(@Pٴ2;hXnz0Ϡ uZRdY`?KN/j;1 tyw0F.t2(!Ù֥V uo0GmM>!%m t|opdӝ({ko5']_%ztVQVKEdMڟʥ!d4 ?:(FvWeyѪ)j铛옄*:| W@ID^ 5ى"x9tx];C$1g3TwT4t C-4Q~RGcн[ 4 seB\ /Q'pJL@A1Dꏵ; yC~1 ?o\f&+E9U `%|};y !C<N m CXMLZs}e>IB6 ?oP+ryh`PyBQ;DFȜcu--״8 rGw=B2Υ-l +5iqR.^J3fo8kꙃ0j\&[pwmUF#M| ;Pjm:g7J/r%Tjx2&] An/b7ɱ7W:]M_yDuFdnh$Xo# 8+IxZ}B7>fگFCD__J$q_O!hlw(sgm[$9GOwcqSy͸PEz ]R fOKC5dGjLO-/'3 NT^vhcTS*/)o =7$EbVu?'{3^`,?kg Ggq췭hKBG->P*'b(D3ʬvYb]j%A}u|"Rzб@.|~'6H6vC;84*/lMvFϭ075DĶ3<_6(D%b)mzO*yJX*w^ӌ秎A~d2F}峑^ѭ`|9MS9"(^Ȗqo<;[[m !a}#MD"Ayw0!ާkqړ<#F7;5,#^E*F ŏ׼É2;y,Ti*.#Jް"Ӂ(kTYQ֊Й z2T@rQ>&5gKkhVz)χ~/1*мTZ#aYj9^\oUJ? BAHy CUŃF׬%+nSۚY;~O_(]Abً>7]4g"հAˁbLWPoC`ŶtQA 0i|Ǻδ ]Ch77&zCT'nz* 9K>&?GCA5?JL#뀴YtrH" 6O;~ʢ\`0=F(`H A3=#8dGZ.G@Qڌ W2~R&z6R8Ǧs գ"T][s_&r(wh0,S2s+d1ltk+Ӓ1Obɥ,"]X6sjFqUmE/NHCyzkS&C#PFU=YP(d]'0JQqwdܚu]2jr{|lf=',p~[7 (ÔCFBLYR.!LY28}=p.d`NS6E f9f0nKH@؛sS^pqV0.iHtfWh%emrdduu!U)Еo> OdK\#/Y/{0 -=k"eKkήyO^ID枊5cQg [c'Bm謟Yf-.9 ]?N?3jrEO z5F:o!6O ԝ!3Ͻ)c  ݋^F׊PQ~,iP%=?$|~ 8[F%e=O_i8.1 #gG2 -Lx~T%P <$ʼxdY^c5 0.rUU[˿4ۆ݆ RiteIt^Czw>|ΰ=t@!x3Ү@ٟ=uyl=~0DGAV(`qc}~(jnL24m]د |1$T <>{+wRg3B> J!`YFCXq S l;bWJ<":NV*/K)IS󾍀XiPiZr2"D7,Zx4G|@i\x 37]J oJHL K8~ϓw}?C1eXɓT/ćDO*C2ў ms Rˇ)鯎l#2 =iexc ԔoL<1\o43 "KZ ALOvP*^׹S񳪱px$|cpEpž\ؙC~ɗ2Lnu9e26î6TYv/V?(se;rzm{S$LG iL9Wz>bz {0${L굘L:XeO1$9Y0]dD Eg3 lOåUu#V*c- `;GM&P%2p:e%׌y1j[ߐ *<Vr[(=rЂQ~ζ>ď%Y=ze &Q-9EJ^xD&ȋmqxLF0X.qèaN[/(ð*6=bbPs҉*U>֮{}=Mzh3!gc6Ha^6;|Ѳ13Kenp÷1н u:u[vG v)qÏ=t cFmeeV'Ƴa?CY3fċS<]"5=F/ÖʿnDɪ,Tow>8lnHvwՑ5yNo8,? NE(e%=/1ᇂT0 ,m][^F*K.Q|JP3KnQy ^$fw~q#mY!N ?)=k{nj+o_,sIL1Et1^.r[Ė[)M\< &KquحmtFIgbGwD'WZ2V'x dzוRn[]2KThuY*{9s:Z_4!hit7}ֻ_nȁ$WTo2 I#h Ҵybn<+!H؇o Ae+0/sv%Ь [Ƥ7:4U ?J)sYnFoA/H_,>Đ/"GT8BoX[{G$r1L[ k*ﳭfKMDXL dJ+ mOR`[?Y,`k߷0T2Z[uhtxۃ( P eO[/XnD7.MEn|ppnjE2moZHacT{.FIa<rd q3.s[3;"zF3Wez>Rmib\%팁z]ذ\hƻ(w-Y\CS2"KԮ):GldQVͣ3ZP֑3+b ~jH#aoh 2_*0(t_mXJ;p _pEjT]# ;»?DܕD4 V|̾I:]VԁvjM$St&#$ATm[J_au8]*-D܄PBxQ^@虉>^h.< C.B.anʶ*$۶NTTG~_U@bjjkWjCu!2V:IcL8RF6<&1ٺX. (ZX5А e4zȲ I j[sp6 -F'1:j/%|;uF(I[/{Pz+E&q]ף@v' -(8gh})zHUMdx]MOpՐC4bD5Z궺\+-XXNpl7i]ZʴRf0}Gp.3޿a}jbYkm!g9{57#P|cY ub!xcn<0y"(Rc%L7;˳[ VR8GT'ֿ"0 wU'&/JACUA)߷#< %Qgٙ:Yɫ:۝ziMEBL^4UXmqP\vX/&V=6]♛ip @͋qMasQi+RIYaE)|'r$|H/3)h[I ݯ1-򊔰Dr-P 8 /Ml_[I( &f0mM\l\#Fߍwqxz͙Co 6X=zHbEj0 >!OeF~Tg8=q9 56qu>)buKn|[Dzcڔ,S5=J{SJM q2y?Scnô%;'+kˌYms} ƒރ6} b55} [vÆK } {k l,B} (I} ԏ< :FٮN7'X JF^$h"l&];;Ne&ߖզO:N,-cro;خQ\#UܨL٣$<8,z ŌW ;ѝ%IC'*, d5:^bhw EWoIJ^UesK"r&$;e'T7-WLX{TM 3UO&J(,BDMyhM9 M&  Vezvﵛ~^*ۦn9 @5{$?LH'<&X~z'hd'CCl#] L+X?dQv,zKvHԧ=jX\=$ 8Г3ξ >27$˳LDVI ATrz GVV }eie %>g V)@ܮE 0H1 p: ]mKB|K jEM# k->~.P\&6vE"鳳4X|;7K"f<ȯfP:%/9jF¨{+ }Ǿu>uo+"Qj)X .*SW#GvB؁_Z<ɉ4:09)1*cL{٨D?H\§%nd-PaUB̩st¾4t Qy P|Skn0rԽݍȣn2grr3k+4<,DB:-ʎ#@'$b$p}ؙp83`Ь3d x+֕v~o 뫈l=4 sRo aLV ۭdA@ |?+ sF Mr#i ?tƼ{%h c-69% FBLcBU 1!vfx oycOH~ )}p8.k蒦|)IZ-~ & %1Ӊ"1Ƚ93*$Փ2#6˙Vs Ko:y%^ %4GhcϮ $^, )DE&uғ2+Abނ[,rzD1/PX Dpsnzu]1d@\4C$ě8Ϋ3 !5pυotFS;& +`"f=UP[A?2/Ӽ k-kF\} |ξKŰ&4q?+Ę+\2R/ e3}ƾ*mtǼ8ay@ULJ8ho{x˱,|U Qd s7Æ9  {Ϭǂ  NιU; 7|dF+*󫦙]jiUiA 2 Y9 WxK 9̞4 c]r 6 6ĮNJӪy rϱ%(x) 0( K-; Swd6 ռl0 |N%j-F²TϺV7ʇPZ6 7moh!L ,  /pӧekcLu"$3l±ZƖPQѸG}Ͷ A%~ɽӭnzW7[>V0"X'GcVs(G 1Y{ +?ٵk<vWI .&"2Xr]\߱řL_ JNEq%gE˺=[oi~cG|aoti x2$I0Cr;MlX;b"G jnlnc >1ϾMg}iaR?E}22Ev6}NdXk,H LRzg-# LhvfWrtyS6fp*H"Bjr|;l Kn{0l8^؆)Bjvt,1I2 1fAb^rwj7`=nzL2l +GwNY5ee[[~uiH=5q!U>ѯ!Tm21 *'n~UCA59IbW28|KnpK Ҹu ųHH%%u&UE+.Z&RGf&L &Vu0O\U$Z>y-LYn% Jk}C۱miր̕iWU*ysxܹ'f-h2E jrZ&)M~'lGrUz:/ٛL{OW _MSo`Pe (bL +3yciUcn:2rD{I.pA Xz#723J Ѡ0GƏXvzNg 1%o9P AԁO65DK7N@Rx/6sGRFrFl2Yx5„C9&3"T@|;:LL'O*|Gr]#rj64;|ؤPS䫗SU}*%/ V,Ȉ]ʣme ]n2{HOqpH*,$$ԡj~NyUXwk5: [*Su(#~(/]Լ\Ew2.>BQGm9% O42N1CMD%9zr;d7ߛQ6|3 سt"CG =OS+\R̽B;HaBm\[W MeY˅uy3AŤr(co1 tG]2fJطd'Ajynj9]۬RZda@/Θ!Kif~&ݜj/G"Dԛ4  Y2ږu׎'vфM00ι@ix:_i<{NGie۲nth;s/!SKP Z|]íLt'8U6]u3I@Dk9XG3%>lN+.{tZ@5Ν>v|1D1N^c2i.ѵ;G%t!]3#"'B0 TѦRgN]z ̇y'!a7#||Lກt@I>5Gs9Ji~66ʉ"I%0;o@`:OZU@qzK 54)2`!PǩcdtuՌlYcy N;I^O47{0DK4ݚi;`ʆ5۵؜L!̵}E6@B^A85^equ"T}=ȫ kpcfWSH d ҷA^-~ @ a1Ͱb #5-U,!^D:$NQtoTDy/yl:T$ P4NxP"⑌D\+g/ ьq$²鉟l8\ !5T~ F#/\!ʾ ɗXj $*SkJ{C48f~t17:=K)Oak=rOS{DrixMgy%Րvoŵ ;o4̽z@zz'Wc 7sdGT>[h١KۄQ4PNgC"e0$TXܼW"4[6'M- 8ѤXr, s4Xk *U" aP! e!8S€|Zܭ=_rڰ Qc'*hMwVu_'U#uyaz߁l"=*&r5x}4T">;ѐ3[̫}Qڹ,ߝ[mOgw &VX#!qj ,tb?]Q#2ߑ qP*2l D7_aZ&vAhr &ꇬ0d A`Q# O!Uno92kO% Kn" @ H+x{eh!vo 1'D9K`3ǹG{C:dr2 ?"믱͌u|m 1)q ?h2@sGsB}(%#Ňav-4~|*PʧO 4c qAf7\ 1MQ~PQ {X=5qWkv)17 Vu[! qp ۗN;cJv Ǹ Dn C[YA IK튋HDL" w n]u $3o~L9D<uE;0-NXNi){ .g,<҉yAϖ$Y!3j:T3Lbq -QU)B<3? s 6y* #l @+B2EL"$ԴS䋼!(-Ht8jḣ <9IQ!Zn ٦/V8K9R ʗO~y#e9qѓ*P*cb!} Jx/8{ H_2!Uq44ڨ6*ΑꦣBVRjNK1X{Jŕծ^=u޻,o܈n,Μv&fi OE^ͤ p%M"J]6d(Mw&T&7$d)9ᇸpVj Rlwl>V3̽kH .vx[Ѝ7W*o31 u-*(ˇ#v@yj44@Ɨ 1Y)_S,'0>xΖBoH V. FGaHHtgeC\z: )aoJA_~(lPǿ]h]e:#CfD9yX;=g2!M@x)%fI48cCJBjNQaȩrCNZP!_iOW3;V v2W+sꏁ$] `4fsl¿\>bf.Gn5b^wtq((]QlGJqΡ]c->n@mҮ+dAbrOϸ#½l󐫇h o;.VXsP{.ǁd]YK&`<2 y \t d~A3 !A'Devє`^D*ORnsw0 ?q],i DS*ZCChfrA$*a,Hr!h}I~NEE/KT< r+< }Lf:r/"nryX}҃\[ѷ\J3/WӲAucj;_^G#;*Alv@p)G"|h.5 t x Q,Y2274x],=[~+ͻGMHJ7I&;e7_sWߓl!aօFym<x^ƅ<<IH6B';oB NKXǂNw(// S&/El0:wov`u5O p}`>IVf87C\5T~CؗQSħ΀w%:f8'{NcUXO/f> 3XKuP @@喘gaQ"jqB_WjesA]\ _h4U 8C5#E1I)Z[5YGr~3ћD=rd~YOq+SfpyA*Aෳ?Pw 4G T|#[hKYfI#MT QkCOgsov+vX?b䂻4jcj;]hYf`tsi[l#/RZ I{ 3\tsS*1ݧLsY<DAƙn2 ѱT= ʱ{chۦ;aǓq.CQ|~ÔZpfψp ?`"]GPcN JST}X:)i+XHY9*fO8-CW"=d=g@ Mar2-ç\Āc8z4noJ1=zJ&Ѫt,ƘIM!yG1k$uجEr$OV;69_ 1=[ܢӛm _`Tbhpa\BV@~tEV: w~"2WV+pyr^Q/=khXކϢ /Q>@_9q_J(:~0 <`g-;L9]1t ?'U">O<_!_4WMC]&|# ^;bP,+ y3)xM]^לy+;{gԨb_Lׁ$6^cjJ//]2Ab-8hg֐d!/)&n[;E_fmY6z vcKv>@j:}V r, c! /zlwWxLDSM]4-thk uD A^vw0[ou#Nd&MGJˑ:S=!tހ2<KE$އAFvQ kJ󟏊 t׷@)dZP!ҡg )Bu~֏C(湒.{E<1me"^!VC}Y˓wQ <y4FJ[^XԆ5,=X6UPH<~]nG4hxCKa1 vA є,SǷwhCO)jb]$ZxU8HGdSSز_P8*ccAμ<<."KU3.zBӿ_%8P`ϋXð.8Rum{ɰ[DaVw|<Nn-[~'~Ԡ]nv=VnÂLX@ӗzQ+=gOB(XSzk>Pڹ@Sy[x T-ٕfU}us=0O!3O],K6eՕmgja)m2=1NTS-*y atw*7P<Sn.<JWНDq~H\ dHh/~]EF:6z$[>͙_ܖa /#8FT cxC[tʛAOW,[Gf(0 "2E,c[\W}],(a-Fcd?Y42^CR(dl,ZQlh02sq]?|o|gU>y<Ruv<hH+eٝ?.~`NJަ>7R؃vк $!V9<&FDRXbereP$ڥ5Ns݄P~3?_Ǵ#AqngTX0-ekOTGH-դVY]HrNx3gDpȢleEzV}%`S+!Ed6.$=$٠ \Z 9E:GȒklo8lM~<jgsB<tS/(a4pR~^`5&܂߅?k[p+.܏P4&o:d_F^)Sf@CQr cy^zaK2kVd$nN)0]z`4wRi0&WZ]Ah ]HUαzOnȃXoN/;)|MWL!j[t OB{RqK#"!COA>,2"Em:5c0?<)h!<-{)5!\1$s~&Q Q5,r`"za|z@I÷qY )KLTxqH6FHN};Z'LS)rۄs`|;hàηL̫~R;R04]H=l8q9ňu^ LsuJWi/(%dX*2@KUK5}v C3%c(!e/&h'\/<b2ɺHP fC<QkUx(7֣Co~!QrA> /3T1dPN|J< n)Kh:f^̦2>SníQqZ"6 AS 7+˰EL3g% Ʋ iS&vxR_]H'1|S\WuGCv83c:ζ$[y {vae=;J +~wFm[G*e<:XnYaS%-Qe 4 /|Nen\rfR%ňsJ.υ,:26P;P1ڙ<]6N5ls8ij7s./@pgIZ4$N"#0KaXլz[aYs>~ʟJx^䅂-_c$`j좙J6< 8Hd !P6fC;ˤeaT'aAIZ3.g.34~l|?brT/jS"ҝ1fw;(}_ m2v/9wg8-X%wǿk<ty啰+f|!N%ۮ``eNFvypʆ3,N~]7 Zz_-.gP% ] #nTy( 9q-?lZ'@|D+'( s<6p yw.I&H޽~|;vS®&vͯ Lr."hk 0tr ›k Ϧ3nڼSFmkJ1Żl M>+rź)q[H67qkRZ]KnUQ^L9dA)NeHk'P.L%,: p} lggp >{POa!S]4*IK.{x+Y}Yj,hlm ،I9R _R(3rƑAo8"2$ !/cw*Cz>zP݃w.`W3YjBJ`vso _XOE(-fhTZh̗Gߘ}"2ǿMpEaFm}<6Gut s8PJUӴ3 JD#ED*ohDZ"Nv)@b)`ˇ,N,6"fxǿW dFb5(`BoOrNĆ^⚡8bOYrmx4X7ʃꏨ+8)d6H)|Fz`>ڪjPVOkwh[Z8N LB3Y䷡֚kF$xS+NF3]ۼ)$䔲vq/aYa2,A3Ąwj;: RIA PÈ?/l3 gYK,@g~*VHi#Rs/7f%3N{Ln٪]SSURĶM_g>j׳/0ޝ1@fa^(c$4 ad1wE&p h2r*[H:<;}3a4N+s*r:/w^e1'= j-; GeneralKB__SRP_2__SRP_3ThisWorkbook5-:& PRINT4 Macrotcut PRINTS 4 COPIES OF TER FORM@B@J Keyboard Shortcut: Ctrl+PR1C3 B@ORIGINAL (  !B@ TRAVELER COPY (A  !B@A DEAN'S COPY (  !B@ INST. COPY (  !B@SAMPLE (R1C3 B@lh PRINT1 Macro PRINTS ORIGINAL ONLY Keyboard Shortcut: Ctrl+pxR1C3 B@  !B@SAMPLE (R1C3 B@lphl0( ~%.llow*http://www.uwsa.edu/fadmin/fppp/fppp36.htm B@ZORIGINAL (lK(l(ZZZR12C6 B@ B@aZha !Tomx It is Tom.xDɳA@4<8<<<< <<<<< 6 <$<,<0<<<*9$*\Rffff*25374d4ea20 x` xRIGI($($x "`    $$$ (0*5e$TS 4 COPIES OF TER FORM   $$($ $($($($  `x   ($($x($($($x x  6  6 hp  6X @\(6` P ``Jp @ @ 0( @x  (h 0h X  8`x@(`x@(`x@(`x@(`x@(@ H P X X    ( 0 8 @ H  X H @8 @( @ @ @   (t @d  ` ` 8 0 ( t p x @d N(`  8 X( p@` @P @@ H(0 `, @ @ (  @ @ (  @ @ h(  @ @p (` \ @L @< ((, @( @ @ (  @ @ (  @ @ H( ` @| @l (\ X @H @8 (( $ @ @ h(  @ @ (  @ @ (( @ @x @h (X T @D @4 ($   @ @ b  8mX Hmps ~ ~ @ME"  @%`%&x%%%%"%&0&H&" P& X&x&&&" 'It is NOT Tom.'  $'40  $' Name CellZPActiveCell.Value R .Activate0Z.Cells(12, 6).Selectok2P0ActiveCell.Value = "Tom"lR6C12 B@h !TomTomR6C12 B@ !Tom 32`a !aphhxThe Name is Tom.A@ox(proThe Name is NOT Tom.A@No Darn Name Entered! $'0hR12C2 B@ !$a !2 ah@Net Amount Cello(NO Net Amount, Please Enter!! $'Net Amount GREATER Than $50.A@ 5The Net Amount LESS Than $50.A@ MsgBox "Net Amount is Non-Zero."ThR12C3 B@ !$a MsgBox "Net Amount is Non-Zero." !2 The Net Amount LESS Than $50.A@axNet Amount GREATER Than $50.A@&eh@SS Cell&eNO SS#, Please Enter!! $'PZ'''' Ask to Printa  h!Good Entries. Press OK to Print.A@-Sorry, can NOT Print Because of Entry Errors.A@8 l8 ZZ' Name CellsR4C11 B@ !'h !TomThe Name is Tom.A@ahThe Name is NOT Tom.A@Breakfast CellsR12C2 B@ !$' MsgBox "Net Amount is Non-Zero." !2 The Net Amount LESS Than $50.A@aHNet Amount GREATER Than $50.A@hSS CellR12C3 B@ !$'h Ask to Print  a0h' ZZ' Net Amount'SS #' !2 ahah Z'  $' Z` 'hp !TomP h8 ENTRY ERRORS!!  Sorry, can't print because:      (press OK to return to the form) 'K  (value greater than $50) 'aH  (value greater than $50) 'h  (value less than $50) 'FK  * NOTE: Net Amount >= $50 '   * NO Net Amount Entered! 'X 0 * Tom is NOT Allowed to fill out This Form!!! ' Are  * NOTE: Net Amount < $50 ' Dance the Dance of Joy!  'Because the Form Entries Are Wonderful.  Press OK to Print.  ' (and don't forget to save your file)   A@MSFoVariable DeclarationsVariable InitializationEThis method checks various cells within the spreadsheet, to make sure;values are valid, and that necessary data has been entered. Coding Cells  * Name field incomplete! '  * Name field incomplete! ' Check = 1NOT Z'( Check = 1eld End If  If ActiveCell.Value = "Tom" Then #Application.Goto Reference:="R4C11"If ActiveCell.Value = "" Then> Message = Message & " * Name field incomplete!" & vbCrLfS Message = Message & " * Tom is NOT Allowed to fill out This Form!!!" & vbCrLf '' "%$ "%$  * Coding cells incomplete'ls(5,  "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$''''Z'*'(h "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$STx  * Coding cells incomplete! ' "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$b  * Coding cells incomplete! ' "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$b  * Coding cells incomplete! ' "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$ "%$b*  * Coding cells incomplete! ' *"',Z * "%! b', * End '(hh ,b ( Lunch Cells Break *"d! '( 6 * Warning: $7.00 in-state breakfast limit exceeded! ' @ * "%! H8 : * Warning: $9.00 out-of-state breakfast limit exceeded! ' ', * "%! ou'(',h * "%! * "%! b * ( Dinner Cellsng: $9 *"reakfa * "%! '( ,b 6 * Warning: $9.00 out-of-state lunch limit exceeded! ' ',h 2 * Warning: $8.00 in-state lunch limit exceeded! ' '( * "%! b',h * ( 3 * Warning: $7.00 in-state dinner limit exceeded! ' '( ,b',h( 7 * Warning: $9.00 out-of-state dinner limit exceeded! ' ( Lodging Cellsh{H *"inner * "%!4 '(h *HwH ( 5 * Warning: $52.00 in-state lodging limit exceeded! ' @xH'(h'  "%! bhh' ) * Travel advance amount exceeds total! '#Travel Advance and Net Amount Cells$Contact Information Cells  "%$  "%$ $ * Contact information incomplete! ''Headquarters City Cell"%  * Headquarters city missing! ''  "%$incomp ) * Travel advance coding is incomplete! 'H  Send To CellsH'h  "%$H & * Mailing address cells incomplete! 'HjyH $h8% " * NO Social Security # Entered! 'H(%  "%$  "%$  "%$  "%$ "%$  "%$  "%$  "%$  "%$  "%$ "%$ "%$h%OriginalC1 *%$(  *B@Acct. ServicesC1 *%$(  *B@Dept.C1 *%$(  *B@ TravellerC1 *%$(  *B@C1 *%$(l@$xOriginalC1 *%$(  *B@C1 *%$(l##(Attribute VB_Name = "General" Sub Print@4() Sheet1.Range("C1"@).ValunOriginpT~Out copi es:=1Acct. Serv0ices    0@ p"x    T 2 H" P Xh p x X 2  " ( 0@ H P 6h 0 "  #   * 0H x"      H " "e(PX ` h R ""g*e&@P ` btnClose_Click() Hides the user form$* Executed when the Close button is pressed` B@<pP@lh btnPrint1_Click@N Sends control to the general module for printing one copy of the spreadsheet., Executed when the Print1 button is clicked.  6B@"l btnPrint3_ClickGR Sends control to the general module for printing three copies of the spreadsheet., Executed when the Print3 button is clicked. 6B@l btnSave_Click/ Prompts the user to save the Excel spreadsheet) Executed when the Save button is clicked  FB@Hl btnRetry_Click$ Validates all ValidationCells again* Executed when the Retry button is clicked` B@< LB@LlP btnApply_ClickA Applies the changes in the "Change To" dialog to the spreadsheet !R! !P!$$(A@Tl lstBox_ChangeK Updates the labels at the bottom of the form when the focused item changes !P!$$! !V(X !P!^ !P%\ !Z(X !R(l.Attribute VB_Name = "frmAudit"  Bas|0{5FFB372C-30B5-11D4-AFE4-BD6255C9033E}J0J dCreatablAiFalse PredeclaDIdTru "E`xpose@TemplateDeriv%Cus tomizD  ' btnCl2_Click() Hides the user form Execd wXhen ton is presW PJN Sub2 Me.4 En6d'nt1I Sends control to>general modu@)inti@ng one pPy of s@&adsheet.22cCed 3'LA3G#.5385thre5i@g+63)64(6B46Save5P`romptks@aExcel HccAO, NbActaWork`book.pRetryValidUs all ionCell`gain3_ZHe&`He.ApplAAuchangCiCs"C To" dialog_f/.*H R! (lstBox8ue)txgC a_'B9' ' Up0labeŁ/t"Gboty#Aǐfocd item " `qvej 0lblU.ue.Cap>t>ywx" 9Zٌ" 9Z`" 9Z" 9ZxW ɳ1" 9Zٓ" 9Zs48<@DHLPTX\`dhlp @SPSSS6"`|J ``$$D``xJB@"J`|J' conN`@J /spreT`,k8$xts t$8) E$$ `|J8~H $8$$0$8`$$Ph8P$VZR @x @h @X @T @P @@ @< @, <4$Txx @h Xd `@T @D @  VZR x @h @X (T @P :@@ lx< @, `c!blNe@dac%0ListH'Index, 3`a$7`' "& __SRP_8 Q __SRP_9yCfrmDoneq__SRP_a v@)yD) H `1L P ` T ` X  `\))`)Ad)Yh)q l `1p!`ql??D $ 0   0   0   0 `  0   DgT'X%hx x ,h"$ Ta@`#<P P @/<)xTP6hX@ehx x @(XhT T 8@`#<P P @/<)xTP6hX@&:,Nhhx x x5hP$ (<xTPhX@TH4PXlp+rU |$`$)`$i`$`$`$)`$i`prU p!Iq4A 8 `1  < `  @ 9 `q  D ` H))L)Ac ?   0 `  0   0   0   D8@<CrU X$ `$) `$i `$ `ph>DZ*=h8+3q>DZxɳ1>DZ__SRP_b , @*Hx 024@*x ""  , 0"8 P X ` h*p        H B (0B 8 @HB P X`B h pxB  B  B  B   ( 2 .H xB5  $ @ > XB `h&M  ( B 2P B  h>DZ*=h8+3q>DZxɳ1>DZ>DZ#` PSS S8$>LN0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}*9*\R1*#15d$*\Rffff*27374d4ea2*\R0*#10*\R1*#b8*\R1*#20b`(qF$$$$ $bj0<<@ bnDD@bpXHH@8btPP@0$$ x`T" 9Zِ" 9Zh" 9Z" 9Zx6p 6ɳ1" 9Zٖ" 9Z ..p48<@DHL(SPSSS6"<,<<<< <$<0<4<8<<<0{5FFB3730-30B5-11D4-AFE4-BD6255C9033E}{5FFB3728-30B5-11D4-AFE4-BD6255C9033E}*9"*\Rffff*5378b56e30($X01 $:`|J` >`|J` $$$$D`xJB@"$$$$ to $` of $$ `|J```hp`x$ AX 2(+BCDx D8` 0pXME"    0@ p" x    T 2 H" P Xh p x X 2  " ( 0@ H P 6h 0 "  # btnClose_Click() Hides the user formSC~1* Executed when the Close button is pressed` B@<lh btnPrint1_Click@N Sends control to the general module for printing one copy of the spreadsheet., Executed when the Print1 button is clicked. 6B@"l btnPrint3_ClickR Sends control to the general module for printing three copies of the spreadsheet., Executed when the Print3 button is clicked.h 6B@l btnSave_Click2Ce/ Prompts the user to save the Excel spreadsheet) Executed when the Save button is clicked  FB@HdlAttribute VB_Name = "frmDone" Basx0{5FFB3730-30B5-11D4-AFE4-BD6255C9033E}J28J dCreatablAiFalse PredeclaDIdTru "E`xpose@TemplateDeriv%Cus tomizD  ' btnCl2_Click() Hides the user form Execd wXhen ton is presW PJN Sub2 Me.4 En6d'nt1I Sends control to>general moduRinting | py of s@&adsheet.22cCed 3'kLA3G#.53A85three5ik@g+63)64(64!6Save5Promptks@aExcel HccAO, Nb+ActaWorkb0ook.h X+h iz i| i~ iii (Ni$H Ni(hh!Ni,,!hlJ " $) $N $,!Xh |+8$%i ,!h |+((i ,!h |+,+i ,!xh| X0.i ,!h| 41i ,!8h| 84i ,!h0 |+x <7i  , ` hk @ ?i  ,X ` 8 D Gi  , `\J H U `i  y `"4H4@bf8 8@bhP: :@blx@@@brLL@ h `bvX X@X80PxxX(X8@  $hhH(  fhlj$np@l @\ @X h rtv  h  ?l"@x @h h  7h h  %l h  (npph 8p+r1``x8 4@@hX8 7  H8h ?@(x @h 00XH Gjl @\ @L @< @, @ @ ( @ h U@(l @\ (XlL4"ME^ FE(x% Object "ValidationCell" declarationsormsZHolds the Cell to be checkedZ Check length?ZCheck if empty?ZPAppropriate lengthZ0!String representation of the CellZx$Description of the value in the CellZ&0 for numeric, 1 for text, 2 for otherZXValue contraints on the CellZfirst warning valueZsecond warning value% Declares a new ValidationCell objectTN( ~'f |'h z'l 'j z$$. 'n 'p 'roptional arguments 't 'vl8A The following Property Get's all return the specified data field 'j l'jX n'j r'j p'jhx t'jP v'j88 h'j ! Function cellIsEmpty ==> boolean, Checks to see if given single cell is empty' returns true if empty, false otherwise l "%$$'fX Function isLength ==> boolean9 Checks to see if cell contents are of appropriate length8 returns false if cell does not meet length requirements f h' ! j ! j b'a@'h0f(! Function isValidData ==> boolean< Checks to see if cell contents are of appropriate data type, returns false if cell contains invalid dataX p'  !$ p !$ pb'a'hf