ࡱ> B  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FUlqŻlCWorkbook<Y_VBA_PROJECT_CUR";VlqŻlCtls >L g2ɀ\pEPB 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@ @ 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@ ||c}-} 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`U1Xh (2)бg1X (2)vv  ;  /A$" HSKVƟqsOI@=HSKVƟqsOI| x) `xUKlLQt:.xT P4*Al$.ӈ,$l!4ĢHJb)nH;gx$o>g dR\,j;wo<plfn1|]@;7;umYѻqyPaIp5& "UE0\o;e嫑E 6h|JMԩ yr9r d/xNMM<}'C;qxF977W8vӍa~Bl6[:u/ݩ ?Ps|Μ83g5҄Tю'g~}c;W$_ٓnIH k(31iXNlű1VR8N3wOx{(Pf/9 8QIT1J:퀰2u5Pc'撾#FQ՞j]+R|Qr6tg IV.)%cثn\4 KQ=as:ԫl3yثWnʪ(C[i0y)%58e)*[r 򪡞(CU\CWe% bһu(PQGҫ0Na>K$jR=[GX`adʹf폟hB co?1a(&sq [^DX~p'8ϟۊ),mózn[ vSvVc3Yb}gF[tjO'f53a%ݓzUo(uZ7b>-ooG +|/VN={J!D qzcN:3|x9{g'cyne6mE> DʭU}8j6OIBcA3 A@@  5=~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^4g l ] 4l v ,n P} g4l00000000000000}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.0001e^n21.916.57.02.75.02.840.660.1515.311.40.0050.0182490.4966.52.9E+435.14.915.728lyKj4/808:30N2393.619.5ofn19.718.37.24.34.11.261.5110.40.0130.3874.2E+42.514.17,yKj-0.0064/914:2019.618.07.34.84.61.071.500.108.69.90.0042290.3532.43.6E+41.833.43F`IQKj14:4020.218.54.54.20.961.589.711.00.0072380.3454.4E+416.12.213.94ofKj15:0019.47.11.751.450.2012.813.20.0192510.4644.6E+427.13.495.14m4ll23.419.01.110.57.031.050.0346.620.50.0030.0100.0129550.730174.9E+421210.0211.1SSKj07:30N3356.241.9Wl25.721.03.45.22.650.2723.90.0080.4501.8E+54.145.99bRKj4/709:2026.12.01.490.2112.313.83180.4183.92.4E+539.04.346.04'YvKj08:505.12.591.780.4139.911.60.0060.0113280.5088.12.1E+439.73.355.54b_Kj08:2025.223.03.16.11.4613.13600.4252.8E+547.04.746.40-0.02-0.011733.712.5ٖn17.27.61.96.30.1529.8E+30.831.79ٖnS4lS09:40YN16.320.07.87.51.60.801290.1013.4E+310.60.190.99Ryn09:5516.82.20.878.73.81800.1305.0E+312.10.721.59_Kj10:307.46.91.205.96.02110.2263.314.82.78'YQWn16.06.713.92800.1441.32.3E+328.40.371.03}fm4l^14:55xn23.81.1610.00.0417870.2193.52.6E+389.51.35xnKj15:204lxQWnP[QWn6.82.60.139.40.0153020.2711.2E+40.592.18eP[QW14:25q\lzn17.87.93.20.110.580.325.48.83930.1153.5E+30.621.5209:30<10x/nn28.222.02.32.80.145.314.70.0090.1290.4310.40332100.5662.53018.749.6814:05XUMO1.+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       4 5   J K  L  M    N   !#$%&'()*+,-./0123456789:;<=>?@ABCDEFHJLNOQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvwxyz{|}~@2iw  ? O P P P  @ 5 A      [    B , Q Q  R ~ S P C D E F P G H I  J  K P  @ 5 A      [    B , Q Q  R ~ S P C D E F P G H I  L O P P P M  ,   ,    N    O  Q   R P S P Q R S T P U V {  W  X P M  ,   ,    N    O  Q   R P S P Q R S T P U V {  Z O P P P    [  \  ]  2    @ ^ Q Q  R _ S P ` a 6 b P  c d  e  f P    [  \  ]  2    @ ^ Q Q  R _ S P ` a 6 b P  c d  g O P P P h @ i 5  j  k  l  m  n o Q Q  R ~ S P p q  r P  s t DD1lzJNV0l hz! h" hz# h@$ h@% h@& h@' h@ g i u P h @ i 5 j k l m n o Q Q  R ~ S P p q  r P  s t  !w !O !P !P !P !x !y !z ! ! { !  !  ! | ! } !~ ! ! !_ ! ! !S ! ! ! ! !v !P ! ! ! !" "' " " "P "x "y "z " " { "  "  " | " } "~ " " "_ " " "S " " " " "v "P " " " " #v #v # $v $v $ %v %v % &v &v &v && & &v & 'v '' ' ',,,n(    s HA ?@CommandButton1^]` 0 6$Forms.CommandButton.1L>@ &&'' !" 7 Sheet3ggD g2ɀ "f  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 #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 d d d d d d d f I _ g h d d d     ! "K #I T iO qP LP P U V W X  Y  Z  [  \  ] ^ Q Q _ R ` S P a b c d P e f g$@@?@@" # kh ri tj k U V W X  Y  Z  [  \  ] ^ Q Q _ R ` S P a b c d P e f g$@@?@@" # o lO qP LP P p q r s  t  u  v  \  w ^ Q Q _ R x S P l y m z P n { |$@@?@@" # k} r t k           Q Q  R ~ S P     P ]  $@@?@ @" # k r t k   r  \  Q Q _ R  S P     P   $ @@?@ @" # k r t k    m m  Q Q _ R  S P     P   $ @@?@@" # lO qP LP P      Q   R  S P     P   $ $@@@$@@" # k ri t       Q   R  S P     P   $ $@@@$@@" # lO qP LP P   r   Q Q _ R  S P     P   $ @@@@@" # k r t    r    {     Q Q  R ~ S P     P   $@@?@@" # k r t     Y       Q Q  R  S P     P   $@@@@@" # k r t    r     Z      Q Q _ R  S P   c  P   $@@?@@" #  lO sP LP P  p            Y Q  _ R ~ S P       P    $?????" # m r t               s  Q Q  R ~ S P   !  " P # $ %$?????" # n r t'  (   W  )    *    + , Q Q  R ~ S P - . s / P 0 1 2$?????" # n3 r t4 P   5 6     7    8 9 Q   R ~ S P : ; <  P =  >$?????" # ? lO sP LP P  @ 5 A      [    B , Q Q  R ~ S P C D E F P G H I$?????" # nJ r tK P  @ 5 A      [    B , Q Q  R ~ S P C D E F P G H I$?????" # L lO qP LP P M  ,   ,    N    O  Q   R P S P Q R S T P U V {$?@?@@" # nW r tX P M  ,   ,    N    O  Q   R P S P Q R S T P U V {$?@?@@" # Y lO sP LP P P P P P  P  P  P  P  P P P P P P P P P P P P P P P P P !"# nY rP tP P P P P P  P  P  P  P  P P P P P P P P P P P P P P P P P !"# Z lO qP LP P    [  \  ]  2    @ ^ Q Q  R _ S P ` a 6 b P  c d$?????" # ne r tf P    [  \  ]  2    @ ^ Q Q  R _ S P ` a 6 b P  c d$?????" # g lO qP LP P h @ i 5  j  k  l  m  n o Q Q  R ~ S P p q  r P  s t$?@???" # ng ri tu P h @ i 5  j  k  l  m  n o Q Q  R ~ S P p q  r P  s t$?@???" # w lO qP LP P x y z   {      |  } ~   _   S     v P   $@??$@@" #DF9l^&t $@!$ p' r t P x y z  {   | } ~   _   S     v P   $ @??$@@" # !@ !PTT>@!" j  # 7 Sheet4ggD VBA̧llThisWorkbook-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( I* (@*@&00 ~ W$*\Rffff*0E577d34c8B  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?$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( $FI*  (@*@n00 ~ W$*\Rffff*0G577d34c8B  0 $H p   &  &  ( 08 PX px     ]0 ($. *$. If X < Y Then NO3NSTR = "ND<" + CStr(Y)Else Select Case X Case Is < 1x  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(  CasI* x(@*@r00 ~ W$*\Rffff*0H577d34c8B  0 $H p       0]0 ($. *$. If X < Y Then CODSTR = "ND<" + "ťխ"Else (dNT (?$0'tNT ($0'tOT ( $0't\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(~ W$*\Rffff*0I577d34c8B  (8@X h x     ]0*`-C6?'x'z ($. *$. x * z ( x$0'|dNTdh | x$0'|NTkH 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 ~ W$*\Rffff*0J577d34c8!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) Case Is < 10000  CLSTR = ROUNDLOOP(X, 10) Case Is >= 10000  CLSTR = ROUNDLOOP(X, 1000) 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 ~ W$*\Rffff*0K577d34c8B  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 ~ W$*\Rffff*0L577d34c8B  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 ($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( p"@I* (@*@00 ~ W$*\Rffff*0M577d34c8B  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( I* (@*@00 ~ W$*\Rffff*0N577d34c8B  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'nEnd Ifd-'`kixp;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( p"@I* (@*@00 ~ W$*\Rffff*0O577d34c8B  0 "H p    $  $  "0 X` x     ]0 ($. *$. If X < Y Then BODSTR = "ND<" + CStr(Y)Else BODSTR = X ( Case Is < 10  BODSTR = ROUND456(X, 0.01) Case Is < 100  BODSTR = ROUND456(X, 0.1) Case Is >= 100  BODSTR = ROUND456(X, 1)dNT (?$0'NT ($0'OT ( $0'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~| __SRP_16".T__SRP_17}(l.l2jW#jTo^ gHexeW[__SRP_18),TkrU  ,`aq//nl^T[xME(6 << < 00% `p I( I* 3(@*@00 ~ W$*\Rffff*0P577d34c8B  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 If d-'J 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( I* (@*@00 ~ W$*\Rffff*0Q577d34c8B  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 >= 1@ 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 ~ W$*\Rffff*0R577d34c8B  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'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~| 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%~ W$*\Rffff*0S577d34c8   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'0zk '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 ~ W J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.4oN(ث7:N5M#2k˧?@q֋gibaFߐ`W F4T JP_N=kD y.=E[U=V.M֤I eEG@=`-:(BDs )|CJFs'K„Ѭ`9m‹Nn%&CArFO$g'gCJA ע5 UF vBI J#(30li4Excel+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[0M577d34c8͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0N577d34c8͑ё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  ~ W   TThisWorkbook01577d34c8!ThisWorkbook% Sheet402577d34c8% Sheet4%pP[Lub;m'`R gHexeW[0E577d34c8&pP[Lub;m'`R gHexeW[0 o^ gHexeW[0F577d34c82 o^ gHexeW[FH Sheet30D577d34c8? Sheet3`l]4lg1XIeW[j06577d34c8Dl]4lg1XIeW[jx]xx}.l gHexeW[2MO0G577d34c8n]xx}.l gHexeW[2MON4COD gHexeW[0H577d34c8rCOD gHexeW[S WHrVbmQeQNbٖ0I577d34c8vWHrVbmQeQNbٖN/lSir gHexeW[0J577d34c8~/lSir gHexeW[n'ljW#jTo^ gHexeW[0K577d34c8n'ljW#jTo^ gHexeW[U\^ gHexeW[0L577d34c8\^ gHexeW[M@͑ёl\jW#jTo^ gHexeW[0M577d34c8͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0N577d34c8͑ёl\2jW#jTo^ gHexeW[_8BODjW#jTo^ gHexeW[0O577d34c8BODjW#jTo^ gHexeW[!P0(l.l2jW#jTo^ gHexeW[0P577d34c8(l.l2jW#jTo^ gHexeW[[hd=~nVԚϑ gHexeW[0Q577d34c8=~nVԚϑ gHexeW[{P(l.ljW#jTo^ gHexeW[0R577d34c8(l.ljW#jTo^ gHexeW[ DVhcmQeQNbٖ0S577d34c8VhcmQeQNbٖ\hHP80 x6R@ȅ^gd*FГCtlb#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