ࡱ> Bd  !"#$%&'()*+,-./0123456789:;<=>?@ADEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~Root Entry FO } CWorkbook?a_VBA_PROJECT_CUR">@F } Ctls AL 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Ԛ10e0}fԚ1xe0}fԚ1e0}fԚ1.x Times New Roman1x e0}fԚ1 e0}fԚ1.xTimes New Roman1.Times New Roman1 e0}fԚ1*e0}fԚ1 *e0}fԚ1<*e0}fԚ1*e0}fԚ1*e0}fԚ14*e0}fԚ14*e0}fԚ1*e0}fԚ1h8*e0}fԚ1,8*e0}fԚ18*e0}fԚ18*e0}fԚ1>*e0}fԚ1?*e0}fԚ1 *e0}fԚ1*e0}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 -  - .  / 0ff 1 2  #  *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@  x@ ) 8@ 8@ @  8@ @ 8@ @  8@ @ 8@ @  8@ @ 8@ @ 8@ @  8@ @  x@  x@  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`X1Xh (2)g1X (2)vv  ;~(" 5- a@=5- a| x) `xUMHTQ>q|Eh: $D4hR-$+ڈ QG*imiYpa0Bh+bXhQ}͝49{g%ҦsCH+E,鄽!MyiZn~~Abpl_/ܒ^bDvKEJ$ 8V (eҠzQ?x&H0lڰZaf`^ ٪"\LG#mB &eʰXFV>1U˒|L&9a48]ϐjIv\m~$E#Jmw_:v/lGdq]"!wr JIeӋK+ c.wYڬl,e@3@;v*M2~Q7$)헁!`$i$ VeNAZSL =^}aV>sYh)]CYyZbjY#f]͕j=k0?ss6ZN15>x,Yi7`mib5xYj=f#-,JkJNP̬ `A'@sSbǾ"9s`?~pJϕ5$ ,I*C[>w3RTJZ %vCվCU8] ^,Y5h/;Ӌ>_+T yՁr3ଡ j]])oJO}V7o rj:W*P W=xq޹;g ;,$5V#S~ (ٛyp57c9?ooGD3 A@@  T=~Ql.l!kgASNeMR}1X4lԚ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 airtemperphuS'lϑ(l.l]xx}.lN]xx}.lanmVԚϑSx['lϑ7x\^'Yxh̃pP[Lub;m'`R/l}n'lϑ\xeMOxe-[lQ^}_jܕ S^?e^tXOw@\ g 1X h _ 1134-05-02105t^6g l ] 4l v ,n P} gkXheg-Nl W105t^7g11e4l00000000000000}00000004ln#lnn'l uS'l ]xx }.lN]xx }.lanmVԚ Sx[ 'l 'Yxh ̃pP[Lub;m=~Q l.lP;Bfug/ls^GW---ND<0.071 ND<0.0002<1e^n24.038.08.07.00.60.270.750.0383.98.83.943.896.6919.90.2136503.5E+48.40.561.348lyKj6/2709:10N1984.514.5ofn28.334.27.35.71.40.491.300.209.96.90.3232.440.8328.060.1662.2E+41.583.08,yKjND<0.0926/315:0027.634.07.46.51.20.251.010.218.51.710.7237.551870.1652.61.7E+413.61.432.65F`IQKj15:2029.26.40.361.390.177.16.12.410.6136.440.1753.63.2E+414.41.362.92ofKj15:4028.134.54.11.90.871.5014.09.03.211.1610.22080.1581.6E+415.61.963.67m4ll26.935.57.23.84.81.370.610.1647.511.20.3562.176.4718.31900.1702415.72.012.78SSKj08:30N26314Wl30.238.27.66.04.32.071.140.2832.61.385.492.1116.30.2371.9E+53.494.91bRKj6/116:0038.53.427.112.41.235.331.8512.82210.1319.21.1E+525.72.45'YvKj15:3030.57.98.22.280.3059.268.47.763.1424.52860.317231.6E+528.73.955.41b_Kj29.84.62.501.1016.90.4683.3711.72810.263103.1E+528.44.065.43ND<0.0216812.9ٖn27.77.58.30.51.420.028.95.80.1182.230.6256.540.1235.1E+41.112.55ٖnS4lSND<0.0109:45YN24.727.00.90.912.030.5666.191370.0931.2E+411.8Ryn10:0023.728.07.80.25.11.980.5125.501710.1154.01.1E+413.01.212.46_Kj10:2025.05.42.690.7987.921970.1601.3E+513.93.18'YQWn22.68.70.113.01.720.55810.32020.1222.22.2E+322.2}fm4l^10:25xn36.00.831.050.086.30.1210.7383.8342.65950.18578.82.05xnKj10:50P[QWn33.01.64.99.60.3723.341.3533.92890.1641.8E+425.21.252.51eP[QWq\lzn25.58.11.10.220.460.063.271.047.564820.0948.5E+352.41.622.146/210:05<10x/nn32.52.35.22.74.592.85.32.2214242641731100.3411.332509:35XUMO1.+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$@vHz>vHz>vHz>vHz>vHz>v-C6?vHz>v?v?vHz>v?v$@v?v? 9 : ; {| }< ~0~~~~~~~  !#$%&'()*+,-./0123456789:;<=>?@ABCDEFHJLNOQRSTUVWXYZ[\]^_`abcdfghijklmnopqrstuvwxyz{|}~@2iw  ?D v @  A:      B C  D  E  -  F  G  H I       2 3   J K  L  M    N                O O O O O  O          U P Q Q Q V W X Y Z [ \ ] ^ _ R ` a b c S Q T d e f Q g h i  j k l m V W X Y Z [ \ ] ^ _ R ` a b c S Q T d e f Q g h i  q P Q Q Q r s t u v w x y z { R | } ~  S Q n  o  Q p       m     u R     S Q     Q        m      R     S Q n    Q        m           R |    S Q   t  Q      P Q Q Q                S Q    f Q      k                  S Q    f Q      P Q Q Q           R     S Q     Q           t        R     S Q     Q   a       W    u         R }    S Q         Q           W          [  r  R   i  S Q     Q     # P Q Q Q  $ % &  '    (  )  * + R , - . / S Q ! 0  1 Q " 2 3  4  6 7 8 9 t   :    ;  5  + Y R , < = > S Q ? @ & A Q B?   C  D 7 E F G *  H     )  I R  J K L S Q M N O P Q Q R S  T  U Q V F %   '     5  B W R  X Y Z S Q [ \ u ] Q ^~ Z@ _  ` P Q Q Q a  % b  '     c  d  R  e f g S Q h i j k Q l  (  m  n Q a  % b  '     c  d  R  e f g S Q h i j k Q l  (  o P Q Q Q  p o   H  q  r  s  " t u v w R x S Q y z ~ W@ Q { | _  }  ~ Q  p o   H  q  r  s  " t u v w R x S Q y z ~ W@ Q { | _   P Q Q Q    X      r     R     S Q     Q       D Q    X      r     R     S Q     Q      P Q Q Q    %          { R     S Q   j  Q    DH1lzJNV0l hz! h" hz# h@$ h@% h@& h@' h@    Q    %     { R     S Q   j  Q     ! !P !Q !Q !Q ! ! ! ! !  !  ! q ! 5 !  ! ! !a ! ! ! !S ! ! ! ! ! !Q !!~@@ !" "& " " "Q " " " " "  "  " q " 5 "  " " "a " " " "S " " " " " "Q ""~@@ " #v #v # $v $v $ %v %v % &v &v &v && & &v & 'v '' ' ',,,n (      s HA ?@CommandButton1^ ]` 1 6$Forms.CommandButton.1L>@  '' !"&&7 Sheet3ggD g2ɀ "n  dMbP?_*+%&M&d2?'M&d2?(M&d2?)MbKONICA MINOLTA 423SeriesPCL423 4XXA4xSPLXx423PCLXL,sV 4 ++++4 L -e4 4 L -dInTray1InTray2InTray3InTray4InTrayLCTInTrayManual d}HddXXP_ArialCourier NewTimes New RomanSymbolWingdings ArialCourierTimes New RomanSymbolWingdings#ivK4 EXCEL.EXEG\a(" IM&d2?&U} @} q @} @} q@} 8N} P} 8P} P} Q} R} S} S} qN} S} 8S} S} 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 #A@BCBB D ABMW# F E F F G DB DC E B  E!  X"  Y  Z  [# D$ [ Z [ Z [ Z Z2 \3 B E ]4 ^% Z Z Z  !  # !" "H #B I _ I IN J ` `a I  _  b  c  d  e J J J J J J J J f I _ g h d d d     ! "K #I U iP qQ LQ Q V W X Y  Z  [  \  ]  ^ _ R ` a b c S Q T d e f Q g h i$??@?@" # kj rk tl m V W X Y  Z  [  \  ]  ^ _ R ` a b c S Q T d e f Q g h i$??@?@" # q lP qQ LQ Q r s t u  v  w  x  y  z { R | } ~  S Q n  o  Q p  $@????" # k r t m          u R     S Q     Q   $@????" # k r t m      R     S Q n    Q   $ @????" # k r t m      R |    S Q   t  Q   $ @??@@" # lP qQ LQ Q           S Q    f Q   $ @@@@@" # k rk t            S Q    f Q   $ @@@@@" # lP qQ LQ Q      R     S Q     Q   $ @@@@@" # k r t    t        R     S Q     Q   a$@?@@@" # k r t   W    u         R }    S Q         Q    $?@@@@" # k r t   W          [  r  R   i  S Q     Q   $@@@@@" # # lP sQ LQ Q  $ % &  '    (  )  * + R , - . / S Q ! 0  1 Q " 2 3$?????" # m4 r t6 7 8 9 t   :    ;  5  + Y R , < = > S Q ? @ & A Q B? $?????" # n r tD 7 E F G *  H     )  I R  J K L S Q M N O P Q Q R S$?????" # nT r tU Q V F %   '     5  B W R  X Y Z S Q [ \ u ] Q ^~ Z@ _$?????" # ` lP sQ LQ Q a  % b  '     c  d  R  e f g S Q h i j k Q l  ($?????" # nm r tn Q a  % b  '     c  d  R  e f g S Q h i j k Q l  ($?????" # o lP qQ LQ Q  p o   H  q  r  s  " t u v w R x S Q y z ~ W@ Q { | _$???@?" # n} r t~ Q  p o   H  q  r  s  " t u v w R x S Q y z ~ W@ Q { | _$???@?" #  lPsL      !"# nrt      !"#  lP qQ LQ Q    X      r     R     S Q     Q   $?????" # n r tD Q    X      r     R     S Q     Q   $?????" #  lP qQ LQ Q    %          { R     S Q   j  Q   $?????" # n r t Q    %          { R     S Q   j  Q   $?????" #  lP qQ LQ Q          q  5     a    S      Q 0~@@@??$@@" #D8l^&t $@!$ p& r t Q       q 5    a    S      Q 0 ~@@@??$@@" # !@ !PTT >@!"""" j #  7 Sheet4ggD VBA0 P  ThisWorkbook-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 << < 00tati%on> ,`p I( I* (@*@&00 CLY$*\Rffff*0F594e8042B  0 $H p   &  $  "  H ` &x  $    ( @ HX `px ]re0 ($. *$. If X < Y Thenany, ABSNSTR = "ND<" + CStr(Y)or aElses is d ( Case Is < 1mp  ABSNSTR = ROUND456(X, 0.01) Case Is < 10  ABSNSTR = ROUND456(X, 0.1) Case Is >= 10;1  ABSNSTR = ROUND456(X, 1)190 -----980909195 Case Is < 10196  ABSNSTR = ROUND456(X, 0.01)5 Case Is >= 1087  ABSNSTR = ROUND456(X, 0.1);2 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)*W $FB@H LB@HexCont NB@H"true" (2)$FB@H LB@H(  TR XVZ\ NB@P_$FB@H==$FJ$FB@H(Left($FB@HSNST LB@HCHKNUM NB@HKNUM / (2)$FB@H LB@H Se  TR XVZ\ NB@PTR (2)$FB@HA:AE$^B@HCaAE4$`B@b N!d(f,A:AD$^B@HAD3$`B@b lj NB@h (2)$FB@Ho TF$xME(6 << <4H@8 @Hx(  :` DDI( s < I* ( @*@6(@2%Xxx(p( PCLY$*\Rffff*0G594e8042E B  ( @ &X      * :0 p  2  8   H8      6 0 8@ `$x 8    8 @ P ` hp         0 8@ P` x   ] H(x ($. *$. If X < Y Then NTUSTR = " ND < " + CStr(Y)"hElse ('8 (?NT ================= _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 $$<'6 6 6?$4?$4 '4 4KT 6 80.00$':MbP??LT 6 4  80.00$':9v?J +?LT 6?$4 4   80.00$':n NT (?$0':(NT ($0':dNT ('6 6 '4 4KT 6 8X ':LT 6 4  8X ':LT 6 4   8X ':n NT ( $0':'PT (  '6 62 '4 4KT 6 8X ': LT 6 4  8X ':(LT 62 4   8X ':nPnHEnd Ifd0':k 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# ,= _O`k,= Val(LefDt(kAbs[)p, 4)pFHZ- (Fix(/ CDec(0.05)) *I %SHAZB0 aForm&a)* [, 2"@0"+.01 To @2E4- Z2#34(+ (L =EP _wy|#DDDDDMDeDD5kQ Dc 26D9  D^qDbck&kROUND456a0.1Hi4, S10lfJX,wGMod ,2CBG0 ¡!dŇB %B@  >n5, <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 << < 00ator%"any p`p I( $FI*  (@*@n00 CLY$*\Rffff*0H594e8042B  0 $H p   &  &  ( 08 PX px     ]= 1  NO3NSTR = ROUND456(X, 0.01)t( End Select ( NT ({Gz?$0'pdNT (?$0'pNT ($0'pXVOT ( $0'pnHEnd IfA:AEd0-'pAE4ki6Attribute 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 << < 00ator%"any t`p I(  CasI* (@*@r00 CLY$*\Rffff*0I594e8042B  0 $H p       0]) 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(CLY$*\Rffff*0J594e8042B  (8@X h x     ]0*`-C6?'x'z ($. *$. x * z ( x$0'|dh | x$0'|kH xX$@'x z 'zki'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 = 10000;  CLSTR = ROUNDLOOP(X, 1000)81 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 << < 00subs%/> `p I( I*  (@*@00 CLY$*\Rffff*0L594e8042B  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)P(dNT (?$0'NT ($0'P(X, 1OT ( $0'0000;nEnd 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 << < 00ny" %me=" `p I(  CaI* STR (@*@00 CLY$*\Rffff*0M594e8042B  0 (H p  $  "  $  H $`  &   ( 0 P`hpx ]0 ($. *$. If X < Y Then! ELECSTR = " ND < " + CStr(Y)Elsename=" ( Case Is < 20 ELECSTR = ROUND456(X, 0.1) Case Is < 200 ELECSTR = ROUND456(X, 1)0Case Is < 20004; ELECSTR = ROUND456(X, 10)15Case Is < 200006 ELECSTR = ROUND456(X, 100)89Case Is >= 20000  ELECSTR = ROUND456(X, 1000)-NT ($0'E98'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 << < 00t na%tuti `p I(  CaI* ECST(@*@00 CLY$*\Rffff*0N594e8042B  0 $H p   (  (  &  H &`       0 8HP `]0 ($. *$. If X < Y Then METALSTR = "ND<" + CStr(Y)Elsetution ( Case Is < 1 " METALSTR = ROUND456(X, 0.0001) Case Is < 10 ! METALSTR = ROUND456(X, 0.001) Case Is < 1004; METALSTR = ROUND456(X, 0.01)5 Case Is > 10006  METALSTR = ROUND456(X, 0.1)9 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(  CaI* TALS(@*@00 CLY$*\Rffff*0O594e8042B  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)5nEnd If06d-' = 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 to %the `p I( ElI* T(@*@00 CLY$*\Rffff*0P594e8042B  0 "H p    $  $  "0 X` x     ]0 ($. *$. If X < Y Then BODSTR = "ND<" + CStr(Y)Elser sche BODSTR = X ( Case Is < 10  BODSTR = ROUND456(X, 0.01) Case Is < 100  BODSTR = ROUND456(X, 0.1)51 Case Is >= 10011  BODSTR = ROUND456(X, 1)293dNT (?$0'NT ($0'371OT ( $0'396n@End If99d(-'439ki;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 <%"0" `p I( I* 3(@*@00 CLY$*\Rffff*0Q594e8042B  0 "H p   &    ( 0@ HX` p]0 ($. *$. If X < Y Then NNSTR2 = "ND<" + CStr(Y)Elsennotat ( Case Is < 1  NNSTR2 = ROUND456(X, 0.001) NT ({Gz?$0'dNT (?$0'dOT ($0'865nEnd If70d-'874ki,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[\]^_`abcdefghijlnpqrstuvwxyz{|}~xME(6 << < 00up> %ame= `p I(  CaI* STR2(@*@00 CLY$*\Rffff*0R594e8042B  0 "H p  "  " ( 0H Ph p   ]0 ($. *$. If X < Y Then SSSTR = "ND<" + CStr(Y)Elsee> ( Case Is < 1 SSSTR = ROUND456(X, 0.1) Case Is >= 1 SSSTR = ROUND456(X, 0.1)1dNT (?$0'NT ($0'170'NT ( $0'925'OT (d$0'53;npEnd If19dX-'019k@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[9#n__SRP_1c/4AT__SRP_1dC}VhcmQeQNbٖ((6 << < 00 as %hema `p I(  CaI* STR (@*@00 CLY$*\Rffff*0S594e8042B  0 "H p         (8@ P]0 ($. *$. If X < Y Then NNSTR = "ND<" + CStr(Y)Else="en"> (NT (MbP?$0' NT ({Gz?$0'dNT (?$0'dOT ($0'6nEnd If12d-'60;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 rule7;7   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%CLY$*\Rffff*0T594e8042   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'09;zk '8 $4' $4' X ' X '12 "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_1e27E|__SRP_1fGNNDValueMa__SRP_2058kT!     "(#$%&'`//(`/(`/(`/$!`nl2T)xME(6 << < 00%n="1 `p I( PI* (@*@00 CLY$*\Rffff*0U594e8042B 08 @X `x   4 08@P]0 ($. *$. (NT (MbP?$0' NT ({Gz?$0'dNT (?$0'dOT ($0'n@d8 (< ( (< ( (< $'ƿd-'0'kki%Attribute VB_Name = "NDValue" Dim X As Single, Y0 Function NDG$etf(XF)  If IsNumeric(@X) And Y) Then*.Select C`ase XIs < 1/tROUND4560.001{(A0'B '! >= 10%! EÃaElsefnStr"<"`) > 0 MidI + 1 , Lenk- HT N"-A.If-A rU~| ! krU , `aq//nf0* pHd VBAProject4@j = __SRP_21m}_VBA_PROJECT diroj__SRP_06< H~MlpH J5O3CFNN(Yo`Db!>CmT|E^#D DMR;_&D"L$Du 'FJPQA^"mflՌ7OgIaFN{eMm0oZ+Y2LHհ 0+JRvl6A ޾B7~Csg!Ϭy>@(fAkDEbUGQW*(Namh:ߵ/F ӂ rr!OG O^ԙ Mc+<ˠY8nk4Excel+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 pNDValue2p NDGetValue epCommandButton1|p8 s3w  !  % ' 3?Eo34h2͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0O594e8042͑ёl\2jW#jTo^ gHexeW[_8BODjW#jTo^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  CLY  TThisWorkbook01594e8042!ThisWorkbook% Sheet402594e8042% Sheet4:%pP[Lub;m'`R gHexeW[0F594e8042&pP[Lub;m'`R gHexeW[0 o^ gHexeW[0G594e80422 o^ gHexeW[FH Sheet30E594e8042? Sheet3x`l]4lg1XIeW[j06594e8042Dl]4lg1XIeW[jx]xx}.l gHexeW[2MO0H594e8042n]xx}.l gHexeW[2MON4COD gHexeW[0I594e8042rCOD gHexeW[S WHrVbmQeQNbٖ0J594e8042vWHrVbmQeQNbٖN/lSir gHexeW[0K594e8042~/lSir gHexeW[n'ljW#jTo^ gHexeW[0L594e8042n'ljW#jTo^ gHexeW[U\^ gHexeW[0M594e8042\^ gHexeW[M@͑ёl\jW#jTo^ gHexeW[0N594e8042͑ёl\jW#jTo^ gHexeW[K ͑ёl\2jW#jTo^ gHexeW[0O594e8042͑ёl\2jW#jTo^ gHexeW[_8BODjW#jTo^ gHexeW[0P594e8042BODjW#jTo^ gHexeW[!P0(l.l2jW#jTo^ gHexeW[0Q594e8042(l.l2jW#jTo^ gHexeW[[hd=~nVԚϑ gHexeW[0R594e8042=~nVԚϑ gHexeW[{P(l.ljW#jTo^ gHexeW[0S594e8042(l.ljW#jTo^ gHexeW[ DVhcmQeQNbٖ0T594e8042VhcmQeQNbٖ\NDValue0U594e8042NDValue)8`P0x r CLY J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.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