ࡱ> Bd  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~Root Entry FEzPCWorkbookD_VBA_PROJECT_CUR"Cu0{@0{Ctls FL ɀ\p akaa-80011tor Ba= ThisWorkbook=Z-#8X@"1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ1e0}fԚ10e0}fԚ1 e0}fԚ1 e0}fԚ1x0e0}fԚ1.8Times New Roman1 e0}fԚ1$e0}fԚ1e0}fԚ1.Times New Roman1. Times New Roman1e0}fԚ1e0}fԚ1 e0}fԚ10e0}fԚ1 e0}fԚ1.Times New Roman1. Times New Roman1 e0}fԚ1.Times New Roman1. Times New Roman1e0}fԚ1e0}fԚ1 e0}fԚ1<e0}fԚ1e0}fԚ1e0}fԚ14e0}fԚ14e0}fԚ1e0}fԚ1h8e0}fԚ1,8e0}fԚ18e0}fԚ18e0}fԚ1>e0}fԚ1?e0}fԚ1 e0}fԚ1e0}fԚ1 e0}fԚ"$"#,##0;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.005*0_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_- "US$"#,##0_);\("US$"#,##0\)% "US$"#,##0_);[Red]\("US$"#,##0\)&!"US$"#,##0.00_);\("US$"#,##0.00\)+&"US$"#,##0.00_);[Red]\("US$"#,##0.00\) 0.0_  0.0000_  0.00_ 0.00.00_);[Red]\(0.00\)0.00_ ;[Red]\-0.00\ 0_ ;[Red]\-0\ 0.0_);[Red]\(0.0\) 0.000 0.0E+00.0000_);[Red]\(0.0000\)m/d h:mm0_);[Red]\(0\)0.000_);[Red]\(0.000\)0_  0.0000 0.0;[Red]0.0 0;[Red]00.000_ ;[Red]\-0.000\ m"g"d"e"#.0 #.00# #.000[$-404]AM/PM\ hh:mm:ss m/d\ hh:mm5[$-404]ggge"t^"m"g"d"e";@ yyyy"t^"m"g"'yyyy"t^"m"g"d"e";@ mm/dd                ! ! ! ! ! ! ! ! ! ! ! ! " " " " " " + )  # $a> %   &  , * '`     ( " " " " " " ) *P +P ,  , -  . /ff 0 1  #  *8@ @  *8@  *<@ @  *  *8@  *<@  *<@ @  *8@  *<@  *<@  <@ 0@  (    1     *8 @  *<@ @  *<@ @  1*<@ @  1*  *  *<@ @  *  *8  +<@  +8  *<@  *<@  1*<@  1*<  *<  *<@  *<  8@  8@ @  8@ @ 8 8@   8@  <@ <@ <@ <@ H H L L L L x "x@@ x @ h l l p H  p H #X  *X  *x@ @  *x@  *|@ @  &|@@  &|@  &|@  &|@  &| @  *x @  *x  *x@  *|@  *\  *|@ @  *|@ @  x  *x@  *|@  *|@  *x@  *|@  *|@ L  |@   |@  |@  |@  L x@ x x@ L L \ |@ 1\) p@ )  *x@ @)  *X)  1*|@ @)  *|@ @)  *x@ )  *x )  1*|@ )  *|@ )  <@ @  x@ @  x@  x@  x@ x@ @ x@ @ x x@ @  x@ x@ x x@ x@  8@  8@  8@  x@ ) 8@ 8@ @  8@ @ 8@ @  8@ @ 8@ @  8@ @ 8@ @ 8@ @  8@ @  x@ 8@ @ 8@ 8@ @ 8@ @ 8@ @ 1  1*<@ @  *<@ 8@ 8@ @ 8@ @ 8@ @  8@ @ x@@ x @ |@@ p@ |@@ x@ x @ p @ "|@  p@  x@ @  x@ x@ @ x@  x@ @  x@  x@ \ P x@ @ x@ "<  0  <@@ 0@ 8@ 8@  8@ @  8@  8@ 8@ @ 8@ @ 8@ ||m!p}-} e";@"}-} e";@"}-} e";@"}-} e";@"}A} e";@"ef-@_- }A} e";@"ef -@_- }A} e";@"L-@_- }A} e";@"L-@_- }-} e";@"}A} e";@"L-@_- }A} e";@"L-@_- }A} e";@"L -@_- }A} e";@"23-@_- }A} e";@"23-@_- }-} e";@"}-} e";@"}A}  e";@"23-@_- }-}! e";@"}A}% ee";@"-@_- }U}& e";@"-@_-  }A}' ae";@"-@_- }}) }e";@"-@_-    }A}, }e";@"-@_- }x}-e";@"-@_  }-}/ e";@"}A}0 e";@"-@_}A}1 e";@"-@_}A}2 e";@"-@_}A}3 e";@"-@_}A}4 e";@"-@_}A}5 e";@" -@_}-}6 e";@"}A}7 e";@"-@_}A}8 e";@"?-@_}A}9 e";@"23-@_}-}: e";@"}}; ??ve";@"̙-@_    }}< ???e";@"-@_??? ???  ??? ???}}= e";@"-@_??? ???  ??? ???}A}> e";@"-@_}-}? e";@" 20% - r19 20% - r1 % 20% - r29" 20% - r2 % 20% - r39& 20% - r3 % 20% - r49* 20% - r4 % 20% - r5E. 20% - r5 ef % 20% - r6E2 20% - r6  ef % 40% - r1E 40% - r1 L % 40% - r2E# 40% - r2 L湸 % 40% - r39' 40% - r3 % 40% - r4E+ 40% - r4 L % 40% - r5E/ 40% - r5 L % 40% - r6E3 40% - r6  Lմ % 60% - r1E 60% - r1 23 % 60% - r2E$ 60% - r2 23ٗ % 60% - r39( 60% - r3 % 60% - r49, 60% - r4 % 60% - r5E0 60% - r5 23 %! 60% - r694 60% - r6 %N,"CSRMO#"CSRMO[0]$ & ]pNv#P} %-NI{7-NI{  e% &TGT %OO'}Y5}Y  a%(~vRk ){e_s{e_  }% *c^+"c^ [0],#P}v2QX[X5X  % ?fJTeW[/ fJTeW[ %XTableStyleMedium9PivotStyleLight16`rX1Xh (2)g1X (2)vv  ;(/*$"bN͚!n@=bN͚!n| a! xUKHTQWKrSDo," L Bi1Ѭ]ZD(=:h׮AD[E{ϝA?|s?0F8$/V߳7`Q_li5⹙ `d=`;gޝ4-riޠq8Dc\cHh̩Ôed;i %u.Y,гzc<LތF*mj0Dl*԰$:?彏O8g`5QK x,&:!'xLvjgHB!rI& ƶp,Y+Qa6ι)NF˥^EKTO9u%R\'iW]PNV WcؒWQz\-1^:ѫΑޜ|4ԗÝaU-,*Uyաޜ:rpC<Δ;:~{k Ǻ5!8HIrw · uooYF^{s1N{,xwp)=o&}e76Veg }O> n7P_wFqe{dk|'}͇p' 'Qe9k~i8;Ѵ~o\F7F#:Dl9q-lB7V}t}ޫ .>|Zΐ 53g|)w!x#kUZB&c>3 A@@  /=~Ql.l!kgASNeMR}1XkX1XUMOSS^?e^tXOw@\4lԚl]v ,n zc#j  R^p H{[Œ^l=~xo^/l } T1z} _ egI{}!ϑmg/l ϑ mg/lmg/l ϑ mg/l mho /cm NTU CFU /100ml '`R mg/l njeOn,g@\bS[=~.l n 'l uS 'l (l .lanm VԚSx[ 'l pP[ Lub;m 'YP\Pʎ4XekMO T1z-[4lԚR^I{} watertemper airtemperphuS'lϑ(l.l]xx}.lN]xx}.lanmVԚϑSx['lϑ7x\^'Yxh̃pP[Lub;m'`R/l}n'lϑ\xeMOxe-[lQ^}_jܕ S^?e^tXOw@\ g 1X h _ 1134-05-02105t^2g l ] 4l v ,n P} gkXheg-Nl W105t^3g10e4l00000000000000}00000004ln#lnn'l uS'l ]xx }.lN]xx }.lanmVԚ Sx[ 'l 'Yxh ̃pP[Lub;m=~Q l.lP;Bfug/ls^GW--- ND<0.0002ND<0.08e^n17.020.07.38.01.70.960.820.1092.417.10.0722.012.692.7021.01620.140751.1E+510.10.621.548lyKj2/1815:15NND<0.0712014.110.9ofn14.112.37.17.91.00.791.570.094.96.80.5742.911.5523.50.1338.1E+41.813.47,yKj2/1614:3014.013.06.98.50.90.471.580.043.05.10.4374.120.3886.721870.1041.42.6E+410.50.692.31F`IQKj14:5514.212.07.28.21.31.011.566.07.40.6762.181.8226.70.1423.21.2E+511.02.103.76ofKj7.00.70.880.135.87.80.6102.442.4537.22140.1549.6E+411.32.634.34m4ll15.65.42.02.710.930.2879.64.592.8124.76500.1916596.63.404.61SSKjN2174.617.9Wl14.46.51.81.781.445.90.7072.561.0913.60.1723.264.79bRKj2/1715:301.231.490.111.083.291.4518.02050.1306.6E+418.22.404.00'YvKj15:0014.31.62.110.125.24.50.5752.290.9289.882270.1854.28.0E+418.53.755.42b_Kj14.715.01.290.050.4650.9032190.2021.9E+53.624.961562.812.8ٖn13.310.60.81.260.060.6261.670.7039.740.0635.7E+30.46ٖnS4lSND<0.0210:00YN10.70.151.020.91911.61260.0538.4E+20.84Ryn10:1513.20.40.031.300.012.10.4490.6299.922.3E+312.60.832.14_Kj10:401.510.4101.280.5617.691810.0732.31.4E+415.32.36ND<0.5'YQWn15.79.40.11.643.60.7302.091.6919.72110.0453.41.4E+2}fm4l^10:20xn17.54.79.10.20.661.160.0218.32.61.462.750.85422.8541113.9E+245.30.992.17xnKj10:45P[QWn6.610.30.30.141.520.4800.2540.50113.73060.1313.93.0E+43.03eP[QWq\lzn9.73.31.1520.712.46.031.994330.0963.3E+329.93.553.9210:10x/nn23.12.46.41.94.441.250.237.72.043.519.4212038640933000.2603445.657.1309:40XUMO1.+lP[o^cxe!qUMO02.n^el^03.'Yxh̃CFU/100kGS04.P;kˊ;fMRiQ)Y/f&T N05.\]o !NB5R@}rدXkld/s 5m!v!ğ۪ouY3-Y3m,95p-I!9 {FCUv27E1֫?MD4ʆZVeڣgNS-'dz'b4p0,.eMɂdf[|jv7ŢP;+,`i+F])s!Җ9W¯7\D6fD*ȐP4u#o=ͯ vh㈵> v-C6? v?v?v$@v$@vHz>vHz>vHz>vHz>vHz>v-C6?vHz>v?v?vHz>v?v$@v?v? : ; < {| }= ~0~~~~~~~~~~~~~ > ?    !"#$%&'()*+,-/01356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefhjklmnopqrstuvwxyz{|}~@2iw ? S R e %  @ T A B C  D  E R   X      F  ;   p G H I J S R K L M N T O 4 P  R Q R R R S  X T  U  )  V   W Q p X Y Z [ S R \ ] ^ _ T     `  a R S  X T  U  )  V   W Q p X Y Z [ S R \ ] ^ _ T     b Q R R R c  d e  f  g  h  i  j k p l m n o S R p  q r T s t u  v  w R c  d e  f  g  h  i  j k p l m n o S R p  q r T s t u  x Q R R R  c y z  {  |  }      ~     S R     T  l     * R  c y z  {  |  }      ~     S R     T  l    Q R R R            |    p !   V S R     T    DD1lzJNV0l hz! h" hz# h@$ h@% h@& h@' h@  m  R        |   p !   V S R     T     ! !Q !R !R !R ! ! ! ! !  !  !  !  !  ! ! ! ! ! ! !S ! ! ! !~ !4@ !T ! ! ! !" "' " " "R " " " " "  "  "  "  "  " " " " " " "S " " " "~ "4@ "T " " " " #v #v # $v $v $ %v %v % &v &v &v && & &v & 'v '' ' ',,,n (      s HA ?@CommandButton1`]` W1 6$ d0Forms.CommandButton.1L>@WW'' !"&& 7 Sheet3ggD ɀ "  dMbP?_*+%&M&d2?'M&d2?(M&d2?)MFX DocuCentre-II 3005 PCL 6005 Q8 4IA4 Q!FX DocuCentre-II 3005 PCL 6N@ H dH , e0}fԚ  c:\temp\FXF9.tmpp_0" IM&d2?&U} @}  @} @} @} @N} P} @P} P} Q} R} `S} S} N} S} @S} } S} `T} P} P} V} @R} S} !} ""S} ## @} $ @"$$O$J$E$XE$gE$j$@$j$@ $@ $@ $j $@ $j$@$@$@$j$@$@$@$o$@$o$@$o$`$o$@$$o$@$o @L# @U #AABCBB D BBMW# F E F F G DC DD E B!  E"  X#  Y  Z  [$ D% [ Z [ Z [  Z3 \4 B E ]5 ^& Z Z Z ! "  $ !# "H #B I _ I IO J ` `a I  _  b  c  d  e J J J J J J  J f I _ g h d d d     ! "K #I U iQ qR LR R V W X Y  Z  [  \  ]  ^ _ ` a b c d S R e f g h T i j k$??@@@" # kl rm tn o V W X Y  Z  [  \  ]  ^ _ ` a b c d S R e f g h T i j k$??@@@" # t lQ qR LR R u v w x  y  z  {  |  } ~ p     S R q  r  T s  $???@?" # k r t o           p     S R     T   $?????" # k r t o     ]  p     S R q    T   $ ???@@" # k r tn o      p     S R     T   $ ???@?" # lQ qR LR R  W X  Y p     S R    h T   $ @?@@@" # k rm t   W X  Y p     S R    h T   $ @?@@@" # lQ qR LR R   w  |  p     S R    h ]   $ @??@@" # k r t            p     S R     |   $???@@" # k r t            p     S R     T      $@??@@" # k  r t         a      X  p     S R   r   _  $@??@@" #  lQ sR LR R   w           p ! " # $ S R  %  & T  ' $?????" # m( r t* +    ,   )  [  -  ~  p .  / 0 S R 1 2  3 T   4??? !"# n r t6 + 7     8  9  :  ;  < p = k > ? S R e %  @ T A B C$?????" # nD r tE R   X      F  ;   p G H I J S R K L M N T O 4 P$?????" # R lQ sR LR R S  X T  U  )  V   W Q p X Y Z [ S R \ ] ^ _ T   ??? !"# n` r ta R S  X T  U  )  V   W Q p X Y Z [ S R \ ] ^ _ T   ??? !"# b lQ qR LR R c  d e  f  g  h  i  j k p l m n o S R p  q r T s t u$???@?" # nv r tw R c  d e  f  g  h  i  j k p l m n o S R p  q r T s t u$???@?" #  lQsL      !"# nrt      !"# x lQ qR LR R  c y z  {  |  }      ~     S R     T  l $?????" # n r t* R  c y z  {  |  }      ~     S R     T  l $?????" #  lQ qR LR R            |    p !   V S R     T   $?@@@ @" # n rm t R            |    p !   V S R     T   $?@@@ @" #  lQ qR LR R                     S    ~ 4@ T   $@??$@@" #D8l^&t $@!$ p' r t R                S    ~ 4@ T   $ @??$@@" # !@ !PTT>@!"j  # 7 Sheet4ggD VBA@0{)0{ThisWorkbook8__SRP_2074__SRP_21$ B(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@0`X$*\Rffff*0T58a85d734xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU !( $419Y`rU @n<jxT#<6>ڋ@F FO7a2D%%xO7a2D%%6>ڋ@FMESheet4~__SRP_2a.__SRP_2b 2BpP[Lub;m'`R gHexeW[)4 (SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@\\0`X$*\Rffff*0758a860c84xAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU +9 A 4  `rU *@n$l TxME (6  <0% $`(,kp I  I"  @"@pH  @$l POS)8 CHKNU&((Right(L@\ @L @`< @, 00 `X$*\Rffff*0E58a85d6c*\R0*#13$*\Rffff*0Q58a85d6cB  0 $H p   &  $  "  H ` &x  $ # #  ( @ HX `px ]0 $& "$& If X < Y Then ABSNSTR = "ND<" + CStr(Y)Else  Case Is < 1  ABSNSTR = ROUND456(X, 0.01) Case Is < 10  ABSNSTR = ROUND456(X, 0.1) Case Is >= 10  ABSNSTR = ROUND456(X, 1) -----980909 Case Is < 10  ABSNSTR = ROUND456(X, 0.01) Case Is >= 10  ABSNSTR = ROUND456(X, 0.1) NT {Gz?$('$dNT ?$('$dOT $('$nEnd Ifd-'$kixOAttribute VB_Name = "lɭʾļƦr" Dim X As Single, Y Function ABSNSTR(X@) If IsNumeric(X) And Y) Then*.'/X <_ ^ND<" + CStr(Yj?ElseNSelect @Case X ' Is81 7ROUND456l0.018#0($#>= 1'$#-98090>9Fx)*Wn5, <4-<1f0 <= @55 /`1l:m!2D210Q62% 0L3/! 04 b) ='If Dž"aՏ ,0mMbP??A:N,, ?< l6<,0m9v?J +?0u,  <<<,H@0 @Hx(  2`pk DDI  I"   @"@.(@*%@@0X@2l h@&04.4,@0\ @L @< @, @H @ @` @x @ @ @ @ @ @ @H `@ x(@px H)@p p6`xx(p( P`X$*\Rffff*0P58a85d6c*\R0*#13*\R0*#f*\R0*#10$*\Rffff*0Q58a85d6cE B  ( @ &X       * :0 p  2  8   H8     : 6b  0  8;@ !`$Ax !8u  #  8 @ P  `  hp      %    0  8@ P` x    ] H(x $& "$& If X < Y Then NTUSTR = " ND < " + CStr(Y)Else Ca '0 ?NTUN ================= _Ok ================= #CHKNUM = Val(Left(CStr(Abs(X)), 4))ABSNST 4Z = CHKNUM - (Fix(CHKNUM / CDec(0.05)) * CDec(0.05)) Is < Select Case ZSNST Case 0(X, , NTUSTR = Format(CHKNUM * SIGNUM, "0.00")= ROUN Case 0.01 To 0.02 2 NTUSTR = Format((CHKNUM - Z) * SIGNUM, "0.00") Case 0.03 To 0.04 A NTUSTR = Format((CHKNUM + (CDec(0.05) - Z)) * SIGNUM, "0.00") End Select ================= _Ok ================= X $$4'. . .?$4?$4 ', ,KT . 00.00$'2MbP??LT . ,  00.00$'29v?J +?LT .?$4 ,   00.00$'2n NT ?$('2(NT $('2dNT '. . ', ,KT . 0X '2LT . ,  0X '2LT . ,   0X '2n NT  $('2'PT   '. .2 ', ,KT . 0X '2 LT . ,  0X '2(LT .2 ,   0X '2nPnHEnd Ifd0'2k i۲Attribute VB_Name = "BצļƦr" Dim X As Currency, Y 8Z CHKNU"M &SIG&Integer Function NTUSTR(XW) If IsNumeric(X) AndY) Then  '+X <Q ND!" + CS0tr(Ya!'E8lseEO= Sgn: elect Case &X Is,1%%0x0xHl\`X*\R8004*#5d$*\Rffff*0458a860c84x<"  0A@oh`Attribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2ControlCommandButton1, 0, MSForms,6 P<@ Sub 1_Click() RepToTex@t End rU 'I9 q 4  <  `&&E&y&&0 0  8 <ArU &H$&`h @\8n Tl]4lg1XIeW[j __SRP_24__SRP_25o]xx}.l gHexeW[2MO xMEP6 LL `@hkCuteman b 2008/5/1 s 148%`xH:@BHLRT`@x @h @d @` @P P3@L @< @ , @8 @P @h @ @ @ Hxp`X$*\Rffff*0158a860c8*\R1*#33b*\R1*#10d*\R1*#101*\R1*#222*\R1*#7c*\R1*#11*\R1*#42"1"a 1H ` !p1 .G 1"a1 0 !@1P h.Gx 11(,1(.01H` p$:B@H$:>$:B@<$:B@H @B@H BB@< (2)$:B@H @B@H   HF LJNP BB@D_$:B@H==$:>$:B@<(Left($:B@HSNST @B@HCHKNUM BB@<KNUM / (2)$:B@H @B@H Se  HF LJNP BB@DTR (2)$:B@HA:AE$RB@HCaAE4$TB@V B!X(Z$A:AD$RB@HAD3$TB@V `^ BB@\ (2)$:B@HoAttribute VB_Name = "etr" Sub RepToText(X) ,.DescriptionCman b 2008/5/1 sFProcDataRInvoke _FuncR \(n149 Sheets("").Sel ect Copy Aftert:=52Ő "Cpells +1n.Á(5 (2)D"PasteSpe cial :=xlValuesAndNumberFormats, Operaa:= _@bxlNone, SkipBlanks:=Fals Transpose [zTOPO3LOkOOO?_O[KQ/olumnA:AELYRange("AE4Acti0vateDƙEn tireC.HiddeAւv CDTD3XD` A@ShiftOT0oLefh3En d I rU~| %$a!A)qi Iq1d:h%x$ x dd)xdad(h%x$ x dQdo<%L:P%`$ ` dL)x`L5<1d:h%x$ x dd)xdx$ Xxx!x $ xx1d:h%x$ x dd)xdx$ XxxGh %,%f %f%x $ x  x1d:h%x$ x dd)xdad(h%x$ x dQdo<%L:P%`$ ` dL)x`L5<1d:h%x$ x dd)xdx$ Xxx!x $ xx1d:h%x$ x dd)xdx$ XxxGh %,%f %f%x $ x  x1d:h%x$ x dd)xd1:h%x$ `xx5(x'P%:h%$ x0x,fh%x $ xW<Cx5<1:h%x$ `xx5(x'P%:h%$ x0x.h%x $ xx1d:h%x$ x dd)xd$ $xd`L<krU $$$`Yn$TNxME (      "$%&'()*+,-./0123456789:;<=>?@ABCDEGHIJKMOPQRSTUVWXYZ[\]^_`abcdefghijlnoqrstuvwxyz{|}~6  <0% d`(,kp I  `I"  @"@bpH  @dl 8&(@\ @L  @`< @, 00 `X$*\Rffff*0O58a85d6c*\R0*#13$*\Rffff*0Q58a85d6cB  0 $H p   &  &   ( 0#8 P#X px     ]0 $& "$& If X < Y Then NO3NSTR = "ND<" + CStr(Y)Else Select Case XH Case Is < 1   NO3NSTR = ROUND456(X, 0.01)_ Case Is >= 1==  NO3NSTR = ROUND456(X, 0.01)t( End Select  NT {Gz?$('ddNT ?$('dNT $('dLJOT  $('dnHEnd IfA:AEd0-'dAE4ki6Attribute VB_Name = "vQᦳļƦr2" Dim X As Sing le, Y0 Function NO3NSTR(X@) If IsNumeric(X) And Y) TXhen*.'/X| <_ ^ND<" + CS0tr(Yj?El seNSelect Case X  Is81 8ROUND456m0.0191#>= ;$EXGba0 a?BUS00-0 fS'IfJˋH-O  rU~| QHl l \LL(\ ]gZ#<{Gz?l,  ,l5<L(\d]g#) If IsNumeric(@X) And Y) Then '+X <VQND<" + "ť 'ElseBSelect Case XIs_1001_ROUND456^0.1_?&!>= =0=Ej['If {}- rU~| Ql l \LL(\d]gZ#_+ ?Wen:d%E+ rU~| #"krU ","`aq//n/lSir gHexeW[p __SRP_60"__SRP_7}n'ljW#jTo^ gHexeW[| $ TxME (6  <0% t`(,kp I  I"  @"@rpH  @tl 8&(@\ @L @`< @, 00 `X$*\Rffff*0G58a85d6c*\R0*#13$*\Rffff*0Q58a85d6c!B  0 H h x  $  "  "( P $h     #   (0 H P` hx ]0 $& "$& If X < Y Then CLSTR = "<" + CStr(Y)Else Select Case X Case Is < 10  CLSTR = ROUNDLOOP(X, 0.1) Case Is < 1000  CLSTR = ROUNDLOOP(X, 1)"x Case Is < 10000  CLSTR = ROUNDLOOP(X, 10) Case Is >= 10000  CLSTR = ROUNDLOOP(X, 1000) End Select CLSTR = ROUNDLOOP(X, 0.1) dNT ?$('tNT $('tA'NT  $('t'OT d$('tnEnd Ifd-'tkixpIAttribute VB_Name = "ƪļƦr" Dim X As Single, Y0 Function CLSTR(X<) If IsNumeric(X) And Y) Then*.'/X <] \<" + CStr(Yf;ElseJSelect Case X Ism10 6ROUNDLOOPk0.181 #0&$##0G>= 10%m E@kPL$G_MKN_456_^UM^ ^]ES]Q\'IfI a"-A E rU~| Q@l l \LL(\d]gZ#= 1  DOSTR = ROUND456(X, 0.1)!dNT ?$('xNT $('xOT  $('xnEnd Ifdx-'xk`iXP2Attribute VB_Name = "˫~@צļƦr" Dim X As Single, Y Function DO STR(X<)  If IsNumeric(@X) And Y) Then*.'/X <] \ND<" + CStr(Yha=ElseLSelect CaPse X ' I:s71 6RO@UND456j0.17">= "D00E'E ""3A30"10 E.Ey^2'Ifiu-;  rU~|  Ql l \LL(\d]gZ#= 20000 ELECSTR = ROUND456(X, 1000)NT $('|'NT  $('|A'OT d$('|nELECSTR = ROUND456(X, 1)End Ifd'|kixKAttribute VB_Name = "ɹqצļƦr" Dim X As Single, Y0 Function ELEC STR(X@) If IsNumeric(X) And Y) Then '+X <WCR ND"" + CStr(Yb"'ElseFSelect Case X'IsA202ROUND456a0.10# 0?0 !>= 20"1 !QGQAK10@0$}IEH?.'a If  " rU~|        !"#$%&'()*+,-./01345678:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\]_abcdefghijklmnopqrstuvwxyz{|}~Il l \LL(\]gS(<l,  ,l5<L(\']g(< l,  ,l5<L(\']Z( 100  METALSTR = ROUND456(X, 0.1) End SelectNT MbP?$(' NT {Gz?$('dNT ?$('dOT $('nEnd Ifd-'kiKAttribute VB_Name = "˫~@צļƦr" Dim X As Single, Y Function METALSTR(XB) If IsNumeric(X) And Y) TXhen*.'/X| <` _ND<" + CS0tr(Yk@El seOSelect Case JX ' Is81 8ROUND456m0.0001: %0%%ë%%> 10*%NE@nRK7P\P  *)>=NX$M'IfQ ɸ-AE  rU~| QL l l \LL(\]gZ#= 100  BODSTR = ROUND456(X, 1) dNT ?$('NT $('"OT  $('n@End Ifd(-'ki;Attribute VB_Name = "BOD˫~@צƦr" Dim X As Single, Y Func tion STR(X>) If IsNumeric(X) And Y) Then*.'/X <^ ]ND<" + C`Str(Yi>ElseM5X Select CPase ' IrsD10 '))ROUND456x0.01E=#($#>= 10&$ #FX5Z"4f0 XE@qGi'If˃m"-+ E __SRP_4 1__SRP_5}(l.l2jW#jTo^ gHexeW[ __SRP_1494rU~| Ql l \LL(\d]gZ#) If IsNumeric(X) And Y) Then*.'/X <^ ]ND<" + CStr(Yi>ElseMSelect @Case X ' Is71 7ROUND456k0.0018}#0##"'#">= 10%# EiM3'IfY}e-<  rU~| Ql l \LL(\ ]gZ#<{Gz?l,  ,l5<L(\d]g#= 1 SSSTR = ROUND456(X, 0.1)dNT ?$('NT $(''NT  $(''OT d$('npEnd IfdX-'k@i806Attribute VB_Name = "`ѩTqļƦr" Dim X As Sin@gle, Y0 Function SSSTR(X<) If IsNumeric(X) And Y) Then( '+X ><UPND<" + CStr(Y\'El se@+elect Case X'Is^11W.ROUND456\0.1/c>= <00=#=  [!0=E<0_.@EzScC'If ku- rU~| Q@l l \LL(\d]gZ##__SRP_12.:__SRP_13}VhcmQeQNbٖ-'xME (6  <0% `(,kp I   CaI" STR @"@pH  @l 8&(@\ @L @`< @, 00      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMOPQRSUVWXYZ[\]^_`abcdefghijklnopqrstvwxyz{|}~     2/!"#%&()*+,-. 015C4678A:;<=>?@3BD `X$*\Rffff*0M58a85d6c*\R0*#13$*\Rffff*0Q58a85d6cB  0 "H p   # # #     (8@ P]0 $& "$& If X < Y Then NNSTR = "ND<" + CStr(Y)Else NT MbP?$(' NT {Gz?$('dNT ?$('dOT $('nEnd Ifd-'ki&Attribute VB_Name = "˫~@צļƦr" Dim X As Single, Y Function NN STR(X<)  If IsNumeric(@X) And Y) Then*.'/X <] \ND<" + CStr(Yha=ElseLSelect Ca0se X  Is61 5ROU ND456i0.0017"0"""">= 10"E@gCL2'If Xd-@AC ń rU~| QL l l \LL(\]gZ# <<0“@†P@• @…H@
  @‪p" @‮& @′@,@‴0@‸8@% (H`k %% I (I  `k/I  ` ,kII  h` kH_I  ` t+ t‘@‚@„( @․x@0@‬$ @‰( @‶h4@›<@h(xP@hHH p(HH`@(l ]pH\&04@\ @T @D @4 \@($ @@ @X @ \@ !4?@ @ p@ p @ (  4@z  @ x   @ h @X X @H @D @B @8 @ ( @ @ z  @( x  @ @P v h ( @t x P P  X @ 4@ l @p \ @L @H @F ( @< @, Hp@(  4@ z  @x   @h @XX @H @D @B @0 @ @ @ hD%`X$*\Rffff*0Q58a85d6c*\R0*#13*\R0*#15*\R0*#14*\ p x $  *     (8@HX`" hp  "F(J  (.]0`h .] *V*V(0"8 @ H Xh   ]" change rule](]P ]xH]]px]@]h $& $& $$@$'  JļƦrƿ~,Эץ!A@0'(zk '0 $4' $4' X ' X ' '' $4'   X   $' change rule   X ' $4$4' ' NT A@A@  0   $'(RT A@  0X '(MT A@  0X '(n0d('(kiH        0 ' k   $$$4'   $$$4' NT    $$4 'RT   change rule $4 $4    $$4  'd    $$4 'khd`    $$4  'k(MT    $$4  'no $$$4' $$4' NT 'RT   RESULTNUM = COMNUM ----gk change rule $4 $4   'd 'kd   'kMT   'no       0  ' k0  $$$4'   $$$4' NT    $  $ $4'RT      $  $ $4'dH    $$4   'kMT    $$4   'noh'0.'    # ' kX   0 ' oDAttribute VB_Name = "|ˤJ" Dim INTNUM As Single, POS D SMALL &RESUL t 'change ru|le^:=`POxi xABS .II(Integer, SIGG%CHK1 * 2 OMLEN U COMA5OMSTRSngI p=FORMATS R Function ROUND45 6() If IsNu meric) 8AndH!1) pThen [= Log( /Bx10# F <|> @] CpM MsgBox "@ļƦrƿ~,Э!@ E90Exit C5G0EA9fą= xSgnBGCOCDec(Abs:{= FixAuj(C Q?DUG! \en HKERR(FalsGw'0e)#L`eft(Cd- , 3 + x% !y- '"fVal(?bA g!F( elect Case )Is < 0PROCESS1DCmRTNOForPmat('*, 1@'#2=25P >T 3_ trH mAjS.#EP"Dtep'tSub ?0% @"=?< (Pl`1 zaTo# *U`eJ6"iNext O%E= VRight(h% g, 1o͸2@n.]]5!El+_ *8(5 Mod 2)H0,sA >pB) >b ? A? J)`U< *?|?R, ?us !oo o To)o @ (m5> 0tvV? a >ub h;2k;) 1 3)0g`9/r<e/=,,' -gkqUq//-O'a qI_ i?)8) :&7b3>b"bvSbba-[a a'a+0"Js0,*J00y1i4C?aA߲AfT p-j 3 9bW55+&? S? w? S߉,,) *4E7}/s@m^O 2X(1%20.b If COMLEN > 1 Then For II = 2 TotFORMAT1DA+ "#"HNext Endto ABSPOINTPOS\2\2 \0\XTSub __SRP_1a= __SRP_1bNN_VBA_PROJECT'dirT? 6D$ :\l\B$\D$$ b5$+\D$$ U(6$(,\K4,J$ f\%$jD $*6D$<4(D\DKF$  `06$#4(D\DK#+//0 tT$oTkD $*6D$0J&ǖs nS l  @8<*F$ jD l6D$ n l  FDl n l  FDl :\ l,l D$,&Q&cxQ0*0 dx4J0Mh@X  XH  HD  /D6XHJ0Mh@X  XH  HD "/D6XH pB kBAB0Mh@X  XD t8(o8 /D5X kB"(*0 t8#D o8/DV0Mh@X  XD t8(o8k( H* /D6XH#B0Mh@X  XD t8(o8 /D5XV0Mh@X  XD t8(o8k( H* /D6XH kBV0Mh@X  XD t8(o8k( H* /D6XHd$< DXHlE0Ml@\  \L  LH  /H6\L1,Ml@\  \H "/H5\ pF kF ( e kF<"*0 t<#H ostdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-@X>0H y`̌B:4EmÊ2+2HMxI?Ln @c Q!\V3͘FwMd4OE1o/l4Ld>h9*.I *, e&H wc/$Cq mAKԬJ>GOU tq>OL8eSFrms3D452EE1-E08F`A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 AA9764EDA-6154-49B5-AE9A-2897A258086DOCUME~1\@ADMINIL OCALSTemp\Excel8.0cB8.exddU=#.E .`M AӈT½ThisWorkbookG*T@imWokbok 2 HB1BE,!""+rSheetT4G Se`t4 v2  !lɭʾ ļƦr!pP[Lub;m'`R gHexeW[Ouc#uor o# !j#!B!o^gm'$iooFk&/32323243 @@2 etऀrGl]4lg 1XI 1j2o)mk `v@Qe02 G]x@x}.lE12MOmP&2V/3N+ CODCaCODGCn2@"Sիj|BJ#WHrVbmQeQNbٖqi?ٖ @) N ƪ/lSir_{?; ;1F˫~ @9<n'ljW#jT<3FI "F$U q \yF1{{?N(M@;,pQYёl\?qY2J ? J?K; 6 2O A aC2o a /"2T/W 2_ݛ  BOD_ BrD? ?1 isE)!  _{(l.l?#{8/   Q[ Q`ѩTqwH=~nVԚϑuQ?LrQ?W[~{P EII aG|e1VhceI{ad9'rU~~~~w ! +   ' %  #     __SRP_0A9__SRP_1mPROJECTwmuPROJECTB  ak  0. # - 0.00FLNNwkF4\AEDFWorkbook @ ROUNDLOOP  RepToText  1XhFF9aF Select AfterCopy 1Xh (2) PasteOperationSkipBlanksTransposePasteSpecial g1X g1X (2) A:AE AE4EntireColumn Hidden A:AD AD3 Shift Delete9Sheet3Sheet11S9Z;3EnW@ ,OM#YR#}UJEdÏ\'NM,OxSheet4Sheet216>ڋ@FO7a2D%%3) aa    XYINTNUMPOSNUM Y  !CommandButton1 I( Y18Cuteman b 2008/5/1 s 14Ia   ThisWorkbookThisWorkbookBצļƦro^ gHexeW[etrl]4lg1XIeW[jj骩|BJWHrVbmQeQNbٖƪļƦr/lSir gHexeW[˫~@צļƦr͑ёl\jW#jTo^ gHexeW[2˫~@צļƦr͑ёl\2jW#jTo^ gHexeW[˫~@צļƦrn'ljW#jTo^ gHexeW[BOD˫~@צļƦrBODjW#jTo^ gHexeW[2˫~@צļƦr(l.l2jW#jTo^ gHexeW[vQᦳļƦr2]xx}.l gHexeW[2MO`ѩTqļƦr=~nVԚϑ gHexeW[CODļƦrCOD gHexeW[ɹqצļƦr\^ gHexeW[˫~@צļƦr(l.ljW#jTo^ gHexeW[lɭʾļƦrpP[Lub;m'`R gHexeW[|ˤJVhcmQeQNbٖSheet3Sheet3Sheet4Sheet4ƦrROUND456`ѩTqļƦrID="{28CD32C5-CBB9-4D56-A2EC-C7DCBB22BB52}" Document=ThisWorkbook/&H00000000 Module=BצļƦr Module=etr Module=j骩|BJ Module=ƪļƦr Module=˫~@צļƦr Module=2˫~@צļƦr Module=˫~@צļƦr Module=BOD˫~@צļƦr Module=2˫~@צļƦr Module=vQᦳļƦr2 Module=`ѩTqļƦr Module=CODļƦr Module=ɹqצļƦr Module=˫~@צļƦr Module=lɭʾļƦr Module=|ˤJ Document=Sheet3/&H00000000 Document=Sheet4/&H00000000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6B6947FEB602B602B602B602" DPB="D6D4FA6B0EBD78BE78BE78" GC="41436D6E6E6E6E91" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8K*0          rU~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~X 6u EPzk83 a ye *ya   )a ie &qa $a  a  A  "X)a  ) aa Y a 0q a  P a  p 1a   qa   a   a   Aa  H ) I i IY9  VBAProject ThisWorkbookSheet1lɭʾļƦr BצļƦrSheet2etrvQᦳļƦr2 CODļƦrj骩|BJƪļƦr˫~@צļƦrɹqצļƦr˫~@צļƦr2˫~@צļƦrBOD˫~@צļƦr2˫~@צļƦrROUND456`ѩTqļƦr˫~@צļƦr|ˤJF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  90F4C:\Program Files\Microsoft Office\Office12\EXCEL.EXEExcel A@0FC:\WINDOWS\system32\stdole2.tlbstdole !PL-[DRNO3NSTRNTUSTR (?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice  `.E .`M C:\WINDOWS\system32\FM20.DLLMSForms   ) q pNvTaI(2X7C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Excel8.0\MSForms.exd   q ABSNSTR BODSTRCLSTRCODSTRDOSTRELECSTRMETALSTR METALSTR2NNSTRNNSTR2PROCESS1PROCESS2PROCESS3 FORMATRTN D,048<SSSTRFU УMӛ- FX &B|DF Worksheet{lFWJOCommandButton1@2iw