Deprecated: mysql_connect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead in /home/syfvtizm/public_html/config/koneksi.php on line 12

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 33

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 34

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 35

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 36

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 37

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 38

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 39

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 40

Warning: Cannot modify header information - headers already sent by (output started at /home/syfvtizm/public_html/config/koneksi.php:12) in /home/syfvtizm/public_html/webconfig/download.php on line 41
ࡱ> nt474ɗ ܊v `PNG  IHDRf4hsRGB pHYs+4IDATx^]=fqtq!HALB BbU$B1؅Ttw6N+E0i\8.UʩdHHHBhΜ{ϹǷ3gs;s=ѯ~%|#%b_ ngi0<#ӟ^| _ ^|lΛG{9k00>p ;>;v ^yO}$ 9ZHU z1Iމ 1?%/ЪZu%hD?%Xr>>uvoI1Bw.KF B}]z‰{SdR,0DH_pS*wT>ٞcJ#]Gj (HWѨ tƩYv9pv Qωlb=Pr&!5ƩhDgTrjRv{x %-gh\&-EYH\vb{ʦJ7K…y ա p BjF:#Jv&HhL C }$(ʂrRd\kJZfAI,v1qu a U3hQ"dj|s%JBv&œh̓~-Q4̣05ЇD :>錿qc49džlqNWuow5<(LB@`NН^gLjCr4KֳTR [ \T3B>C5ƘW0wf$5&\L0 S@\$.L|ْix;ڌs :"|bh.T_3@3h!5NӰfe@v],Dy{`?hKE#L %/Zu\;r4c!6F{T'ٽ$>@hم~W@%]^3B-oxJ X"2h'l0F $ɵrZ_78 GK3-!rO-'xȸaޢ#  doxs Sjho셽q+hDv/tGC A@JVMj{s0)1Yш_q43o5x pyٮ`2*N1ɓ'}tfr \5uJC7Ly[i^cCwrwK-mk liTbʨ*sh؋ܠe-㚥NaoNuQ=G^Q9Z*:ɝ~ 6VgsQ2esS 1t 1oNIIM*PKVObItTdpk  Y Nva7j1%݆؆Plk$9`\ZNˈթeAC_,Cqg@Ld:hթrYI%mnN^_[+TMAmJ:0]ʩܘO Α0fj97,'2]h ;S;V|7씌a*,[~_^/0T:c+ae4I{'Yh`|\r&mb&Ʈuezk)SY4NR>o`5hȂǎH6ؖE&Pre8N{js'w 9$Fz˖M8)4)`v !TUq I[[o=4 `D=i&70ix{V-:2{`췇jcwf@i=oNlqB].e NF]2z^0߬b}|h&AK"PH=!@,@}["2. @$0v@-x^ԛ[#2?a0 =x!@;ˈAzуQmUVʶ;tsja VC }:՜=@8xz@˼2uۖܬ^W ˷RYܿI4[TفhA\_Q*̿قèX+@GFD}߱4݃xus%+{WdžTePҚ^-K>W9$ArjF9 1V|nX INܯnDةC}d:g.2|_:|aU}Xyk RduggNH%VG/Y\=AL/Y"A78)>m0=~8nN)N40FPXv -}O[Z$8m4JT5k;h>N[o|sɩCg6 ׼<;;JmU\ Սʉ 9]Bmh3y.zWx%/5dĩ (yK˓-1_aJ&hrmކI /vڙ+K(#!ste%BjxMʗM`Sr%<[;$yYq1:hu>㋟N=늗47#:4_A$ʤ&3 ?#Լhw2'6c^^e$CK&29-ũ ѫ:[xɔȨ5| ݍ]*n<=]r8Lˁ3=zRQ⺶sz_25g^(/&@f')t njv6\$w. =Y_ Oa/bxBFe\C.ci҉oVp'o nŒ%||)[eQBrqPTУ29R#V;b/~UO%JtF2zAJS9=`FIQNxv) hggDd;/`Ѕe:)S2ma ) ?7r4L_((W #嫝=o$b3IM֪#@ N,ST FFјrq@9 Ρ#N zs/m(wsFRow[<iy,“ |J5j{LIT|58LY~^jԳSmNSm%׬Qy'HpW:Q+xkF &;./<"&SFUr'i΢SH'U;#qYZN'WP3ʍlOU /QY ZFb<a!to_mTv֏;tk3w_֐a1I/F_bm9gRc%-5;+c_.%žƗݶAklaYBh1xej&C۟' 7:^V՛m7YO|ow?y퍊YJ<O)U+O6|哟9c+399))3k唡dUy@Q:ޅr:0w?#~/^_ [__בp5o?f(u3T˿:۶2n]i5kUPw+{>meT_Z&rLgBcm\&=ƏGiwCT VA c{ic-t6èxGOe63lݼvCkˎ&`b  MvSr3 Aåd-8? 7tu ;鉷@ >'qWW檳<_əx] r ^nBW_3F̮QPu6(_@ F;]b^Ԗ\[u&e4v 6\,gFUm}cS9=V% QUil%* /lng^U'gaB?@ys<ej4s?5*=e|H\`ΨyXTKHghI;bS~%.!9{T9Go#h ;-U8fpqq)f_ddF{M+S[qBTMϣT.y4R,p0#CCR32]ppXmyWG212Y"LYeEmgƊl[px3R 'sj6l.H-w9s9]]u/Ӯ*j>U3Jsjy⚜m7E2^r9F鞧7x3ich9ǝ V"IW Σq"&h'/mtl5w?vvϣ5ゆ<<&D"_ZxrSr]h`eՉm_om*`|Cɩ2) ݓj 64&Gk@u@k&ě6ACߤǵA*u+7D"0i WhKQ7i};ǎ֜qfwQ꣐~cbj (@3xz3thKvC NuM{  zйIӐϣQx׉OmP Ih]:'u枤/oG`Ck\_"\d8G]lq&Oj[;eB~knqK,hzoӒ74k]+,\u7XGT[8L: 'p` ]7xaHRHLF Y6q A wbsP9=ۑeN*{I g2Z h81-u\]\3W\T2F%njrRs Z zwO(+ })q32wQ;lt)p\,:(ծS`F`-[55,h κs#^jNqrraՆRrb`v[5n9ꔌ{~6x#\ κdPjBiRUx\. hck}Pulyb\zS`Tjlh?Yl  c&i|ω]VXŪٝlRgʙM\Rގ1ԌkpkO FV9%FE>h<V^,V8W70\dFcRO[|CIHIP?% hu0[inVu5 sԶ'Ncw8oΘ+3|Fs a @0cx~幯CDG (/gFsVڶZF-G+8q0P,^`4ak2@JCFC KtIeO}< DxH=ĐQbDll_FlgqUmBD%whpYDFكޙ0u?#Vo؛e+YgeMrk9{Զ 5;6f47%`v^f c:e9ˁZ=7<1>z39ʣsS.n lf4ZƪhFx!$fv2~X5&8qtyPa]uJ1 䊀]0'u<$Xֈ ^ĽNNʄwPF`ZN_8fp 1̠i6Mt\΋9_ԝԗkmc15b!5Ჽnnh xOdk*7܏roqyi]UZ'x)G{AG@`Ghw;Ÿ6'w#Oq9w70W#nB?D`-<1Tib;>{ᨭ}`Y~şP-/L9wҮ:F;qP;"h8˻]qg'h ,]ny-p2/Be^6[>~S_[A #pJ:DY a.dg~^L_~KFd@/9k ik`}x;򚸺jN).2i;uz*d`>ڕ p3]uRCP_)rOWHbgNj.ק±b0f4!&힐T2}Sh+cً6;7oQD:@-8ri|zYj!K㦌9ђUgq[]Tg;1;(ПCFkʁeW;dFvJ *>EF .ϣcJX9+ 2q3p\ O2 FFkxC.lzAer\rzJNkBu8jIq0&n}m}ǖpjxxi0ZFk"G;ףƨ$W> C/nQPccأG;>60Z,,v@x<1 .nFӯ>ms~,)+l3[z콳hPr7@`CO7Go֏Ʀ>6{SGچ5N>Rmآ(|`(CtVT1ZU]_B&Pհ^͘B %b K[88Y ~e4q)FYK\vUI4Mhg/+5kΔD{g,fT2jw1*@gRjIʶV:.H/G#-@glMr b=ѵ@p']Β1Wf7#laU^A1?m`SI ;JזɃUeUax0op"V"c4x-n.GC|FkxAgy;"U6irpqG`ޅ1͠'lGl1A#f;N?ielGG.|>5^zG|YI<w8V0ͦ]{ͦ$? nF(F`b!F,e!F@9crw~ {4czh <`mLn` ! &JFFfڑGX_C>x$M/㻺p^l@#{ߏ!4  h7X(+j\Ubù_Tgsmn j MFц+Ϲ3LWe+翘 7)bC!0"f Zaw|a2ܪ$ֱ%Sm3ƻS, 7~H٨ӄInW?tFns6Bh|7_m u_*o~=B>F ?,-3J|P5*p=]nh >FJ+kJ9wsIsmnc& Vhg4oV~FN/TH^K%`U6-.m@?>Fﯠ!䲒7{(oP\sj 싀њL(4y :U)TC 0j$* c4:oZEoPa<%Ir68B䪿@' @'h>Q͏ײ݅2.$lHL N.mcц܌+;$Fv0[9T`G VD;>ʹ;1{Î=-W@hW"|@p3ZJMofoH-Om@>F݄۳\  zVaOh -]35K!h I"hƛI5A HX C4am39CInqTha4Jj/ *F$ g z(ipPٞ~hc܌: +{\VY42Тm_.p.0!<7;K]I'1n]raJ6NO| ܌Uҭˮڭݎ8BO~ӟI=1ZuBuMa9@r #]Mj5BV+ܮ[uӋeL |귗Ѩ}R6j#d$f=&1V+{J-`ReczI[O#:/Gg4 c @v|\%U@>}_*$I%JFqUEF{Î}2ʟU' ߁#$g%@7MJВ:7h.6Ex-#ffۅ:wTa:*0x~sr^c`BgRU'hFu^bRnE=U4i/Ḍubp3ZCɊN\ ~n %Y(tLNfēM9S K p?T/.qe|WrAvm!<5c !3Qǎ1h˞?v|Qh@`/0W`-%܌7}B+xos Ƌ/ÝpU!4#c4^%_z?4(7zXk YIQZ P@hRЌ|;+=Ʋ O'!p&`y.K?1RLť6N[I[@g]&MMjG!c47F\>(@ x VFrt`>Q@4!c4Rݵmmh!c4-+}@ 077 = 1;'9E3 |y !J !c4̣ &@1ภÇ/-LZlhz #:UFǏa8v|o~Fõ}Cj8rc16 pm64j4H]kOK/lѦB+gPLMy0ʳA E,h\]goPu qt^@3MKW@-,R5(<(#h!/̣t#c4y[TwBss.|t !x+ #h$]7p-1- W@on+@ ?'>O~0wswS 1¦ ɔؿ(z;݄y"͟&-*p Ӧe~a4*c(#C&wwnjSālC3kuFB@;~;/7Pf͗yZ%! i12r$ Q+H5f盛y!gb2҉DvLpyk@>ҿM`YO"3mc[P 8V Hc9W{#j=}g ,_AnB2u!emÈ_&mow/Йu`4 %e:[@A~rfVeEj}sP# Itj]H_S[Zg3zcl%jj*f"c$\&YVAG=>M,*eU$%V|ŹX@@9j+1Ɓ:(gŢh^-2:Fԥ9HxNMwҲjj.' /h638a .T|W>)"%FQ"Ii,}y_53hZލ%H5lC_( tgKܣe`0)"ҫEOj,2Z:9_q4Y.ЙNt6WUC!zb7Hkxq$bKUi~μ, Z4-8If .Jbtf4 $tM=,f#60Ҍti Ҥg4@l *^2v1gF^5z1I^(6jy¶!05}F=W@LB Ƥ 0[Uי#$@@;0@^/Pet@_^[üX|ʠ:ҝ} T^ݔu$ODzg0w7fbdfw7[vjj_ݖw^ d`i< Ѓ@4 gX̚j:sڹBum[1f@̠`XhYם\& jWF@{L*YNHĈS\ ڌ0}g 6#`й !M9wRdV#hC 2wq̦ik1}qYy9֯@嬪VLv7nĆ@E16th@ ݄zC[ VDn ;zsā #C;6IENDB`n-*f7f=r\^PNG  IHDRCՁsRGB pHYs.>-iIDATx^1嶕.S S]qR l \dLȶq-\,ҥ03vvwIv]s9PyHQ%}s>RER"@&wAͷa@>>|. !\(bOW !@[ ~  \_~#tgE& H D !4@|[?V[\gI"bCO>| @ E@i::\#bPĠ0ѭ[ A=<}^Z7ځ?xXF+՜bF <{Rth=]' Ys  yXÁDćE8IÙ9fo՟mJcYG $^}D@`w*!oN@@;Q@[{DôqQ6 pR(ƮJ/&rb J cD0<߀'`QS(J$'9I^eFXH NNN ^BT 2bol$s kM4X$9G͍My쓮fF<.dR5!@O( b =:\3HlNOt (_-y^ol0 sk!pJ0Q1Ɯ1/kSӞD1x7hlt(?}h]zk^Sӑ\UkԕUi06!pqGE8B "=~4HNL0IZ' s ١k\K؄ }dogBuO@قrlH\Q@]eK!1NLEUz[,Da ;=g1 "]zOƴ?BuҸ @gp ̊A)΀ cХ_@NJCL8g6!>    C$@$0Eփ I@zi1-]$s/^N~ĹV>+ T~Kg~%Y-b?Zy ߈N<< )!S S'rE 71=q@ZaI@@Y 0G`N% dYHOٳg/^Ura*(/'pB%]2pUlA#<}x<{Ї2?y#q[XQ֦+ e=Sf'qӈT lF[v=Trt{ΪJiD 6W%\]ڳ Fm`B 5~t@>3(Y8Pо-L,ʙ%+5Xj*f1 vI$s9S N%+@ZPl3H~md3`AMd!f=YSCϣJsPOQ+#V1J+> qI QyTū)YXղ*89vmzdչeyڢu7:6Ff9 `d3$41gPӶiy L0LQSR;NJ*5Ŗ/ܹmQ*s5U'\Ps+";YQϾ ac3$z՞Aq ?^Q{׉ozUTM.,s(D4=$2Q(zܗZhM̝!dSMf#*K\{)qaw,.<]De m Ocځt)\bYLLLB=b51 -L%Do2^Y83*RU7a˫C=^d3PTYQ/^KYeKEOpqO$/p.zT|.n!v>JMPUx9I*Xb\]֭_\nA s#x+b_*]'9MtnB)#FUN&o+UP ><{=9h٠yې*tH S/N8*;ZmW?3zy+/j+Ob@ԝǏܛF%CP?CdS,* V>&yBE1rRd\LMUpUS'v*G *:7JJ;&Qd@kjmC*ݯsÚ~XCvӓJ`ڮh,*N͡^ HӧV9C=-0 d Z"F&%ۑQ@FSjf1RV$.6&?KÉ2RzZkZ_'jM4J=Sz0g_G ^וCSOBԿNi='׉2KP&bJ&S%P;=^P_Zp鵏xo^B=IBXrUƧwo5>w^j:>4sE8XQ7~ySLO6и53*ZH^v[7J0Gߎe;&f۱Ws!&L<@PW{L3stqⓖHpL4w ±jݼۨQPy60Ty{C\ Luvr.|4A[}5%4Cs}@=yucx63`g)R=<|e G{@m@S1ݺ )YbKKk_zsn$(aC66k7ҼyD 2=j뤨%өQgөubɺ)n-Ȝ#8ap8)ҩ+V[i;E1֒}z}A퇿 ^m>7S7",UXvnJ Ub'WË2J~Ԃ)r;̚_Š(Q 8Q&3gTOɫoO7G6H݋9FXO7 XPDq?@C,aόl|/PVn?9ul£5DޘCBwT| j{rFNҔKx "$B?KÅU[w/[N"ÁW--6ZsUM NENV!Z<[üqq2wFl<m~"駴#_~1.EJχM3rtIڹ?]~~>Butakmc7%򧑯ZJE#ׁ91(MA !Df"goo tJE#ׁ}+!Ay kyf! ,$@Xh!@(Gq?!@@n΀ѡf@p>A2UC% $^q`V |!\OC&ZoJ22}+%fOɕ/A'0B^m/]‡ '{]hW@@ѥ}ds2uMbL8.:,尤ܗ,$ߪsr\6ovߋJko~~3Z=e|K+%>}tw#ɱGkMn9/*;6~asjwe *mȆ8evf64a=v3{G&k^[磣ͦ vC/zweH[p+#5gAdu&?J=G<&x;#mwA l&ˢjSJ}ۆ} }SۧxDf(vp=Dr(A#m }̊ގ{{I##@Raf=M' K3Pa"ZM]jum1M|!6mO7ۓv tAvI*'^iT5=F_hAq3c*_ MŨI(pj)UpF qƠn6w=;P=Ld/␶P ak憉BE uW~yn@濳 mW&_i2DVFZO *JOO_e^RQmsg(|Ȇo~6(3Lqskb`Pb0-Q3khsbwg֖&B!5Vk |W*30RKz.:[6 . NY(?:A0CCPQj*l6h |菪rt@̊zCptF <M>+%xs2!?V嬭U'vU,6N̴!4[*5Im3^Urh:I& }'5ki):F_o%e3P^O.قá';Z:ZkO:.U>=b- i74Um 4+]]&$+ {H>Y4]Z!0Gf闻wV;F/q f9r2;qRcE3왲a).#u 5ܳ Ҏ1LeD [lC#/y ) ؔȔF@EUt4#aO?=/W-C &@ @`#L oPBOpdJ#6~^&N) ٗΒK |g:^}26:&@1}+@`ҬIFH0QVuH @`$H/v"0d^( pf0n>n X m'7@bP}ŒŇ| A $e#S 1u @`n ~{{Nr2 ptAȻVqEahcd] !b0θ!3Ś+$0$'e(~Q- %0Lg獳E5@Se@;@ *tsG!Bk۰AtSg0X @`@;QQ \O~kV7@"b p%Ƭ|_{1Av^6#KQ^#YHk7G6͉A)}/!ÿ6A3'.~g4" n~l1ǟ+CU' ĢγCoGQW/P,C$8HaA Z8pQ(|=\!#K!8ahx)bps&oJƼ?RRv!Un)SAqu##op!M u $*vŎ*&ΣiEcC$g$۝E_t@="Í}`#Ld%p9Ȓvtx.|el<W5fǿ}V㳖,q]`:/uЙֳvD?s:mmƯB۵9'z㈳!#WN xb0w蒞>u+縣'c p!>@73]n2+"/ger6 pBubfV%@XX- 8 NP'9: A`HbfC0g0T BQ P0~BhC4DZ PJqJ pDub/P%-KgL U:83(qsGJtJ`%'0 @@ O 6CN@Emze7菲"u; P6j6M9 x9j ԋ/Pk @]πmW2@8%:18% 1i: T @ "B[NE 3C@D1J@@D Qe @]@f —Θ@>e (@@\!C8%j18% pq+C`s S`sټDW,n'&C6M @vRA) O ڎ!]i"k@%رȧJ"DODQ \^ZLP@n~TEb@IE I% M^8j1[0`%б#0g0`'P-tA;`2}HW_z5@؅@DW3K) M<[N]=vc P'{Z:D  ʎ]n !,!" @XLE l1v @@Ux@@0OЊ KZ  @bJ @QCF' \@*6t}!x@  .~ wH{{Gk <6_C.9FM߄IP36iI P @R — wB  x5 :1 @B֧$BP.HQ .H!@-8q 4@Z T݂B.KZ .K!bp%4@^b^ pbp/)A8169q pElnӿԛ7JEo$wCdܦp j)u@r !@@עQ @ NI18e :ub DKS&5 Q ԉs#~AXDN e 0*`Ԓ/@@ 6MVF%P'L Z@`:1— 0 j1s nn(1@eܦQ6Yn'&Cܦ7'A@~@ @fsU" P',TG 08o[P'#=@o?"@ $o%*AB P'BulsvB%ԉ . !@g~8Z !\@8ΩPX1kq%Z@G# u V @Y Q0g@ pJbpJ @W‡NHO>׌donr#kX5by0jd9NRF_f-jy#X&e /'ĠhO~뼋ӈ/^(8 ƙFiƾ+w2Ք\;ZM2 g^aQEXƺX(:I$bYHl1f7#ogN LnwS;>#Q$0ѕ޸%)Yۉr14jG\z ex:4 Uay[{@[Sa.s9ڞ#W[*8I`X'359A[ ~83\ shBh qCMJۜH:P$'I<&9$iahpX :[ݷ~5ӚWOR{ slnd穊TI'p`x+Շ0'WOmI A( dD21%; =~Q)phf\MZA-_&'=yx"9}S=݂04CD9Hֶ鍿aW?”[x?4R۷5h{qKցDYz<Ȥi8sʖe@^MQL~}Dʭ>Hc e(-bs&;cj\r;B@N `83  Bu'!@#}4Q,1=0* 0`@xi}\^skX ޞzedàVͫ&UNbsIL #k?>?v^|.rzedѬàVͫX6gжE„ -ӼT.) iCaGDZ .z,⓭d@k%ݒC.1s%4XbkDM@`wQDtLJ ҥpIX70[ +@8S:1ئml C[ C[  ,t 3Default ObjectsBActiveCell ActiveCell.Offset(0,1).Select RowNum = ActiveCell.Row ActiveSheet ActiveSheet.Name =  Data ActiveSheet.Visible = VeryHidden Selection Selection.Clear Z6Z Z;Z ZZ 6 ;  ,)M  What does this code do?TActiveCell.Offset(Range( B2 ),-2) = [b4]/4.+ Controlling ObjectsUse assignment statements to change objects or properties Different effects, similar results Range( F3 ).Value = Range( D3 ).Value*15 Range ( F3 ).Formula =  =D3*15 First form enter a number  no updates! Second form enters a formula2]] CollectionsLWorksheets Worksheets(1) Worksheets( Sheet2 ) Columns Columns( C:D ).HorizontalAlignment = xlCenter Rows Rows(5).RowHeight = 19.5 Note difference between Row and Rows Z#ZZ.ZZZ%Z #.%>E , Excel MethodsRecord macros to define Copy, Paste Range( B3:D6 ).Select Selection.Copy Sort N$&$& Find a Given Cell_GoTo Edit, Goto, Special Last Cell Current Region {End}{Down} Find first column in the last row6-.-.$QLook-upsVLookUp(value, table, col_num, close) Value: item to find Table: range of data to search Must be sorted by 1st column Col_num: which column has data? Close: true or false True: select nearest match  always finds False: find exact, or return #N/Ab&35L&35L $ VLookUp   Spreadsheet Functions in VBA(>Application.WorkSheetFunction.Name(Arguments) Application.WorksheetFunction.Today() Cell addresses must appear as ranges Application.WorkSheetFunction.IsNumber(Range( B3 )) Most worksheet functions have a VBA equivalent Functions must be used in assignment statements vAns = Application.WorkSheetFunction. _ vLookup(Range( A10 ), Range( A2:C8 ), 3, True) vOut = Range( A10 ).formula &  lives in  vAns MsgBox vOut.&%4_. %_    d       :m(& Find()VBA Function  not available on sheet Expression.Find(What) Expression must define a range on the spreadsheet Returns Range location of first match Expression range need not be sorted If no match is found, it returns NothingT1Find( ) FunctionUser Defined Functions?You can write your own custom functions Decide what information will be passed in (Arguments) Decide what value will be returned Decide how VBA will use the arguments to calculate the returned value Example: Determine employee bunuses Argument: Amount of sales Return value: Bonus amount Bonus = 2% if Sales > $50,000 @(U(UU User-defined Functions(Form: Function Name(Arguments) Unlike Sub  the name of the function must be repeated in the code Function Bonus(Sales) If Sales > 50000 Then Bonus = Sales * 0.02 Else Bonus = 0 End If End FunctioncA F  Using Custom Functions|Functions can be called from another sub vSales = Range( B3 ).Value vBonus = Bonus(vSales) Range( C3 ).Value = vBonus Functions can be used in the spreadsheet Use Function Generator [fx] Look under  User-defined Place cursor in [C3], write: =Bonus(B3) Note how the results differ! See VBAFunctions.xls in the handouts)M)S B)M)9  B) Be   Custom MenusDefine Variables Use Set to define contents Dim myButton As CommandBarButton Set myButton = CommandBars("Worksheet Menu Bar")_ .Controls("Tools").Controls.Add With myButton .Caption = "Say Hi" .MoveBefore:=4 .OnAction = "SayHi" .FaceId = 2174 End With,Z%ZZ, O` 2 =    Removing Menu ItemsSearch the existing buttons Remove identified items For Each Item In CommandBars("Worksheet Menu Bar")_ .Controls("Tools").Controls If Item.Caption = "Say Hi" Then Item.Delete Exit For End If Next Item46 J$ F Activating Custom MenusMenu code goes in a macro Macro must be run to make menu appear or disappear Use WorkBook_Open to add menues Use WorkBook_BeforeClose to remove See SayHi.xls in the handoutstQ    ` 33PP` 3333` ___MMM` 13` 333fpKNāvI` j@v۩ῑ΂H` Q_{>?" dd@,?n<d@ `7 `2@`7``2 n?" dd@   @@``PR    @ ` ` p>> , $   (     <" @   TXd" @   <"U_ @   Td">& @   N"P @   <:"p @   C x:?d?"bUv @   6(: "U : T Click to edit Master title style! !P  0: " <$  0 : RClick to edit Master text styles Second level Third level Fourth level Fifth level!     S  60: "@ : B*  6: "@`  : D*  68: "` : D*B  s *޽h ? 3333  Blends%     Pk (  T +  "+bb P@ # "Dwoh  s *"PP  Bd" P@bb P 0  # "Nyh  s *"P    Bd"P 0 z   <" a*h   s *"    f?d?"+)   <BC ?"pP C T Click to edit Master title style! !   0 EC " `   C W#Click to edit Master subtitle style$ $  6p+C "`p  C F*  6|JC "`p  C H*  6z< "` C H*B  s *޽h ? 3333  0\(  x  c $< U  <   c $<  <$  0 < H  0޽h ? ̙33  @$(  r  S |D U  D r  S |D   D H  0޽h ? 3333    $(   r  S t < U  < r  S 0 <   < H  0޽h ? 3333w  '0`(  `r ` S D U  D r ` S D   D  ` ZA ??`0 `  fD ??@@P ,$D 0 74H ` 0޽h ? 3333   p0(  px p c $@~D U  D x p c $~D   D H p 0޽h ? 3333  ($(  (r ( S wD U  D r ( S xD   D H ( 0޽h ? 3333  h$(  hr h S qD U  D r h S trD   D H h 0޽h ? 3333  d$(  dr d S LD U  D r d S @MD   D H d 0޽h ? 3333  0P(  0r 0 S gD U  D  0 S gD  <$  0 D H 0 0޽h ? 3333R  <~(  <r < S @BD U  D  < ZA ??0sl p0 <p0,$D  0 < ZED ?? 0@  eValue to LookUp 2` <  00e0e BC8DEFA@ o8c8c     ?1d0u0@Ty2 NP'p<'p@A)BCD|E?\$8(P`X@  H   <  ` o??pp l p  <p ,$D  0~@    <   < T WD ??0   @ Search range  2 Z  <  *0e0e B0CDEFA@ o8c8c     ?1d0u0@Ty2 NP'p<'p@A)BCD|E?x`0L0@  @h  <  ` o??p  l  @ < @,$D  0@ X@ <X@ < T[D ??` @ A Return column 2Z <  *0e0e BCDEFA@ o8c8c     ?1d0u0@Ty2 NP'p<'p@A)BCD|E?x Hd@  X0  <  ` o??  l  p < p,$D  0 < Tx`D ??   NTrue: find closest match(2B <  fDo??p pp B <  fDo??pp pH < 0޽h ? 3333  PP(  Pr P S 9D U  D  P S :D  <$  0 D H P 0޽h ? 3333  @$(  @r @ S 4D U  D r @ S 5D   D H @ 0޽h ? 3333  C; l0 (  lr l S D U  D H l TL&D ??@@ Range( C10 ).Value = _ Range( A2:A8 ).Find( Gene ).Offset(0,2).ValueH 2H l ZA ??` PN l T)D ?? ,$D  0 `Looks in cells A2:A8 for  Gene , returns [A5]1 21  l T-D ??4 0  ,$D  0 e/Offsets 2 cells right from [A5] returns [C5]0 20   l T<: ??z (H ,$D  0 RFinds the value in [C5] = 58 2 l T: ??@` ,$D  0 PPuts the value 58 in [C10] 2l 4{ c l4{ c,$D  0 l S ~:G  l ZjJ??c@c<l \ l\,$D  0. l c |:GHIdJPKLPMNu jJ??,$D  0 >  l ZjJ??\(<l $  l$ ,$D  0.  l c l:GHI`JPKLPMNPC jJ??,$D  0 >  l ZjJ??$ $ <l 0   l0 ,$D  0.  l c \0DG.H*IiJPKPLPMN! jJ??0 ,$D  0 >  l ZjJ??  H l 0޽h ? l ll l llll ll l ll lll 3333  t$(  tr t S D U  D r t S TD    D H t 0޽h ? 3333  H$(  Hr H S p D U  D r H S , D  P D H H 0޽h ? 3333  px$(  xr x S D U  D r x S lD   D H x 0޽h ? 3333?  `X7(  Xr X S < U  < r X S p<   < + X C x<GHGIRJGKRLGMNG ??  ,$D  0 OCaption: Words in menu listF X C xl<GHGIRJGKRLGMNG ??  ,$D  0 jMoveBefore: Position in list A X C xD<GsHGIRJGKRLGMNG ??{  ,$D  0 eOnAction: Macro to callA X C x<GxHGIRJGKRLGMNG ??; @,$D  0 eFaceID: Icon to displayH X 0޽h ?O@XXXX 3333  P\$(  \r \ S (< U  < r \ S <   < H \ 0޽h ? 3333  @|$(  |r | S 8< U  < r | S <   < H | 0޽h ? 3333r`{1u@JLN-V[ ^{ucsƎ PXZgwTڌ Oh+'0,' hp $ D P \hpVBA Programming for Exceli Ron Williamsng LC:\Program Files\Microsoft Office\Templates\Presentation Designs\Blends.pot Ron Williamsles13 Microsoft PowerPointoso@K8|9@9y@j*G%g   0& &&#TNPP 2OMiD & TNPP &&TNPP    - "-- !-- "---- !2.s,--- - &Tsv&--=- $Ts^s^T- $^shsh^- $hsrsrh- $rsvsvr---&& 33--- !2,9--- &`&--KK- $`jj`- $jttj- $t~~t- $~~---&& & H&--&&- $I l vIDD- $I v Ikk- $I I- $I I- $I I- $I I- $I I- $I I- $I I $I I&&& "- & $ HH&>t8b&-&& &&-&&I &&- $I l vIDD- $I v Ikk- $I I- $I I- $I I- $I I- $I I- $I I- $I I $I I&- --&& --- !ohP--- &/&--- $/99/ - $9CC9###- $CMMC&&&- $MWWM)))- $WaaW,,,- $akka///- $kuuk222- $uu555- $888- $<<<- $???- $CCC- $FFF- $JJJ- $LLL- $OOO- $SSS- $WWW- $[[[- $^^^- $bbb- $  fff- $  jjj- $nnn- $))rrr- $)33)vvv- $3==3zzz- $=GG=~~~- $GQQG- $Q[[Q- $[ee[- $eooe- $oyyo- $yy- $- $- $- $- $- $- $- $- $- $- $- $- $- $-  $- $##-  $#--#- $-77--  $7AA7- $AKKA-  $KUUK- $U__U-  $_ii_- $issi-  $s}}s- $}}-  $- $-  $- $-  $- $-  $- $-  $- $-  $- $-  $  - $  -  $- $'' $'11'-  $1;;1- $;EE; $EOOE-  $OYYO- $YccY $cmmc $mwwm-  $ww $- $---&& &_)& &_& --Ay-- @"Tahoma- 33.-2 VBA Programming for Excel###! !12 !! ! .--|-- 33@Wingdings0- 33. 2 n.@"Tahoma- .%2 Review Excel Objects    .@Wingdings0- 33. 2 @n.@"Tahoma- .2 @ Excel Methods !.@Wingdings0- 33. 2 ~n.@"Tahoma- ..2 ~Identifying Specific Cells       .@Wingdings0- 33. 2 n.@"Tahoma- .02 Review Functions for Excel       .@Wingdings0- 33. 2 n.@"Tahoma- .2  Custom Menus$ !.--"System-&TNPP & ՜.+,0  $ , !On-screen Show$Minnesota State University Moorhead Times New RomanTahoma WingdingsArial Unicode MSBlendsVBA Programming for ExcelRange ObjectsDefault ObjectsWhat does this code do?Controlling Objects CollectionsExcel MethodsFind a Given Cell Look-upsVLookUpSpreadsheet Functions in VBAFind()Find( ) FunctionUser Defined FunctionsUser-defined FunctionsUsing Custom Functions Custom MenusRemoving Menu ItemsActivating Custom Menus  Fonts UsedDesign Template Slide TitlesRoot EntrydO)9.J@PicturesYbCurrent User;SummaryInformation(\'!_M plokomedialokomedia  !"#$%&'()*+,-./013456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root EntrydO)PicturesYbCurrent UserSummaryInformation(\'PowerPoint Document(2qDocumentSummaryInformation8