ࡱ> B  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FSlQ#lCWorkbook<a_VBA_PROJECT_CUR"; ڰlQ#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  ;  /B$"NWJ^kؿ'L?V@=NWJ^kؿ'L?V| x) `xU[MQgf.i04f̘rM2rr܆q+2a0G2E!y@䁤x'/jFyIQΣk9˥g}Zk$dI[8UԯXp<̣Ѱ0~W[RXL -[v V%L&E%&00,ਂ1;]]]?̃ɕSG X|jʹi E (tG6H7Hߩ08X<ɉ.F_tsya\P狑 '~Es;53Թzr6w'{~^C(d/? Zpk|{6s#{fSC9BǏļTcb'UH?{sg7 +eW(螁DH#8J퐰:ѹu*ʣ^Kh0Ijɾ$IP5z[+Inɟy2[C6#jHSjW_Uv\tV~ְ}hVǼviiVmZ54>l WnͦSN ;ky$ї4n-h6C#QNVy5VY+K} KC ꣁ(gVap% Dc̥wD9=G1>\0&:MD7I%׼'\CmonkOKQW;%e><'/j^Ϭ5Dzfw_+e'AVF{Ü|";H?뛞1ǭ6,^d'$݌$mlj=5I7%G۩x_;OK7Dݏd3qKȶD F-Q"DۅpϸۯgB1}̓[O 򐐨v xf.X_M#$!!"@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^3g 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^n17.713.57.12.22.93.701.280.169.710.60.0030.0132580.5654.04.0E+434.64.886.328lyKj3/1008:50N2344.916.7ofn16.414.07.32.73.72.061.220.139.90.0070.0320.3403.6E+43.184.53,yKj10:152.83.41.791.139.211.70.0020.0102250.3366.24.4E+416.23.134.39F`IQKj10:354.51.721.239.10.0122300.3133.33.3E+416.32.654.01ofKj10:5516.62.42.671.3011.410.20.0040.0732480.3725.33.0E+417.63.755.18-0.01m4ll17.417.01.04.27.730.7654.015.00.0209870.660133.1E+586.89.44SSKj07:50N2094.417.9Wl18.019.87.21.81.291.480.060.2031.0E+52.193.73bRKj3/909:4018.51.41.051.320.048.45.62050.1733.63.9E+416.81.743.10'YvKj09:1018.220.01.171.560.0710.14.70.0090.2174.34.5E+417.32.173.80b_Kj08:4021.02.51.651.550.0811.30.0082130.2205.22.3E+519.54.301641112.2ٖn14.113.87.75.80.61.4020.44.80.0140.1301.3E+40.401.80ٖnS4lS-0.0093/1114:30YN5.90.40.021.3318.85.0129143.9E+3Ryn14:4513.90.70.0321.41737.02.8E+312.10.231.63_Kj15:1514.77.60.80.201.476.00.019189123.1E+413.00.892.36-0.02-0.006'YQWn14.57.40.9910.83.52680.1402.5E+332.90.14}fm4l^14:50xn21.51.21.100.2615.10.0060.0799640.2962.6E+397.31.512.87xnKj15:204lxQWn2.69P[QWn8.85.41.70.709.60.01613100.3272.5E+475.7eP[QW14:20q\lzn8.15.70.20.220.8236.70.0180.2635180.111275.5E+462.21.08<10x/nn25.62.32.05.970.9311.00.0050.4180.46433000.3206.53337.258.1814:00XUMO1.+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  ? @    <  A   B C Q Q Q R = S P D E  F P G H   I  J P  ? @    <  A   B C Q Q Q R = S P D E  F P G H   K O P P P L     M   N  O  P  Q Q y R R S P S T 0 U P V W X  Y  Z P L     M   N  O  P  Q Q y R R S P S T 0 U P V W X  ] O P P P   ^ _  `  a    b  Q Q  R c S P d e   f P g \ \  h  i P   ^ _  `  a    b  Q Q  R c S P d e   f P g \ \  j O P P P q V k l  m  n  o  %  p  Q Q q  r S P s t u v P w + x DD1lzJNV0l hz! h" hz# h@$ h@% h@& h@' h@ j   P q V k l m n o % p  Q Q q  r S P s t u v P w + x  !z !O !P !P !P !{ ! !| ! ! } ! ~ !  ! ! 9 ! ! ! !q !t ! !S ! ! ! ! !y !P ! ! ! !" "' " " "P "{ " "| " " } " ~ "  " " 9 " " " "q "t " "S " " " " "y "P " " " " #v #v # $v $v $ %v %v % &v &v &v && & &v & 'v '' ' ',,,n(    s HA ?@CommandButton1^]` 0 6$Forms.CommandButton.1L>@ &&'' !" 7 Sheet3ggD g2ɀ " n  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  x ] Q Q _ y z S P l { m | P n } ~$@@?@@" # k ri t k p q r      w   Q Q  R  S P     P   $@@?@@" # k ri t k  q r Y w W Q Q _ R  S P     P   $ @@?@@" # k ri t k  q r  w  Q Q  y  S P     P   $ @@?@@" # lO qP LP P   r   Q   R  S P     P   $ $@@@$@@" # k ri t    r   Q   R  S P     P   $ $@@@$@@" # lO qP LP P     x  Q Q _ R  S P     P   $ @??@ @" # k r t     t       Q Q _ R  S P     P   $@??@ @" # k r t            Q Q _ R  S P     P   $@??@ @" # k r t    W s       Q Q _ R  S P     P   $@??@ @" #  lO sP LP P                Q Q _ R  S P     P   $@?@?@" # m r t   q             Q Q  R ` S P      P    $@????" # n r t"  # V     $  %     &  Q Q _ R  S P '  ( ) P * + ,$@?@?@" # n- r t. P / q 0   1  2  3   4 Q Q  R 5 S P 6  7 8 P 9 : ;$@?@?@" # > lO sP LP P  ? @    <  A   B C Q Q Q R = S P D E  F P G H $@????" # nI r tJ P  ? @    <  A   B C Q Q Q R = S P D E  F P G H $@????" # K lO qP LP P L     M   N  O  P  Q Q y R R S P S T 0 U P V W X$@??@@" # nY r tZ P L     M   N  O  P  Q Q y R R S P S T 0 U P V W X$@??@@" # [ 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 !"# n[ 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 !"# ] lO qP LP P   ^ _  `  a    b  Q Q  R c S P d e   f P g \ \$@??@@" # nh r ti P   ^ _  `  a    b  Q Q  R c S P d e   f P g \ \$@??@@" # j lO qP LP P q V k l  m  n  o  %  p  Q Q q  r S P s t u v P w + x$@?@?@" # nj r t P q V k l  m  n  o  %  p  Q Q q  r S P s t u v P w + x$@?@?@" # z lO qP LP P {  |   }  ~     9    q t  S     y P   $@??$@@" #DF9l^&t $@!$ p' r t P {  |  } ~  9    q t  S     y P   $ @??$@@" # !@ !PTT>@!" " "" j  # 7 Sheet4ggD VBAllThisWorkbook-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 V$*\Rffff*0E577d34b7B  0 $H p   &  $  "  H ` &x  $    ( @ HX `px ]0 ($. *$. If X < Y Then ABSNSTR = "ND<" + CStr(Y)Else ( Case Is < 1#0#  ABSNSTR = ROUND456(X, 0.01)\ Case Is < 10lb#  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 V$*\Rffff*0G577d34b7B  0 $H p   &  &  ( 08 PX 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) 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 V$*\Rffff*0H577d34b7B  0 $H p       0]0 ($. *$. If X < Y Then CODSTR = "ND<" + "ťխ"Else (dNT (?$0'tNT ($0'tOT ( $0'tnEnd Ifd-'tkiAttribute 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(V$*\Rffff*0I577d34b7B  (8@X h x     ]0*`-C6?'x'z ($. *$. x * z ( x$0'| dh | x$0'|CHKNUMkH xX$@'x z 'z2ki'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* x(@*@~00 V$*\Rffff*0J577d34b7!B  0 H h x  $  "  "( P $h       (0 H P` hx ]0 ($. *$. If X < Y Then CLSTR = "<" + CStr(Y)Else Select Case XP 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( PI*  (@*@00 V$*\Rffff*0K577d34b7B  0 "H p   "  "  (0 HP h p  ]0 ($. *$. If X < Y Then DOSTR = "ND<" + CStr(Y)Else ( Case Is < 1  DOSTR = ROUND456(X, 0.1) Case Is >= 1  DOSTR = ROUND456(X, 0.1)dNT (?$0'NT ($0'OT ( $0'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  ,`aq//nlTM@__SRP_e;T__SRP_f3=}\^ gHexeW[?7 __SRP_10 dTxME(6 << < 00% `p I( I* x(@*@00 V$*\Rffff*0L577d34b7B  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( <I* (@*@00 V$*\Rffff*0M577d34b7B  0 $H p   (  (  &  H &`       0 8HP `]0 ($. *$. If X < Y Then METALSTR = "ND<" + CStr(Y)Else ( Case Is < 1ELECST " METALSTR = ROUND456(X, 0.0001) Case Is < 10'NT ! 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 V$*\Rffff*0N577d34b7B  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( I* (@*@00 V$*\Rffff*0O577d34b7B  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* (@*@00 V$*\Rffff*0P577d34b7B  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 V$*\Rffff*0Q577d34b7B  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 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~| krU  ,`aq//nl>T xME(l.ljW#jTo^ gHexeW[6#n__SRP_1c/4AT__SRP_1dC}VhcmQeQNbٖ((6 << < 00% `p I( I* (@*@00 V$*\Rffff*0R577d34b7B  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'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  ,`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%V$*\Rffff*0S577d34b7   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 V J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.OڧAVmX@BxYJfNO)=%ж@y˻W(O9mWN!rvx  ?mC? [ f"MBx 'U:z)H^pWGZnK7P-vϗ$hN+/h]OGDE\FĎWۉ]WD͉*H)BbZ`6EK#~Ay:L*@Ǜ&LƤ~z.Lؼl)ȽN/KN:\5<~FE%ȥ0li4Excel+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[0M577d34b7͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0N577d34b7͑ё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  V  TThisWorkbook01577d34b7!ThisWorkbook% Sheet402577d34b7% Sheet4%pP[Lub;m'`R gHexeW[0E577d34b7&pP[Lub;m'`R gHexeW[0 o^ gHexeW[0F577d34b72 o^ gHexeW[FH Sheet30D577d34b7? Sheet3`l]4lg1XIeW[j06577d34b7Dl]4lg1XIeW[jx]xx}.l gHexeW[2MO0G577d34b7n]xx}.l gHexeW[2MON4COD gHexeW[0H577d34b7rCOD gHexeW[S WHrVbmQeQNbٖ0I577d34b7vWHrVbmQeQNbٖN/lSir gHexeW[0J577d34b7~/lSir gHexeW[n'ljW#jTo^ gHexeW[0K577d34b7n'ljW#jTo^ gHexeW[U\^ gHexeW[0L577d34b7\^ gHexeW[M@͑ёl\jW#jTo^ gHexeW[0M577d34b7͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0N577d34b7͑ёl\2jW#jTo^ gHexeW[_8BODjW#jTo^ gHexeW[0O577d34b7BODjW#jTo^ gHexeW[!P0(l.l2jW#jTo^ gHexeW[0P577d34b7(l.l2jW#jTo^ gHexeW[[hd=~nVԚϑ gHexeW[0Q577d34b7=~nVԚϑ gHexeW[{P(l.ljW#jTo^ gHexeW[0R577d34b7(l.ljW#jTo^ gHexeW[ DVhcmQeQNbٖ0S577d34b7VhcmQeQNbٖ\08h`xHP 1NMi5V_MzѾVB5U%tlb#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