ࡱ> B  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry Fl ECWorkbook<_VBA_PROJECT_CUR";PlWަlCtls >L g2ɀ\p akaa-80011 Ba= ThisWorkbook=`-#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`T1Xh (2)!g1X (2)vv  ;  "+о*hF@=+о*hF| x) `xUKHQ>?hSJ>(@EFРJ/ˢ"ژ uԑHEd6AJQT6VAHZQ ֢,Z0}L|s={翖`*u/r9Mdߡ"\Baؐ@-2iXo=4A bдfqt/*!'__ Fb1Zx, UOhTX/q*;$8)'` i޵$E'&sPǛ902s1O*9t8˹^7뀨Yh IC^9g-Tr^#NR`~^̚*T9W-3O*9tn!9_dԛu074ʁT98[e\X$[zf<:ʀTz32<^H%߾gz8q1L:֨' mY3ӵp[i_4u-LΒ7Eu@.?Gauyk@\\M0+E|WEzinIu¬u bpіWyͻݪ-T'=_9Զ4m sS>|S}s~ǐzZo7C:uGЛ_ݠb+brߞ72y̑?^O?y;8c+RYx?@bnkgm Q/ >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 airtemperphn'lϑuS'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^2g l ] 4l v ,n P} gkXheg-Nl W104t^3g12e4l00000000000000}00000004ln#lnn'l uS'l ]xx }.lN]xx }.lanmVԚ Sx[ 'l 'Yxh ̃pP[Lub;m=~Q l.lP;Bfs^GW----0.002-0.004-0.0001-0.08e^n15.013.06.96.01.00.750.560.0310.55.40.0020.0211370.2558.44.1E+49.41.772.368lyKj2/607:30N1737.011.7ofn16.416.37.12.70.260.990.0714.40.0110.1484.7E+40.111.442.50,yKj-0.0062/414:2516.216.57.27.51.80.080.820.0518.81590.1105.80.0910.41.352.22F`IQKj14:5516.07.62.10.981680.1405.1E+40.1011.81.052.10ofKj15:2016.74.10.631.1810.19.71910.1948.24.8E+40.141.903.17-0.01m4ll15.512.80.63.16.980.4229.415.40.0290.0403940.917153.1E+50.2743.68.058.47SSKj06:33N13Wl13.21.10.241.300.0446.24.40.0040.0190.1541.1E+51.472.81bRKj2/508:3015.66.70.50.1548.54.30.020114.3E+41.312.66'YvKj08:007.40.3034.14.20.1369.14.4E+41.422.72b_Kj13.50.81.2456.04.70.0171690.172192.3E+50.1314.91.763.04-0.0214612.5ٖn15.818.08.70.71.0011.92.90.0779.1E+30.44ٖnS4lS09:40YN15.30.857.81210.0544.1E+310.80.641.49Ryn09:550.978.92.01510.0722.42.1E+30.221.19_Kj10:459.318.93.71650.1065.62.1E+414.80.451.64'YQWn10.06.83.31.92380.1092.4E+319.71.61}fm4l^xn18.40.0627.50.0060.0050.0668730.373213.4E+397.72.89xnKj11:054lxQWnP[QWn14.18.07.71.30.331.259.60.0154950.2343.52.6E+418.52.643.89eP[QW10:15-0.009q\lzn12.07.90.775.25.10.0034714.62.3E+327.00.931.7008:40<10x/nn22.42.52.64.619.212.30.0980.3620.42026500.4613.40.293097.468.50XUMO1.+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$@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 J       4 5   K L  M  N    O                    !#$%&'()*+,-./0123456789:;<=>?@ABCDEFHJLNOQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvwxyz{|}~@2iw ? S @ T Q A B C D } E . F  G  H Q ; X 2 Z    "  <  =  R > ? S @ T Q A B C D } E . F  J P Q Q Q K  L M  N  O  P   Q R R a S R T Q S T U V  W X Y  Z  [ Q K  L M  N  O  P   Q R R a S R T Q S T U V  W X Y  ] P Q Q Q  ^ _ Z    `   a b R R c S z T Q d \ e f U g h i DD1lzJNV0l hz! h" hz# h@$ h@% h@& h@' h@ ] k j Q  ^ _ Z ` a b R R c S z T Q d \ e f U g h i  !l !P !Q !Q !Q !m ! !n !* ! o ! p ! ! < ! q !r !R !? !R !s !t !T !u !v !w !x !k !y !z !{ !| !" "' " " "Q "m " "n "* " o " p " " < " q "r "R "? "R "s "t "T "u "v "w "x "k "y "z "{ "| " #v} #v # $v~ $v $ %v %v % &v &v &v && & &v & 'v '' ' ',,,n(    s HA ?@CommandButton1^]` 0 6$Forms.CommandButton.1L>@  &&'' !"7 Sheet3ggD g2ɀ "US  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} @} q @} @} q@} 8N} P} 8P} P} Q} R} US} S} qN} S} 8S} qS} UT} qP} P} qV} 8R} S} !} ""S} ## @} $ @"$$O$D$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 [ Z Z4 \5 B E ]6 ^& Z Z Z ! "  $ !# "H #B I _ I IO J ` `a I  _  b  c  d  e J d d d d d d d f I _ g h d d d     ! "K #I V iP qQ LQ Q W X Y Z  [  \  ]  ^  _ ` R R a S b T Q c d e f U g h i$@??@@" # kj rk tl m W X Y Z  [  \  ]  ^  _ ` R R a S b T Q c d e f U g h i$@??@@" # q lP qQ LQ Q r s t o  u  v  w  x  y o R R R S z T Q n { o | } p ~ $?????" # k r t m          ` R R R S  T Q    f    $?????" # k r t m s  o  x y  R R R S z T Q   Y     $ ?????" # k r t m   o   R R R S z T Q      X  $ @@?@@" # lP qQ LQ Q      R z  S  T Q        $ $@@@$@@" # k rk t       R z  S  T Q        $ $@@@$@@" # lP qQ LQ Q   o o  R R  S  T Q     }   $ ??@??" # k r t   X t        R R  S  T Q        $??@??" # k r t   X Y        R R  S  T Q     }   $??@??" # k r tl    Y Y   v     R R  S  T Q        $??@?@" #  lP sQ LQ Q              R R R S  T Q       U    ~$?????" # m  r t               R R R S  T Q     U   $?????" # n r t    t o         R R R S  T Q      U  ! "$?????" # n# r t$ Q    %    "   & ' R R R S  T Q ( ) * + U , - .$?????" # / lP sQ LQ Q  0  1      2 3 R R R S  T Q 4 5  6 U 7  8$?????" # n9 r t$ Q  0  1      2 3 R R R S  T Q 4 5  6 U 7  8$?????" # : lP qQ LQ Q ; X 2 Z    "  <  =  R > ? S @ T Q A B C D } E . F$@?@@@" # nG r tH Q ; X 2 Z    "  <  =  R > ? S @ T Q A B C D } E . F$@?@@@" # I 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 Q !"# nI 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 Q !"# J lP qQ LQ Q K  L M  N  O  P   Q R R a S R T Q S T U V  W X Y$?????" # nZ r t[ Q K  L M  N  O  P   Q R R a S R T Q S T U V  W X Y$?????" # ] lP qQ LQ Q  ^ _ Z    `   a b R R c S z T Q d \ e f U g h i$@????" # n] rk tj Q  ^ _ Z    `   a b R R c S z T Q d \ e f U g h i$@????" # l lP qQ LQ Q m  n *  o  p   <  q r R ? R s t T u v w x k y z { |$@??$@@" #DF9l^&t $@!$ p' r t Q m  n * o p < q r R ? R s t T u v w x k y z { |$ @??$@@" # !@ !PTT>@!"? j #  7 Sheet4ggD VBASѥl ϦlThisWorkbook-0Sheet4 pP[Lub;m'`R gHexeW[!"; SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2T!#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2lTxME(6 << < 00% ,`p I( 2\I* E (@*@&00 u8V$*\Rffff*0E577d34a5B  0 $H p   &  $  "  H ` &x  $    ( @ HX `px ]0 ($. *$. If X < Y Then ABSNSTR = "ND<" + CStr(Y)Else ( Case Is < 1#2.  ABSNSTR = ROUND456(X, 0.01)s Case Is < 10ile  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?$0',dNT (?$0',dOT ($0',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Տ Attribute 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 l.TNxME(6 << < 00% p`p I( I* (@*@n00 u8V$*\Rffff*0G577d34a5B  0 $H p   &  &  ( 08 PX 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) End Select ( NT ({Gz?$0'pdNT (?$0'pNT ($0'pOT ( $0'pnHEnd Ifd0-'pki6Attribute 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~| krU  ,`aq//nlTS__SRP_6 T__SRP_7}COD gHexeW[&__SRP_8 TxME(6 << < 00% t`p I( I* (@*@r00 u8V$*\Rffff*0H577d34a5B  0 $H p       0]0 ($. *$. If X < Y Then CODSTR = "ND<" + "ťխ"Else (dNT (?$0'tNT ($0't= ROUNOT ( $0't Is >=nEnd Ifd-'tFkiAttribute VB_Name = "CODļƦr" Dim X As Sing le, Y0 Function hSTR(X>) If IsNumeric(@X) And Y) Then '+X <VQND<" + "ť 'ElseBSelect Case XIs_1001_ROUND456^0.1_?&!>= =0=Ej['If {}- rU~| krU  ,`aq//nTN__SRP_9}WHrVbmQeQNbٖ/__SRP_aT__SRP_bxME(6 << <Px0@`0% |` I( I* (@*@z @vHx``0X(u8V$*\Rffff*0I577d34a5B  (8@X h x     ]0*`-C6?'x'z ($. *$. x * z ( x$0'|'dh | x$0'|VkH xX$@'x z 'z'ki'Attribute VB_Name = "j骩|BJ" Dim X As Sin@gle, Y 0TPIMES 1Integer Function ROUNDLOOP(X)  == 0.0h0011 If IsNumeric(X) AndY) Th en6NWhile (U<= Yf LT[ 5N=456T%"Else8(, !cf"A=(CCur`) * 10# >_+ ?Wen:d%E+ rU~|  krU , `aq//nlTxME(6 << < 0/lSir gHexeW[U __SRP_cT__SRP_d}n'ljW#jTo^ gHexeW[      !"#$%&'()*+,-./0123456789:<>@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcegijklmnopqrstuvwxyz{|}~0% `p I( I* (@*@~00 u8V$*\Rffff*0J577d34a5!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)7F Case Is < 10000  CLSTR = ROUNDLOOP(X, 10) Case Is >= 10000  CLSTR = ROUNDLOOP(X, 1000)V End Select CLSTR = ROUNDLOOP(X, 0.1) (dNT (?$0'NT ($0''NT ( $0''OT (d$0'nEnd Ifd-'kixpIAttribute 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~|  krU , `aq//nlTUxME(6 << < 00% `p I( I* (@*@00 u8V$*\Rffff*0K577d34a5B  0 "H p   "  "  (0 HP h p  ]0 ($. *$. If X < Y Then DOSTR = "ND<" + CStr(Y)Else ( Case Is < 1 Is <  DOSTR = ROUND456(X, 0.1)P(X, 0 Case Is >= 1 Is <  DOSTR = ROUND456(X, 0.1)'dNT (?$0'NT ($0'P(X, 1OT ( $0'0000nEnd IfUNDLdx-' Enk`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~| krU  ,`aq//nlTM@__SRP_e;T__SRP_f3=}\^ gHexeW[?7 __SRP_10 dTxME(6 << < 00% `p I( I* (@*@00 u8V$*\Rffff*0L577d34a5B  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 < 200V ELECSTR = ROUND456(X, 1)Case Is < 20001 ELECSTR = ROUND456(X, 10)Case Is < 20000 ELECSTR = ROUND456(X, 100)Case Is >= 20000 ELECSTR = ROUND456(X, 1000)NT ($0''NT ( $0''OT (d$0'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~| krU  ,`aq//n__SRP_11f}͑ёl\jW#jTo^ gHexeW['$h __SRP_12%T__SRP_13}lTKxME(6 << < 00% `p I( X2I* (@*@00 u8V$*\Rffff*0M577d34a5B  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?$0' NT ({Gz?$0'dNT (?$0'dOT ($0'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~| krU  ,`aq//nlT_xME(6 << < 0͑ёl\2jW#jTo^ gHexeW[__SRP_14#&T__SRP_15}BODjW#jTo^ gHexeW[*o0% `p I( X2I* (@*@00 u8V$*\Rffff*0N577d34a5B  0 H h       (0 H P` hx]0 ($. *$. If X < Y Then 'METALSTR = "ND<0.110" METALSTR2 = "ND<" & YElse (?NT (-C6?$0'NT (MbP?$0' NT ({Gz?$0'dNT (?$0'dPT ($0'.01)nEnd Ifd-' = ROUkixp;Attribute VB_Name = "2˫~@ļƦr" Dim X As Sing le, Y Function METALSTR2(XD)  If IsNumeric(X ) AndY)` Then*.'/X <a aND<0.11~0$" & Y`ElseSelect Case X IsH5 5ROUND456~0.0001%1$$0$$j= 10h]ECc5'If oz-  rU~| krU  ,`aq//nl*T!xME(6 << < 00% `p I( X2I* (@*@00 u8V$*\Rffff*0O577d34a5B  0 "H p    $  $  "0 X` x     ]0 ($. *$. If X < Y Then BODSTR = "ND<" + CStr(Y)Else BODSTR = X ( Case Is < 10ELECST  BODSTR = ROUND456(X, 0.01)s < Case Is < 100ECST  BODSTR = ROUND456(X, 0.1)s < Case Is >= 100ECST  BODSTR = ROUND456(X, 1) Is < dNT (?$0'NT ($0' Is >=OT ( $0'= ROUNn@End IfNTd(-'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~| __SRP_16".T__SRP_17}(l.l2jW#jTo^ gHexeW[__SRP_18),TkrU  ,`aq//nl^T[xME(6 << < 00% `p I( X2I* (@*@00 u8V$*\Rffff*0P577d34a5B  0 "H p   &    ( 0@ HX` p]0 ($. *$. If X < Y Then NNSTR2 = "ND<" + CStr(Y)Else ( Case Is < 1  NNSTR2 = ROUND456(X, 0.001) NT ({Gz?$0'dNT (?$0'dOT ($0'nEnd Ifd-'ki,Attribute VB_Name = "2~@צļƦr" Dim X As Single, Y Function NNSTR2(X>) If IsNumeric(X) And Y) Then*.'/X <^ ]ND<" + CStr(Yi>ElseMSelect @Case X ' Is71 7ROUND456k0.0018}#0##"'#">= 10%# EiM3'IfY}e-<  rU~| krU  ,`aq//nlT{P__SRP_19}=~nVԚϑ gHexeW[.__SRP_1a+1T__SRP_1b!}      "$%&'()*+,-./0123456789:;<=>?@BDFHIJKLNOPQRSTUVWXYZ[\]^_`abcdeghijklmnopqrstuvwxyz{|}~xME(6 << < 00% `p I(  CaI* STR2(@*@00 u8V$*\Rffff*0Q577d34a5B  0 "H p  "  " ( 0H Ph p   ]0 ($. *$. If X < Y Then SSSTR = "ND<" + CStr(Y)Else ( Case Is < 1  SSSTR = ROUND456(X, 0.1) Case Is >= 12 SSSTR = ROUND456(X, 0.1)-dNT (?$0'NT ($0''NT ( $0' 'OT (d$0' npEnd If_dX-'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~| krU  ,`aq//nl>T xME(l.ljW#jTo^ gHexeW[6#n__SRP_1c/4AT__SRP_1dC}VhcmQeQNbٖ((6 << < 00% `p I( I* (@*@00 u8V$*\Rffff*0R577d34a5B  0 "H p         (8@ P]0 ($. *$. If X < Y Then NNSTR = "ND<" + CStr(Y)Else (NT (MbP?$0' NT ({Gz?$0'dNT (?$0'dOT ($0'anEnd 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~| krU  ,`aq//nrU~| WrU D,'' $4'   X   $' change rule   X ' $<$4' ' NT A@A@  8   $'0RT A@  8X '0MT A@  8X '0n0d('0kiH        0 ' k   $$$<'   $$$<' NT    $$< 'RT   change rule $< $<    $$<  'd    $$< 'khd`    $$<  'k(MT    $$<  'no $$$<' $$<' NT 'RT   RESULTNUM = COMNUM ----gk change rule $< $<   'd 'kd   'kMT   'no       0  ' k0  $$$<'   $$$<' NT    $  $ $<'RT      $  $ $<'dH    $$<   'kMT    $$<   '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+0VT@xME(6 << <
@‬P@‮ @′H@‴  @‶p" @›& @‾@,@0@8@% 0H` %%I (I  `I  `I  h`HI  ` ․@…@‪( @‰x@8@‸$ @‼( @h4@<@h(xP@hHH pPhD%u8V$*\Rffff*0S577d34a5   8@P`p B   ( ( 8@ HXh x     08 @ P Xx    "  0 @P(X($   *0 ` $h  **"  "(Phpx $      (8@HX`" hp  "( (.0`h . **(0"8@ H Xh   ]* change rule](]P ]xH]]px]@]h $. $. $$@$'  JļƦrƿ~,Эץ!A@0'0 zk '8 $4' $4' X ' X '[ "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_1e25E|__SRP_1fGN_VBA_PROJECTfdirM;`//(`/(`/(`/$!`n70* pHd VBAProject4@j = r u8V J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.]b[A`+  F"8#AL9uO⼲ANgAgr<2JhCSC@.i-~RE ) XrB8A㖟gE$[[O LDD įDq!ҍ]GDwwaC~^G9#cPJw= l6uG_\_Kj@r@91 OK&doE%Q nJH c6H0li4Excel+pVBApWin16~pWin32pWin64xpMacpVBA6#pVBA7#p VBAProjectpstdole`pOfficeupMSFormsCp ThisWorkbook|p _EvaluatepSheet4plɭʾļƦrTpXopYlpABSNSTRYp IsNumeric$*pROUND456Xp BצļƦrpZqpCHKNUM[pSIGNUMhpNTUSTR&pValpSheet3pCommandButton1_Clickp RepToTextpetrYpSheets 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|p, o(s w   ! % ' 3 #?!%E#&2VTo^ gHexeW[0M577d34a5͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0N577d34a5͑ёl\2jW#jTo^ gHexeW[_8BODjW#jTo^ g     a *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.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.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\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{CE169F2C-4BB6-47A4-9A78-2D808B506F53}#2.0#0#C:\Users\EPB\AppData\Local\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  u8V  TThisWorkbook01577d34a5!ThisWorkbook% Sheet402577d34a5% Sheet4!%pP[Lub;m'`R gHexeW[0E577d34a5&pP[Lub;m'`R gHexeW[0 o^ gHexeW[0F577d34a52 o^ gHexeW[FH Sheet30D577d34a5? Sheet3`l]4lg1XIeW[j06577d34a5Dl]4lg1XIeW[jx]xx}.l gHexeW[2MO0G577d34a5n]xx}.l gHexeW[2MON4COD gHexeW[0H577d34a5rCOD gHexeW[S WHrVbmQeQNbٖ0I577d34a5vWHrVbmQeQNbٖN/lSir gHexeW[0J577d34a5~/lSir gHexeW[n'ljW#jTo^ gHexeW[0K577d34a5n'ljW#jTo^ gHexeW[U\^ gHexeW[0L577d34a5\^ gHexeW[M@͑ёl\jW#jTo^ gHexeW[0M577d34a5͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0N577d34a5͑ёl\2jW#jTo^ gHexeW[_8BODjW#jTo^ gHexeW[0O577d34a5BODjW#jTo^ gHexeW[!P0(l.l2jW#jTo^ gHexeW[0P577d34a5(l.l2jW#jTo^ gHexeW[[hd=~nVԚϑ gHexeW[0Q577d34a5=~nVԚϑ gHexeW[{P(l.ljW#jTo^ gHexeW[0R577d34a5(l.ljW#jTo^ gHexeW[ DVhcmQeQNbٖ0S577d34a5VhcmQeQNbٖ\`HPh 80xSvFĶV]3KjNf9tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#M 1@1.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 AO69F2C-4BB6-47A4-9A78-2D808B@506F536Users\EPB\AppData\Local\Temp\Exce0l8.0c7.e