ࡱ> Bd  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~Root Entry F+ SCWorkbookD_VBA_PROJECT_CUR"C#U1U'U1Ctls FL ɀ\p akaa-80011tor Ba= ThisWorkbook=-s#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Ԛ1.Times New Roman1. Times New Roman10e0}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 + ,  #  *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@  8@  x@ ) 8@ 8@ @  8@ @ 8@ @ 8@ @  8@ @ 8@ @  8@ @ 8@ @ 8@ @ 8@ @  8@ @ \ P x@ @ x@  x@ @  x@ x@ @ x@  x@ @  x@  x@ x@@ x @ |@@ p@ |@@ x@ x @ p @ "|@  p@ 8@ @ 8@  8@ @  8@  8@ 8@ @ 8@ "<  0  <@@ 0@ 8@ ||;}-} 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`yV1Xh (2)2g1X (2)vv  ;rj("vroa2f?@=vroa2f?| a! xUKHTQ=cR|VئR({`DAjQǦBТEP MAQ,{\Tu Q'p|Q |clA}YƲ%]> 7 ;CiN>S?K#Sé8mجB)JZrU^ rF7gΝ,g4[YMQPRB|i+<[g4iZӋdhl Uւg,bd=UQ9} =K"4k[v SLq۴TX/o^C%u³S /bk >?|eR+ 4E+^?Mb(JjXEX"A )B cjeϷR8" +G!bil FɲI:k]/h!bi\SL׫O}WuPASˡX"*+իrzhd yzU -yzm/KW]ᥓ)} oaW]+dHS{tɽ+&߿޳zƯ"^q#8.?y-okFݵ ^wgBa cnRj{39ZyYᆲ$$ c%1xxogFqe{$Wbޝp?'Qe57ü_{26f^Q#ר~ChD(m,9wtGyu=đ3k/_>yj׳mj-6|s3 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 airtemperphd0uS'lϑ(l.l]xx}.lN]xx}.lanmVԚϑSx['lϑ7x\^'Yxh̃pP[Lub;m'`R/l}\xeMOxe-[lQ^}_jܕ S^?e^tXOw@\ g 1X h _ 1134-05-02104t^11g l ] 4l v ,n P} g4l00000000000000}00000004ln#lnn'l uS'l ]xx }.lN]xx }.lanmVԚ Sx[ 'l 'Yxh ̃pP[Lub;m=~Q l.lP;Bfug/ls^GW----0.07e^n21.624.06.81.70.550.800.0840.018.10.5331.561.8316.90.00021330.100654.4E+40.2512.80.110.998lyKj11/311:00N-0.003-0.004-0.0021536.313.8ofn22.730.07.23.20.301.320.0517.222.00.0861.6E+5-0.151.22,yKj-0.0001-0.0811/414:4022.42.30.091.1818.220.61370.0485.02.9E+413.5-0.201.06F`IQKj15:1022.67.43.60.291.580.0313.019.21475.22.2E+514.1-0.39ofKj15:3023.17.10.531.1920.526.21750.1248.82.3E+513.90.131.37m4ll21.825.06.62.12.321.0162.22.676.992.2926.73580.250606.0E+40.1967.0-0.480.58SSKj09:50N2214.935.2Wl23.26.92.21.631.510.1810.120.20.0810.6462.600.83713.10.1576.6E+40.280.071.76bRKj11/221.321.00.980.176.218.90.6982.420.7591990.1314.83.8E+40.4932.81.80'YvKj10:301.81.441.4811.620.40.6512.610.8545.862220.1334.01.0E+40.1638.01.75b_Kj10:0022.224.52.72.4712.521.20.5902.780.8979.412420.2066.01.5E+50.2034.81.74-0.021368.2ٖn27.01.31.1710.916.20.0030.0441.5E+4ٖnS4lS10:05YN26.07.00.960.0120.11230.028114.2E+313.31.14Ryn-0.0110:2021.526.51.21.111440.0585.61.4E+40.411.52_Kj10:5022.128.51.41.459.015.91410.0477.92.8E+414.71.78<10'YQWn21.118.50.81.60.3011.820.6938.221760.0240.8516.1-0.100.93}fm4l^14:55xn21.90.3618.717.60.1301.202.541.1023.94740.0943.4E+366.50.26xnKj15:254lxQWnP[QWn1.51.9317.50.3962.110.63311.22730.1605.33.0E+40.4534.32.94eP[QW14:30q\lzn21.78.02.90.324.40.5413.6514.35350.0423.9E+30.1269.52.3915:20x/nn27.32.44.081.500.0229.01.773.9410.711133738028400.2352.50.27285-0.131.3914:10XUMO1.+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=ͯ v-C6? v?v?v$@v$@v-C6?v-C6?v-C6?v-C6?v-C6?v-C6?v-C6?v?v?vHz>v?v$@v?v? : ; < {| }= ~0~~~~~~~~~~~~~ > ?  @D v   A:      B C  D  E  /  F  G  H I       4   !"#$%&'()*+,-/01356789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_abcdefhjklmnopqrstuvwxyz{|}~@2iw Q ? @ ~ p@  A    B  {  C D n n o  o  Q E F G H  I  J  L P Q Q Q M N ffffff!@  O     {  P g R Q R S T  Q U V W K  X Y Z  [  \ Q M N ffffff!@  O     {  P g R Q R S T  Q U V W K  X Y Z  ] P Q Q Q ^ U ~ @@  5  _   (  ` a b c d e f  Q g h , i  j k   l  m Q ^ U ~ @@  5  _   (  ` a b c d e f  Q g h , i  j k   n P Q Q Q Q Q Q Q  Q  Q  Q  Q  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q  n Q Q Q Q Q Q Q  Q  Q  Q  Q  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q  o P Q Q Q ? } w~ p@  p  {  q  1  r R s t u v  Q w x y z { |  } DF1lz8NV0l hz! h" hz# h$ hz% h@& h@' h@( h@) h@ ~   Q ? } w~ p@ p { q 1 r R s t u v  Q w x y z { |  }  ! !P !Q !Q !Q ! !} !~ !@ !  !  ! h ! h !  ! !R ! ! ! ! ! !Q ! ! !x ! ! ! ! ! !" " "k " "Q " "} "~ "@ "  "  " h " h "  " "R " " " " " "Q " " "x " " " " " " # #P #Q #Q #Q # # #~ #@ #  #  #  #  # # # # # # # # # # # # #K # # # # #$ $' $ $ $Q $ $ $~ $@ $  $  $  $  $ $ $ $ $ $ $ $ $ $ $ $ $K $ $ $ $ $ %v %v % &v &v & 'v 'v ' (v (v (v (( ( (v ( )v )) ) )l ,,,n (      s HA ?@CommandButton1`]` W1 6$d0Forms.CommandButton.1L>@WW (()) !"#$7 Sheet3ggD ɀ "ft  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 #ABCBB D ABMW# F E F F G DB DC E B!  E"  X#  Y  Z  [$ D% [ Z [ Z [ Z Z4 \5 B E ]6 ^& Z Z Z ! "  $ !# "H #B I _ I IN J ` `a I  _  b  c  d  e J dO dO dO dO dO d dO f I _ g h d d d     ! "K #I S iP qQ LQ Q T U V~  @  W  X  Y  Z  [ \ R ] ^ _ ` a Q b c d e f g h i$??@@@" # kj rk tl m T U V~  @  W  X  Y  Z  [ \ R ] ^ _ ` a Q b c d e f g h i$??@@@" # t lP qQ LQ Q u v w~ `@  x  y  z  {  | } n n o p o a Q q ~ r  Z s  $?@???" # k r t m  v wffffff @     Z   n n o p o  Q        $?????" # k r t m  v ~ `@  n n o p o  Q  ~   Z   $ ?@???" # k r t m  v ~ І@ {  n n o p o a Q     Z   $ ?@@@@" # lP qQ LQ Q   ~ @ {  R      Q        $ @?@@@" # k rk t    ~ @ {  R      Q        $ @?@@@" # lP qQ LQ Q    ffffff@        Q        $ @??@@" # k r tl    ~ @    ^        U  Q        $@??@@" # k r t   U Vffffff@       R      Q       Z $@??@@" # k r t    V~ @z@           R         Q        $@??@ @" #  lP sQ LQ Q T  ~ "@           n n o  o  Q     ! h   $?????" # m" r t# $  % &~ Ћ@      '  (  ) n n o p o  Q * + , -  .  /$?????" # n r t2 $ 3 4 ~ Ћ@  5    6  1     n n o p o  Q 7 8 9 : h s ; <$?????" # n= r t> Q ? @ ~ p@  A    B  {  C D n n o  o  Q E F G H  I  J$?????" # L lP sQ LQ Q M N ffffff!@  O     {  P g R Q R S T  Q U V W K  X Y Z$?????" # n[ r t\ Q M N ffffff!@  O     {  P g R Q R S T  Q U V W K  X Y Z$?????" # ] lP qQ LQ Q ^ U ~ @@  5  _   (  ` a b c d e f  Q g h , i  j k $?????" # nl r tm Q ^ U ~ @@  5  _   (  ` a b c d e f  Q g h , i  j k $?????" # n lP sQ LQ Q Q Q Q  Q  Q  Q  Q  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q !"# nn rQ tQ Q Q Q Q  Q  Q  Q  Q  Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q !"# o lP qQ LQ Q ? } w~ p@  p  {  q  1  r R s t u v  Q w x y z { |  }$?????" # n~ r t Q ? } w~ p@  p  {  q  1  r R s t u v  Q w x y z { |  }$?????" #  lP qQ LQ Q  } ~ @      h  h    R      Q   x     $?????" # n rk t Q  } ~ @      h  h    R      Q   x     $?????" #  lP qQ LQ Q   ~ @                     K    $@??$@@" #DV9l^&t $@!$ p' r t Q   ~ @                K    $ @??$@@" # !@ !PTT>@!"j #  7 Sheet4ggD VBAR%U1P̨'U1ThisWorkbook8__SRP_2074__SRP_21$ B(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@0 !X$*\Rffff*0T5821b2304xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU !( $419Y`rU @n<jxT#<0tճ7Ehxq F IC4YBx IC4YB0tճ7EhxqMESheet4~__SRP_2a.__SRP_2b 2BpP[Lub;m'`R gHexeW[)4 (SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@\\0 !X$*\Rffff*075821b40b4xAttribute 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  xI"  @"@pH  @$l '8ge rul&(@\ @L  @`< @, 00  !X$*\Rffff*0E5821b229*\R0*#13$*\Rffff*0Q5821b229B  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*0P5821b229*\R0*#13*\R0*#f*\R0*#10$*\Rffff*0Q5821b229E 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*045821b40b4x<"  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 ;@L @< @ , @8 @P @h %w@ @ @ Hxp !X$*\Rffff*015821b40b*\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*0O5821b229*\R0*#13$*\Rffff*0Q5821b229B  0 $H p   &  &   ( 0#8 P#X px     ]0 $& "$& If X < Y Then NO3NSTR = "ND<" + CStr(Y)Else Select Case X 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  xI"  @"@rpH  @tl 8&(@\ @L  @`< @, 00  !X$*\Rffff*0G5821b229*\R0*#13$*\Rffff*0Q5821b229!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~|  0 0  k__SRP_a __SRP_b}\^ gHexeW['- __SRP_c%*xrU , `aq//n$l TM@xME (6  <0% |`(,kp I  xI"  @"@zpH  @|l 8&(@\ @L  @`< @, 00  !X$*\Rffff*0J5821b229*\R0*#13$*\Rffff*0Q5821b229B  0 (H p  $  "  $  H $`  &   ( 0 P` hpx ]0 $& "$& If X < Y Then! ELECSTR = " ND < " + CStr(Y)Else  Case Is < 20 ELECSTR = ROUND456(X, 0.1) Case Is < 200 ELECSTR = ROUND456(X, 1)!Case Is < 2000 ELECSTR = ROUND456(X, 10)Case Is < 20000 ELECSTR = ROUND456(X, 100)Case Is >= 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~|  Il l \LL(\]gS(<l,  ,l5<L(\']g(< l,  ,l5<L(\']Z(?@ABCDEFGHIJKLMNOPQRSTUVWYZ[\]^_acdefghijklmnopqrstuvwxyz{|}~xME (6  <0% `(,kp I  I"  @"@~pH  @l 8&(@\ `@L c e@`< h@, k00  !X$*\Rffff*0K5821b229*\R0*#13$*\Rffff*0Q5821b229B  0 $H p   (  (  &  H &`  # # #   0 8HP `]0 $& "$& If X < Y Then METALSTR = "ND<" + CStr(Y)Else  Case Is < 1 " METALSTR = ROUND456(X, 0.0001) Case Is < 10 ! METALSTR = ROUND456(X, 0.001) Case Is < 100 METALSTR = ROUND456(X, 0.01) Case Is > 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 rU~| 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ٖ-'$T xME (6  <0%# `(,kp I  I"  @"@pH  @l 8&(@\ @L       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOQRSTUWXYZ[\]^_`abcdefghijklmnpqrstuvxyz{|}~     3 0"#$&')*+,-./!126D5789B;<=>?@A4CEF@`< @, 00  !X$*\Rffff*0M5821b229*\R0*#13$*\Rffff*0Q5821b229B  0 "H p   # # #     (8@ P]0 $& "$& If X < Y Then NNSTR = "ND<" + CStr(Y)M@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@ xp @ (  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*0Q5821b229*\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_1bPN_VBA_PROJECT(dirV?9l l )$@ tT\B9 oT+'''$:\NDD 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%^*\GiXOg<`gƏ8ClnD+ Tt걎MjxM]?Z2]L5Ĭ͛i$ڃMZ-QUse*O+gWTC>Jc-ה(ēAjyrh\5gEy;QDIƢ|E%EsCv6Ip{p!vF s`]HE& i3GhAodACwtp4n_؁I.0ɕ3ŐF5nh:0Nˡrs5Excel+pVBApWin16~pWin32pMacpVBA6#p VBAProjectpstdole`pOfficeupMSFormsCp ThisWorkbook|p _EvaluatepSheet1pCommandButton1_Clickp RepToTextplɭʾļƦrTpXopYlpABSNSTRYp IsNumeric$*pROUND456Xp BצļƦrpZqpCHKNUM[pSIGNUMhpNTUSTR&pValpSheet2petrYpSheets pCopyƿpAfterXpCellsp SelectionZp PasteSpecialKpPastepxlPasteValuesAndNumberFormatsDjp OperationypxlNonep SkipBlanksұp TransposepColumnsp9pRange pActivate|p EntireColumnpHidden]pDeletexpShiftpxlToLeftWYpvQᦳļƦr2JpNO3NSTRwhp CODļƦrpCODSTR2pj骩|BJpTIMESXpT1*_p ROUNDLOOPYBpƪļƦr0pCLSTRAp˫~@צļƦrrpDOSTRgpɹqצļƦr pELECSTRkp˫~@צļƦr%pMETALSTROp2˫~@צļƦrEHp METALSTR2qpBOD˫~@צļƦrtpBODSTRp2˫~@צļƦr?pNNSTR2:4p`ѩTqļƦrpSSSTRp˫~@צļƦrg pNNSTRp|ˤJɑpINTNUMhpPOSNUM'pSMALLNUMjp RESULTNUM"pSMALLALL&$pPOINTPOS6p ABSPOINTPOSkpII]pCHKNUM1pCHKNUM2pCOMLEN4pSMALLLEN]pCOMNUM pCOMSTR%pSMALLSTRpPOSSTRpFORMAT1pFORMAT2pLogdpMsgBoxRpCHKERRQpPROCESS1op FORMATRTNpPROCESS2opPROCESS3opRight pCommandButton1|pWorkbookkp WorksheetpClickp _B_var_CHKERRyp _B_var_LeftQp _B_var_Formatp _B_var_Right9p_DefaultjpSheet3pSheet11!PpSheet4pSheet21FPp,c"gk s w  {   +9 2V a *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{A9764EDA-6154-49B5-AE9A-289704325808}#2.0#0#C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M    !X   TThisWorkbook0T5821b230ThisWorkbook Sheet4075821b40b Sheet4pP[Lub;m'`R gHexeW[0E5821b229pP[Lub;m'`R gHexeW[0r o^ gHexeW[0P5821b229* o^ gHexeW[FH Sheet3045821b40b Sheet3Xl]4lg1XIeW[j015821b40b8l]4lg1XIeW[jx ]xx}.l gHexeW[2MO0O5821b229b]xx}.l gHexeW[2MONCOD gHexeW[0H5821b229fCOD gHexeW[SWHrVbmQeQNbٖ0U5821b230jWHrVbmQeQNbٖN/lSir gHexeW[0G5821b229r/lSir gHexeW[ n'ljW#jTo^ gHexeW[0I5821b229vn'ljW#jTo^ gHexeW[U\^ gHexeW[0J5821b229z\^ gHexeW[M@r ͑ёl\jW#jTo^ gHexeW[0K5821b229~͑ёl\jW#jTo^ gHexeW[K J ͑ёl\2jW#jTo^ gHexeW[0L5821b229͑ёl\2jW#jTo^ gHexeW[_8&BODjW#jTo^ gHexeW[0F5821b229BODjW#jTo^ gHexeW[!P(l.l2jW#jTo^ gHexeW[0N5821b229(l.l2jW#jTo^ gHexeW[[h=~nVԚϑ gHexeW[0R5821b229=~nVԚϑ gHexeW[{P~(l.ljW#jTo^ gHexeW[0M5821b229(l.ljW#jTo^ gHexeW[ VhcmQeQNbٖ0Q5821b229VhcmQeQNbٖa! 80HPxh{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE12\MSO.0DLL#M 1@1.0 Ob LibraryKMSForms>SFrms3D452EE1-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 @@X2 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 "U q \yF1{{?N(M@;,pQYёl\?qY2J ? J?K; 6 2O A aC2o a /"2T/W &C_ݛ  BOD_ BrD? ?1 isE !  _{(l.l?#{8/   Q[ Q`ѩTqwH=~nVԚϑuQ?LrQ?W[~{P EII aG|e1VhceI{ad9'rU~~~~w __SRP_0A:__SRP_1oPROJECTwmwPROJECTB  ak  0. # - 0.00FA_ F/%X$CSJmkDFWorkbook @ ROUNDLOOP  RepToText  1XhFF9aF Select AfterCopy 1Xh (2) PasteOperationSkipBlanksTransposePasteSpecial g1X g1X (2) A:AE AE4EntireColumn Hidden A:AD AD3 Shift Delete9Sheet3Sheet11зG}K Msw)ayMQDѪ_)E p~@R}J>ySheet4Sheet210tճ7Ehxq IC4YB3A  ! +   ' %  #        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="5F5D73D68D6AE86EE86EE86EE86E" DPB="BEBC92B7AE490C4A0C4A0C" GC="1D1F3114CF72D072D08D" [Host ExK*0          rU~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~X Wn[A]t/D 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<SSSTRF0scFCӟ5 F8bNBFWZDF Worksheet{lFWJOCommandButton1@2iw