ࡱ> BK  !"#$%&'()*+,-./0123456789:;<=>?@ADvLEFGHIJ]M^OPQRS\UVWXYZ[Nd_`abcehfgi|jkumnopqrstwxyz{}~Root Entry Flp'lCWorkbook;_VBA_PROJECT_CUR":0lp'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Ԛ10e0}fԚ1 e0}fԚ1 e0}fԚ1x0e0}fԚ1.8Times New Roman1 e0}fԚ1$e0}fԚ1e0}fԚ10e0}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 # $ 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 \ |@  x@ @  x@  x@  x@ x@ @ x@ @ x x@ @  x@ x@ x x@ x@ \ P x@ @ x@  x@ @  x@ x@ @ x@  x@ @  x@  x@ x@@ x @ |@@ p@ |@@ x@ x @ p @ "|@  p@ ||=F }-} 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`H1Xh (2)vv  ;  /=$" #˜%Y2]@=#˜%Y2]| x) `xUKlQ;3QC)TG5vmԫ^)%6Ete6Ģ bA7b!^Rfa!HUqso (K \$1qm@qjFlMQƃ_7cǫ]HlM"@'G䑢>@ VR6 "\Zr ӊrr[ RZ3U@ۘ1VS.Y(ȅj2)yNNN]䓄H_9^r% Q{C3 A@@   f=~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'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^6g l ] 4l v ,n P} gkXheg-Nl W104t^7g9e4l00000000000000}00000004ln#lnn'l uS'l ]xx }.lN]xx }.lanmVԚ Sx[ 'l 'Yxh ̃pP[Lub;m=~Q l.lP;Bfs^GW----0.003-0.002-0.0001e^n26.333.07.34.71.30.820.700.0527.54.90.0050.0041430.1455.03.9E+416.21.582.338lyKj6/317:50N2444.339.7ofn29.128.37.41.121.230.169.99.70.0020.2691.9E+42.073.46,yKj6/414:2028.928.54.81.21.031.066.98.42340.2552.62.2E+438.71.923.14F`IQKj-0.00414:4029.45.21.60.921.240.155.89.22460.2542.42.5E+42.003.39ofKj15:0529.028.02.81.11.421.380.1816.911.40.0062520.2997.91.0E+440.72.303.86-0.01m4ll33.57.22.55.13.690.2958.611.00.0070.0260.0033940.475253.1E+447.74.274.56SSKj17:00N27936.1Wl27.87.12.940.1917.511.32.0E+44.465.68bRKj6/208:2027.62.31.2712.62670.2506.135.23.364.82'YvKj07:502.90.940.2227.22820.2855.51.7E+436.24.815.97b_Kj07:2027.71.43.470.8817.010.02890.2303.636.95.226.251772.722.5ٖn25.631.27.87.70.80.034.60.1161.1E+42.12ٖnS4lS10:00YN26.52.00.130.521300.0581.94.4E+214.80.661.18Ryn10:1524.58.06.50.20.143.91780.1173.83.3E+315.90.562.14_Kj10:5025.88.71.002230.1722.8E+42.023.05'YQWn21.930.00.30.092240.1106.43.4E+235.80.591.53}fm4l^10:20xn28.64.20.51.161.400.0613.15.66980.2141.6E+389.31.893.35xnKj10:45P[QWn8.30.261.3614.43060.18341.21.492.85eP[QW09:55q\lzn26.932.58.56.00.640.084.54410.0662.4E+344.40.801.52x/nn31.532.06.550.048.212.80.0080.0180.1370.59335100.4403238.849.8009:35XUMO1.+lP[o^cxe!qUMO02.n^el^03.'Yxh̃CFU/100kGS04.P;kˊ;fMRiQ)Y/f&T N05.9>s>S>>?R?2?n?@7@r@R@@AXA8ApAB6B tBT B B C UC5 Cq C D ?D }D] D D /E hEH E ccBOUj_ KU g2ɀ (P:  dMbP?_*+%X&M&d2?'M&d2?(M&d2?)MFX DocuCentre-II 3005 PCL 6005 Q8 4LA4 Q!FX DocuCentre-II 3005 PCL 6N@ H dH , e0}fԚ  p_0" LM&d2?&U} A} q A} A} qA} 8B} 8A} 8A} A} A} UA} A} qB} C} 8C} 8A} UA} qA} A} A} 8A} A} UD} D} qA} A}  A(  ` ` h@ h@ hM h@ hQ gQ +Q hh hE hh hE hE hE hh hE hh hE hE hE hh hE hE hE hm hE hm hE hm hE hm @" A# B$ B% A& A' A( A) A* A+ A, B- C C C C C A A. A/ A A A0 A1 A2 D D @3A$@A$@A$@Ah㈵> Ah㈵> A-C6? A?A?A$@A$@A-C6?A-C6?A-C6?A-C6?A-C6?A-C6?A-C6?A?A?AHz>A?A$@A?A? 4 5 6 FG H7 I0IIJJIIIIIIIJKKKKKIIII 8 9 L :DN AO P;PRSRR T U<:VVVVVVVVVWWWWWVVVVVVVVXYZ[ \ Q \ \ ] T= T> Q R?  Q@  R)  RA  RB  QC TD ^ _ ^ _ ^ R R. Q/ R Q RE QF R `G ` Ha b [ b bI c c cb b  b  b  b  b  b c d d d d d b d b b b e e b f g a O uJ iK jK vK vP vQ wR wS wT wU wV wW wX wY wL wZ w[ wM wZ xN xK w\ w] w^ t_ wK w` ya wb z{ |c kd le }f vP vQ wR wS wT wU wV wW wX wY wL wZ w[ wM wZ xN xK w\ w] w^ t_ wK w` ya wb ~{ j uJ iK jK vK vk vl wm wh wT wn wo wp wq wr wL w[ wZ ws w[ xN xK wg wt wh tu wK wi yv ww ~{ |x ky lz }f v{ v| wm w} w~ w w wp w w wL w[ wZ wM w[ xN xK w w w t wK w y w ~{ | ky l }f v v| wm w w w w w w w wL wL w[ wM w xN xK w w w t wK wi y w ~{ | ky l }f v v wR w  w  w  w  w  w w wL wL w ws w xN xK w w w t wK w y w ~{  uJ iK jK vK vX v w w  w  w  w  w  w w wL w w w w xN xK w w w t wK w y w ~{ | kd l } vX v w w  w  w  w  w  w w wL w w w w xN xK w w w t wK w y w ~{  uJ iK jK vK v v w wT  w  w  w  w  w w wL wL wZ wM w xN xK w w w t wK w y w ~{ | k l } v v w w~  w  w  w  w  w w wL wL w wM w xN xK w w w t wK w y w ~{ | k l } v v w w~  w  w  w  w  w w wL wL w wM w xN xK w w w t wK w y w ~{ | k l } v v w w  w  w  w  w  w w wL wL w[ wM w xN xK w w w t wK w y w ~{  uJ iK jK vK v v w w  w  w  w  w  w w wL wL w wM w xN xK w w w t wK w y w ~{  ky l }  v  vX w w  w   w   w   w  w w wL wL w wM w xN xK w w w t wK w y w ~{  ky l }  v vQ w w  w  w  wa  w  wq w wL wL w wM w xN xK w w w t  wK w! y" w# ~{ $ ky l% vK v& vQ w w'  w  w  w(  w  w w wL wL w wM w xN xK w) w* w t+ wK w y, w- ~{ . uJ iK jK vK v/ v0 wm w  w1  w2  w  w  w w wL wL w wM w xN xK w3 w4 w5 t6 wK w7 y8 w9 ~{ : k l; vK v/ v0 wm w  w1  w2  w  w  w w wL wL w wM w xN xK w3 w4 w5 t6 wK w7 y8 w9 ~{ < uJ iK jK vK v= vQ w> w  w?  w@  wA  wB  wC wD wL wL w wM w xN xK wE wF w  tG wK wH yI wJ ~{ K k lL vK v= vQ w> w  w?  w@  wA  wB  wC wD wL wL w wM w xN xK wE wF w  tG wK wH yI wJ ~{ M uJ iK jK vK v vQ wN w}  w  wO  wP  w  wQ w wL wL w wM w xN xK wR wS wS tu wK wT yU wV ~{ W k lX vK v  !"#$%&'()*+,-./0123456789:;<=>@BDFGIJKLMNOPQRSTUVWXYZ[\^_`abcdefghijklmnopqrstuvwxyz{|}~@2iw@  &&'' !"7 Sheet3ggD VBA!"llThisWorkbook2VhcmQeQNbٖT(__SRP_28|SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU~| WrU D,`ay//(`y/(`y/(`y/$!B'<'T 0$4'2 & @ X  2 $'D change ruleLL# & @ X '. D$V$4'* D'> 0NT (A@XA@Z , 6 H J $'LRT (A@\ , 6X 'LMT (A@^ , 6X 'Ln0d('LkiH > 2  4 > 2  D0 'D 4k D 2 $$`$V'8 D 2 $$`$V': 8NT @ D 2 $$V ',RT :  change rule .$V D$V @ D 2 $$V ( ',d @ D 2 $$V ',khd` @ D 2 $$V ( ',k(MT @ D 2 $$V ( ',no D$$`$V'8 B$`$V': 8NT @',RT :  RESULTNUM = COMNUM ----gk change rule .$V D$V @ ( ',d @',kd @ ( ',kMT @ ( ',no < 2  4 < 2 0 B 'B 4k0 B 2$`$$V'8 B 2 $`$$V': 8NT B < 2 $ F 2$` $V',RT :  B < 2 $ F 2$` $V',dH B < 2 $$V ( ( ',kMT B < 2 $$V ( ( ',noh'H0.'J < 4 < H# 'H 4kX 4 2 J0 'J 4oDAttribute 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@0 @4H@8  @:p" @>& @B@,@D0@H8@$% LH` %%I& (I(  X`I(  \`I(  ^h`HI(  Z` &@(@,( @2x@6@<$ @@( @Fh4@J<@h(xP@hHH pPhD%ÿ_W$*\Rffff*0D577d351c   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 &$N ($N ($P$@$P'0 0 0JļƦrƿ~,Эץ!A@R0'LuFzk &'6B &$4'& &$4'@ @X 'BF (X 'F9# "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_3 NpP[Lub;m'`R gHexeW[#; __SRP_4?T__SRP_57A}`nlTxME(6 << < 00% h`p Id ;CIf emd@f@b00 ÿ_W$*\Rffff*0E577d351cB  0 $H p   &  $  "  H ` &x  $    ( @ HX `px ]0 d$N f$N If X < Y Thenx ABSNSTR = "ND<" + CStr(Y)Elseg, d 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 d{Gz?$L'hdNT d?$L'hdOT d$L'hnEnd Ifd-'hkixOAttribute 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 << < 00bj% `p Id If d@f@00 ÿ_W$*\Rffff*0G577d351cB  0 $H p   &  &  ( 08 PX px     ]0 d$N f$N If X < Y Then NO3NSTR = "ND<" + CStr(Y)TrElsetio Select Case XH Case Is < 1   NO3NSTR = ROUND456(X, 0.01) Case Is >= 1  NO3NSTR = ROUND456(X, 0.01) End Select d NT d{Gz?$L'dNT d?$L'NT d$L'OT d $L'nHEnd Ifd0-'ki6Attribute 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  ,`//nlTSCOD gHexeW[&__SRP_aT__SRP_b}WHrVbmQeQNbٖ//xME(6 << < 00bj% `p Id  CasIf  d@f@00 ÿ_W$*\Rffff*0H577d351cB  0 $H p       0]0 d$N f$N If X < Y Then CODSTR = "ND<" + "ťխ"TrElsetio ddNT d?$L'NT d$L'OT d $L'nEnd Ifd-'FkiAttribute 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 , `//nTNxME(6 << <P‬0@`0% ` Id 'If 'd@f@‮ @Hx``0X(ÿ_W$*\Rffff*0I577d351cB  (8@X h x     ]0f`-C6?'' d$N f$N  f  d $L'dh  $L'kH X$@'  '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 , `//n__SRP_cT__SRP_d/lSir gHexeW[ U __SRP_eTlTxME(6 << < 00%G? `p Id If d@f@00 ÿ_W$*\Rffff*0J577d351c!B  0 H h x  $  "  "( P $h       (0 H P` hx ]0 d$N f$N If X < Y Then      !"#$%&'()*+,-./0124689:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]_abcdefghijklmnopqrstuvwxyz{|}~ CLSTR = "<" + CStr(Y)Else0. Select Case X Case Is < 10  CLSTR = ROUNDLOOP(X, 0.1) Case Is < 1000  CLSTR = ROUNDLOOP(X, 1)|H Case Is < 10000  CLSTR = ROUNDLOOP(X, 10) Case Is >= 10000  CLSTR = ROUNDLOOP(X, 1000) End Select CLSTR = ROUNDLOOP(X, 0.1) ddNT d?$L'NT d$L''NT d $L''OT dd$L'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  ,`//nlTUxME__SRP_f}n'ljW#jTo^ gHexeW[__SRP_103T__SRP_115}(6 << < 00v--%PL `p Id If  d@f@00 ÿ_W$*\Rffff*0K577d351cB  0 "H p   "  "  (0 HP h p  ]0 d$N f$N If X < Y Then DOSTR = "ND<" + CStr(Y)Else d Case Is < 1 CL  DOSTR = ROUND456(X, 0.1)dNT Case Is >= 1'  DOSTR = ROUND456(X, 0.1)dNT d?$L'NT d$L'OT d $L'nEnd Ifdx-'k`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  ,`//nlTM@\^ gHexeW[77 __SRP_12\T__SRP_13^}͑ёl\jW#jTo^ gHexeW[)&` xME(6 << < 00N;% `p Id  CaIf STR d@f@00 ÿ_W$*\Rffff*0L577d351cB  0 (H p  $  "  $  H $`  &   ( 0 P`hpx ]0 d$N f$N If X < Y Then! ELECSTR = " ND < " + CStr(Y)Else[ d 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 d$L''NT d $L's'OT dd$L'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  ,`//nlTKxME(6 << < 00% `p Id If d@f@00 ÿ_W$*\Rffff*0M577d351cB  0 $H p   (  (  &  H &`       0 8HP `]0 d$N f$N If X < Y Then METALSTR = "ND<" + CStr(Y)Else( d Case Is < 1/M " METALSTR = ROUND456(X, 0.0001) Case Is < 100 ! METALSTR = ROUND456(X, 0.001) Case Is < 100 METALSTR = ROUND456(X, 0.01) Case Is > 100  METALSTR = ROUND456(X, 0.1) End SelectNT dMbP?$L' NT d{Gz?$L'dNT d?$L'dOT d$L'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  ,__SRP_14"%T__SRP_15}͑ёl\2jW#jTo^ gHexeW[__SRP_16$-T`//nlT_xME(6 << < 00%= 100  BODSTR = ROUND456(X, 1)dNT d?$L'NT d$L'OT d $L'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~| krU  ,`//nl^T[xME(l.l2jW#jTo^ gHexeW[__SRP_1a*0T__SRP_1b}=~nVԚϑ gHexeW[.(6 << < 00 % `p Id If d@f@00 ÿ_W$*\Rffff*0P577d351cB  0 "H p   &    ( 0@ HX` p]0 d$N f$N If X < Y Then NNSTR2 = "ND<" + CStr(Y)Else d Case Is < 1  NNSTR2 = ROUND456(X, 0.001) NT d{Gz?$L'dNT d?$L'dOT d$L'@4MnEnd 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  ,`//nlT{P      !"#$%&'()*+,-./012345678:<>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~xME(6 << < 00ca% `p Id If d@f@00 ÿ_W$*\Rffff*0Q577d351cB  0 "H p  "  " ( 0H Ph p   ]0 d$N f$N If X < Y Then SSSTR = "ND<" + CStr(Y)Else d Case Is < 1 SSSTR = ROUND456(X, 0.1) Case Is >= 1 SSSTR = ROUND456(X, 0.1)dNT d?$L'NT d$L''NT d $L''OT dd$L'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~| __SRP_1c.3T__SRP_1d}(l.ljW#jTo^ gHexeW[5n__SRP_1e19TkrU  ,`//nl>T xME(6 << < 001% `p Id  If d@f@00 ÿ_W$*\Rffff*0R577d351cB  0 "H p         (8@ P]0 d$N f$N If X < Y Then NNSTR = "ND<" + CStr(Y)Else dNT dMbP?$L' NT d{Gz?$L'dNT d?$L'dOT d$L'InEnd 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  ,`//n!0* pHd VBAProject4@j = r ÿ_W J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.__SRP_1f;}_VBA_PROJECTdir=%__SRP_0 V! E1 yp `=Av' :[X*CPA.EHF/c5AZZG+hjzbf^C7ERo^FwY"_ܐ ol ^=!KZ}FJ(`&zrC\)b>>E:6+@µQAG2B(fHSFrms3D452EE1-E08F`A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 AO69F2C-4BB6-47A4-9A78-2D808B@506F536Users\EPB\AppData\Local\Temp\Exce0l8.0c7.e