ࡱ> X}W  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVdiZ[\]^_`abceqfghjklmnoprvstuxyz{|Root Entry F<N2 Y\Workbook!ۨ_VBA_PROJECT_CUR"0NERPRVBAuNRpΝR g2\p Administrator Ba= ThisWorkbook=i- $8X@"1[SO1[SO1[SO1[SO1[SO1[SO1Arial1[SO1I{~1[SO1 [SO1I{~1 h6I{~ Light1,6I{~16I{~16I{~1I{~1I{~1I{~14I{~1 I{~1I{~1 I{~14I{~1<I{~1?I{~1>I{~1 I{~1[SO""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)""#,##0;\-""#,##0""#,##0;[Red]\-""#,##0""#,##0.00;\-""#,##0.00#""#,##0.00;[Red]\-""#,##0.0050_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                                                        P P         a>     ff   `                1 1,@ @ 1$@ @  1  1  1    1 ||Ig}<} _-;_-* "ef?_-;_-@_}<} _-;_-* "ef?_-;_-@_}<} _-;_-* "ef?_-;_-@_}<} _-;_-* "ef?_-;_-@_}<} _-;_-* "ef?_-;_-@_}<} _-;_-* "ef ?_-;_-@_}<} _-;_-* "L?_-;_-@_}<} _-;_-* "L?_-;_-@_}<} _-;_-* "L?_-;_-@_}<} _-;_-* "L?_-;_-@_}<} _-;_-* "L?_-;_-@_}<} _-;_-* "L ?_-;_-@_}<} _-;_-* "23?_-;_-@_}<} _-;_-* "23?_-;_-@_}<} _-;_-* "23?_-;_-@_}<} _-;_-* "23?_-;_-@_}<}  _-;_-* "23?_-;_-@_}<}! _-;_-* "23 ?_-;_-@_}(}# _-;_-* "}<}$ _-;_-* "?_-;_-@_}<}% _-;_-* "??_-;_-@_}<}& _-;_-* "23?_-;_-@_}(}' _-;_-* "}<}( _-;_-* "?_-;_-@_}(}* _-;_-* "}<}+ a_-;_-* "?_-;_-@_}P}, _-;_-* "?_-;_-@_ }}/ }_-;_-* "?_-;_-@_   }}0 _-;_-* "?_-;_-@_??? ??? ??? ???}(}1 _-;_-* "}(}2 _-;_-* "}<}3 }_-;_-* "?_-;_-@_}<}< W_-;_-* "?_-;_-@_}}= ???_-;_-* "?_-;_-@_??? ??? ??? ???}}> ??v_-;_-* "̙?_-;_-@_   }<}6 _-;_-* "?_-;_-@_}<}7 _-;_-* "?_-;_-@_}<}8 _-;_-* "?_-;_-@_}<}9 _-;_-* "?_-;_-@_}<}: _-;_-* "?_-;_-@_}<}; _-;_-* " ?_-;_-@_}x}?_-;_-* "?_-;_-@_  !20% - :_eW[r 1J20% - :_eW[r 1 ef !20% - :_eW[r 2J"20% - :_eW[r 2 ef !20% - :_eW[r 3J&20% - :_eW[r 3 ef !20% - :_eW[r 4J*20% - :_eW[r 4 ef !20% - :_eW[r 5J.20% - :_eW[r 5 ef !20% - :_eW[r 6J220% - :_eW[r 6  ef !40% - :_eW[r 1J40% - :_eW[r 1 L !40% - :_eW[r 2J#40% - :_eW[r 2 L˭ !40% - :_eW[r 3J'40% - :_eW[r 3 L !40% - :_eW[r 4J+40% - :_eW[r 4 L !40% - :_eW[r 5J/40% - :_eW[r 5 L !40% - :_eW[r 6J340% - :_eW[r 6  L !60% - :_eW[r 1J 60% - :_eW[r 1 23 !60% - :_eW[r 2J$60% - :_eW[r 2 23 !60% - :_eW[r 3J(60% - :_eW[r 3 23 !60% - :_eW[r 4J,60% - :_eW[r 4 23f ! 60% - :_eW[r 5J060% - :_eW[r 5 23 !!60% - :_eW[r 6J460% - :_eW[r 6  23Ў "~vRk #h&h DTj $h 18h 1 DTjDr %h 28h 2 DTj? &h 38h 3 DTj23 'h 4*h 4 DTj(]0]  8^ĉ )8^ĉ 2 *8^ĉ 3*8^ĉ 3 +}Y0}Y  a ,Gl;`BGl;` DrDr-'^. '^[0] /{j{  } 0hgUSCQ:_eW[r 1 Dr 7:_eW[r 2>!:_eW[r 2 }1 8:_eW[r 3>%:_eW[r 3  9:_eW[r 4>):_eW[r 4  ::_eW[r 5>-:_eW[r 5 [ ;:_eW[r 6>1:_eW[r 6  pG  <-N2-N  W =QjQ  ???????????? ??? >eQjeQ ̙ ??v  ?lʑ^ lʑ  XTableStyleMedium2PivotStyleLight16`y>hgv{[aRh[ݏĉNyRhVVgZR3 A@@  #~N>yOO(uNxlQS0W@WT|5u݋v{/hgUSMOhgN 7 Ty 7ݏĉNyhg~ghgeYtaf TykXQcknxv Ty~N>yOO(uNxTlQS_{kXQNy,R_(WlQSMRR NUS_S(eeQlr`)0W@WNU\:y N OeS NQT|5u݋NU\:y N OeS NQ hgNkXQcknxvhgNYtakXQcknxvYta ] gpencv^hg~gOo`R NSO9e hg~gkXQcknxvhg~g hgekXQcknxvhge 6{|Kۡ%C 7Aԅcۅ8T XadwuƝlmM=\('P^Ke#bc{lcw K 6CqKzV"B$L\!ԖovxuF]n# ]L-7Bc".$C΄M\KHt)Z,Kf~߅ .D6K2rA&5B%.lġ-F;`e!(^[>܇jRDsG,oafogBʼn3;J):F ,|BUƮĺ\U1sb!J>3Aq2{u-rRO#G` |q:e_#j=ջԵp[;3E %s@a7e.Wdrf||Fv<'Zz3$vO}|aQSO&!|Tm X#-q&?%2(b:^enh ғbQjU :R]wz6Ч3J<$ c65lQ9I$.źu~@- |z/@0SYtu0/3˜ieس #.ݞ]jgEH7D_٩VB㼱^CjS rcqX|mY)hZR?c%;B}B4/}"%B6S뢓VH=JƺhnU(,u(+9d<4n(OPZἫ/Vl cG+Wʁ"A17טe|s(]G4 ѴussB%] )ƋeX;f@  7 f*gSsSs]#N9eck NMThg`%N͑Ǐ{vvOO@b~%:W@b elT|vQN*g cĉ[lQ:y^S_lQ:yvOo`lQ:yOo`ww[`Q_Z\OGP*gSs_U\,g!kbgmSv~%;mRSs_T~Yt? f*gSsSs]#N9eck NMThg`%N͑Ǐ{vvOO@b~%:W@b elT|vQN*g cĉ[lQ:y^S_lQ:yvOo`lQ:yOo`ww[`Q_Z\OGP*gSs_U\,g!kbgmSv~%;mRSs_T~Yt?  Sheet1ggD g2 <K|~pxJ  dMbP?_*+%&?'?(?)?M HP LaserJet Pro M201-M202 PCL T C 4dXXA4DINU" l kQ SMTJ IUPH"xJQdDѢejj(&RZD.k+Q/hm'hU# &=s^x) \O# -y7ΆZv`#j Gn^eNDZcdwjefV}3ql)hnRv]Ei$d}MMAϯS?}X]vF7;潴Oy>[ud~+5 |mPyy\4><]CPnH-(+/}$LNDR.+ʴVn}Cio ~xAIİ.Ѧ"i؈H^"%N|miDDƉR檓:&16ri?3ԋ{5<{3Z3f9)[z9l<" dXX??&cU} @K     @ @ EAAABBBB B B B B BBBBBBBBBBBBBBBBBBBDl  !"#$%&'()*+,-./0123456789:;<=>? B!B"B#B$B%B&B'B(B)B*B+B,B-B.B/B0B1B2B3B4B5B6B7B8B9B:B;B<B=B>B?BDl @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@BABBBCBDBEBFBGBHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBXBYBZB[B\B]B^B_BDl `abcdefghijklmnopqrstuvwxyz{|}~`BaBbBcBdBeBfBgBhBiBjBkBlBmBnBoBpBqBrBsBtBuBvBwBxByBzB{B|B}B~BBDl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBDl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBDl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBDl BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBDl      BBBBBBBBB B B B B BBBBBBBBBBBBBBBBBBBDl  !"#$%&'()*+,-./0123456789:;<=>? B!B"B#B$B%B&B'B(B)B*B+B,B-B.B/B0B1B2B3B4B5B6B7B8B9B:B;B<B=B>B?BDl @ABCDEFGHIJ@BABBBCBDBEBFBGBHBIBJBJ >@7 Sheet3ggD ThisWorkbook__SRP_2__SRP_3 &gSheet1 (   !"#$%')*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^_`acefghijklmnopqrstuvwxyz{|}~\8/#<ǥS@OOFR3}tGƄgw<xR3}tGƄgw<ǥS@OOMEPSLSS6" <<<N0{00020819-0000-0000-C000-000000000046} &`|k h@% %" %x(h@@x@pg$*\Rffff*066707f6ef$*\Rffff*076707f6ef4 "   ((  0P Dim i As IntegerA(!For i = 1 To UBound(Υϸ)*UserForm1.ListBox1.AddItem Υϸ(i)NextXoh`OAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Open() 'Dim i As Integer Call Àϸȡ 'For= 1 To UBound()   'Userm1.ListBox1.Ad dItem2(i!HNext5EndY rU 0i A +4 a ` <   $8 4XrU @$`na ݺ#<bOFp Գcb F:eVI8#NMx:eVI8#NMbOFp ԳcbME4 [LSS806"L" "L<8<<<N0{00020820-0000-0000-C000-000000000046} ,`H4o@`). ` %`2t`4hp(`6nb%%*@%0H` .x %8<@BF@h @X @xH @8 @4 P@d`g*\R1*#253$*\Rffff*096707f6f0*\R1*#385*\R1*#125$*\Rffff*086707f6ef$*\Rffff*076707f6ef$*\Rffff*0:6707f6f0*\R0*#14*\R0*#164"   $(B.8 @"   $  0@HP`p]h] 8!:'2= 1 A1 <%0'4 (Υе±sheet2ҳA1Ԫϸ(i) 4'6 .!> 6 2Υ9̬ȡΥ 2A@j"UserForm1.Repaint BB@DMsgBox Err.Numberk F!H FB@J|koAAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomlizD2P Sub Works_SelectionChange(ByVal Target As R ) On Error ResuNext Dim Str_Tmping col'$! , NumIntegepr = ADveCel "LL<<< %"ZN  (` k `Rz`Tt`Vrj" @`Hk8%i2 @\H`VzN0@ʀP @PL 88@l @\ lWWW@X @T `@P @P@ @h0 T@ Actu@ @ lizeWW@  eryClo@ pX8|H^P hU @h @X @H Pg$*\Rffff*076707f6ef$*\Rffff*066707f6ef*\R1*#12e*\R1*#119*\R0*#f3 " " HPX`*h3&   3  8 P &Dh  :   "    8 "@.h (    ] ] P]Dim Υϸ() As String.]]'V'R Υб "%XA V70!:'T T$ZG|j Ta R 'R V 'VA V70!:'TMsgBox Υ RN V RA V 70!: V+N4UserForm1.ListBox1.AddItem .Range("A" & i + 1).Value Vqo]|XDim ѡΥ Dim Str_Tmp]pStr_Tmp = "6 Υ6|9 Υ9" 2 \$^'P!For i = 0 To UBound(ѡΥ)MsgBox ѡΥ(i)Next io 'Attribute VB_Name = "ģ1" Public Υϸ() As SЄngѡHD Sub p() Dim.NInteger  ' n `洢 i Pi2 p= 0 With ThisWorkbook.Sheets("б"X8= .Range("A" & i).Value If Trim*()"6en Exit o Until?h"Y + 1 mi C!QLoop'MsgBox cA ReYa1 To )I] For A#  'B>iC'A1Q AA'Userm@1.List@+1.AddItem`  Next i End ?AzC]$3ȡ(Str_T mpG5}Const ָp|d§KC/KEu66|:99ISphlit#,@#'X0bUBoun|d(LDu(iDBrU~|  @ A 9 a y ytprpz*X:\%l$ l dQXTl3kr#P*F@%T0A `1t/P6@0 #tM\@@ @: ]35@ lt = kzpz krpr3kr#P*F@%T0A `1t/P6@0 kzrkzc fDkr#P*F@%T0A `#kr;2P6@0 rd cT tt,8Tt(PlX@0 l4.:h NXX H H5X44$8 XHf__SRP_5 Sheet3~__SRP_6__SRP_7BrU $`(`0n<jxo+#<b&6] BC FTQUSKyxTQUSKyb&6] BCME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %< %`h8@``0g$*\Rffff*086707f6ef4xAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU ( y 4 A `rU @nrU  y yiA )))Qy 4UserForm1~^__SRP_a6 __SRP_bE_VBA_PROJECT `p x  "  "     "  ( "08 @ 4X px "      " 3 E0 P` h p  p]@]X]p'N B!d!f'b V b V d%hlu N,u V d%j'N70d` N| V d%j'Nk8 MsgBox ListBox1.List(i)k VMsgBox ΥϸMs N 8(: F!H$ѡûжӦҵֹ¼ΥϢ nʾA@l BA@rN|h F!He FB@JRange(k@ListBox1.ClearV Call ѡȡ BA@rUserForm1.HideuFor i = 0 To Ŀ - 1`ListBox1.Selected(i) = FalseNext iApCall ѡĿעo`ApoH] V B!d!f  V d,h Vo  BA@ro`] V N V$N B!dB@zA|ox] V B!d!f V d,h Vo ]P]h V P ~ B!d!f ~ d%j V$PU  ~ d,hyk ~0U Voh`Attribute VB_Name = "UserForm1" " Bas0{9077941E-FC6B-40CE-8AFC-114433661C3C}{5AB204CF-DFEDJ31-95EC-CC99E49B7184} dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustoHmizD P! Sub CommandButton1_Cl ick()On Error ResuNext Dim i As Integer Ŀ ΥʀϸSng# ? &= |.ListBox1Coun# @#= 0 To - 1If Selected(i)_ Then  % (E & "|8" &/nd If'Msg@KXEH v iCGE "CActCell.Valu \.Number@Z1004P("ѡûжӦҵֹ¼ Ϣ", vbInfation, "ʾF!*UnloadGFC!Exit]#09 <>G AClea[!$h&'='Call рȡ''[Hid` '^Zg ZA 'i:#ѡĿעy AC`t2߇l h63'  }2} "_4K/9_Initializea'K.1UBd(k@`p"AddItem I5?j" @&Y_4a1b_4We4( 1 Q_UjgVjQ+%S0W j@ regh QEF((jfy e[+sHrM '!q`j3S `@X @ wx tl^PM!ݖpNf9wk@D3f<Z1@̙qէ`GK " LLLL 3@ '         "8 ` 8a`  <I1q @`I  D`   H` bW   W    HKCt%lp$ p llpxpzkxch*VzMX@p! p @kVp lt02$'4zMX@p! p 8$`1tp64$Dlt*F$'4zMX@p! p 8$`1tp64$ zdhG"ltFX%p $ ( p,p$l pp  llp3'':DN$$@:XN44 64$Vp$ p$l pp  llp ppHpVp$ p(8t p4$0   0   0   `zvcvU4'stdole h%^*\G      !"#$%&'()*+,-./0123456789:;<=>?ABCDEGHIJLMNOQSTUVXZ[\]^_`abcfghjklmoButton1_Click`Ŀ`ListBox1` ListCount6`SelectedY`List*`MsgBoxR` vbInformationn`ѡȡf`CommandButton2_Click`CommandButton3_ClickFA`CommandButton4_ClickVy`UserForm_Initialize5c`AddItem `ѡĿע`ja`Workbookk`_Defaultj` _B_var_TrimmT` Worksheet`SelectionChangen`UserFormN`CommandButton1|`CommandButton2}`CommandButton3~`CommandButton4`Click` InitializeN`C  #M +  =Z}#2.5#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E0diru__SRP_0  __SRP_1@CUserForm1pΝRPbR{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE14\MSO.DLL#P 15 .0 Ob LibraryNMSFo@rms>SFrmHs3D452EE1-E08F1A-8-02608C4D0BB41wTFM20L'B @a&/;"1lrAr00}#:0r# 50 ADFBCD380-5F81-4DC3-A79C-4F865A423B1E6Users\ADMINI~1\AppData\Local\Temp\VBEc7.exdd<@".E .`M 2RefEdithRfEi@3155764DA4-BB0F-4738342-D85F1D800A CB}#1BJE:\360ȫ€\KingA \WPS Î\1$1.@ .1@9\oB6\refeA.dll#@ a Control7770Bs3DC6 E-49E228-A5E3-247C9A2C944052Cy3topnetU3)B3@EF1bbThisWorkbooPkGT iE@gWhkboPk2UbH1b5","" +bSheet1G SeEt1 !2! g ݺ !ģ !jWW 2"/ / !U33-3)3-3  o++]HAuUq9er!2&/d/#(b3o+K*rU~~~~~~~~~~~~~~~~~~~~~5 MoeNJzUGV a Q ) a Q  a  q )a Q Aa *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{DFBCD380-5F81-4DC3-A79C-4F865A423B1E}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{55764DA4-BB0F-4781-8342-D85F1D800ACB}#1.0#0#E:\360[hQOmȉhV N}\Kingsoft\WPS Office\11.1.0.14309\office6\refedit.dll#Ref Edit Control*\G{3DC600AE-49EF-4228-A5E3-247C9A2C9405}#1.2#0#C:\Users\topnet\AppData\Local\Temp\VBE\RefEdit.exd#Ref Edit ControlEF gThisWorkbook066707f6ef#ThisWorkbook05 Sheet1096707f6f0+ Sheet1ݺH0`g !jWW1076707f6efL!jWW10 Sheet3086707f6ef= Sheet3o+HUserForm10:6707f6f0CUserForm10`dx0`HmDeD4̔Mt .H*G(urgj@NWE+JIsAx^"Oqo҉?KH/ Excel+` VBA`Win16~`Win32`Win64x`Mac`VBA6#`VBA7#` VBAProject`stdole``Officeu`MSFormsC` RefEdit` ThisWorkbook|` _Evaluate` Workbook_Open`(Υϸȡ|` Sheet1`Worksheet_SelectionChange4`TargetF`Range `Str_Tmp `colVal;m`colNumXE` ActiveCell`ValueK` Sheet3`Columni` (Υȡ` UserForm1)`Show`Erro`Number-`Clear` ģ1c` (ΥϸKe` (ѡΥwt` Υ`Υʱ洢?`i``Sheets `Trim@`ָ`Split)`Commanda a Ay9Y1!Q1 VBAProject ThisWorkbookSheet1ģ1Sheet3 UserForm1F /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA y  `F:C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXEExcel qp0FC:\Windows\SysWOW64\stdole2.tlbstdole  L-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE14\MSO.DLLOffice y9.E .`M C:\windows\SysWOW64\FM20.DLLMSForms Ӽ߁_MOZB;4C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd MvUGB_ !-6S` IE:\360ȫ\Kingsoft\WPS Office\11.1.0.14309\office6\refedit.dllRefEdit   EFFǥS@OOFR3}tGƄgw<DFWorkbook Workbook_Open @Υϸȡ Υȡ DZO ݏĉNyRhF A Range Value VBE7.DLL   Fb&6] BC FTQUSKyDF WorksheetbOFp Գcb:eVI8#NMWorksheet_SelectionChangeFFFFA A1 ݏĉNyF$1a2AqrM!ݖpNf9wk@D3f<Z1@̙qէ`GK