ࡱ> 25  !"#$%&'()*+,-./01?46F789:;<=>@XABCDEGRHIJKLMNOPQSVTUW\YZ[]wi_`abcdefghjklxnopqrstuvzy{}|~Root Entry F0oW3YWorkbook_ETExtData _VBA_PROJECT_CUR"PH~O`&I~O  \p Administrator Ba= ThisWorkbook=p:/8X@"1[SO1[SO1[SO1[SO1[SO1 [SO1I{~1I{~1>I{~1I{~1 I{~1I{~16I{~1 I{~1 h6I{~ Light1I{~1,6I{~16I{~1?I{~14I{~1 I{~1 I{~14I{~1I{~1<I{~1Arial+""#,##0;""\-#,##05""#,##0;[Red]""\-#,##07""#,##0.00;""\-#,##0.00A""#,##0.00;[Red]""\-#,##0.00i*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ W))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ y,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ g+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ /\$#,##0_);\(\$#,##0\)9\$#,##0_);[Red]\(\$#,##0\);\$#,##0.00_);\(\$#,##0.00\)E \$#,##0.00_);[Red]\(\$#,##0.00\)u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-S'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-c/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-                    /     -    @ @    @ @    /      P P 1    +    ff7 * 5 ` a> * +  >  , / / 7 3  + 1 , , 9 + 9   1 1 1,@ @ 1$@ @  1 1 ||IHt}-} }-} 8^ĉ!20% - :_eW[r 32&20% - :_eW[r 3 eQeQ!40% - :_eW[r 32'40% - :_eW[r 3]]!60% - :_eW[r 32(60% - :_eW[r 3  lʑ lʑ!60% - :_eW[r 22$60% - :_eW[r 2 h 4h 4 fJTe,g fJTe,g hh!ʑ'`e,g 5ʑ'`e,g "h 1h 1 #h 2h 2!$60% - :_eW[r 12 60% - :_eW[r 1 %h 3h 3!&60% - :_eW[r 42,60% - :_eW[r 4 'QQ ({{)hgUSCQ40% - :_eW[r 62340% - :_eW[r 6!?60% - :_eW[r 62460% - :_eW[r 6 @8^ĉ 2 A8^ĉ 3cc PK N@theme/PK N@ theme/theme/PKN@ky}theme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PKN@Nl&+theme/theme/theme1.xmlYKo7X콑d["Gje] $eG 9 H\ P CK]$H!w"%*~4샖7 1-r{8 XHҨ>{B4Dϰn%c`SZ~,dT #qMp F'H%J!GG7r^JI}/E 9{Oz%] R)@@y_EƆBhS"!\Ȏ=-?~iJ mFT5zxCѰZ֪¿P6n(`gc]ͱ(it6+y,e+^ Yk+nscנ __7;jA1%x]7{NxV56r bu#uk-A@)$lG(F 9IKmadφ2"z"d"[g/=?~Ǐ~1[v{(L7?~w~͓oxa_ū|{x Z>{˧_GC>  |f LPg惇l+c xc #.}k?SIlj<`2Lu`F|jn#tFUtJ\.1hޢ(();fw+$LogJdh-I.3A(.Yw𡍄QVD%L>d*aʼnp0_ACe?FrI.1av 'ilb?cXȻŤ ~'D]CPw }4)-3Z^Z!U턤'*xbT˳'ΧfoIAa7}ҼYxA^h0ȳfmNnGҾQ/[@ {0I _Փ ,\đ8c4{WN"7aΌz[49`avT2b\+ 3t8G5HwYHlJ>]C$.Er?/ VTFlZ~ &`&Dqꔕz^]]̋dZ+ 7tSq];=5l c$tft1 q:ihEI-z*y. ocqZݲ6T zG-Y%I&X;Bmi=X yGY&\qp-:$DbQ|5 4U6@YrMw.2p Ͳ#*%(|λ`eɦP~yC:,Z/x*Y6C$ ![ƔˮRPlIbyR^WE|ΐP#%y#FIi52kF*sh.z*kŮ0oK<_7XS t/KnsuKK@‹9)Am̢ʰ| @4MPRފ `jah4WL0>GN@hPK N@_rels/PKN@֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK N@theme/theme/_rels/PKN@ ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PKN@ $[Content_Types].xmlN0EH-J@%ǎǢ|ș$زULTB l,x\vTU^hd}㨫)*1P'^ח0)T9l#$> `?Cs]7zb$xu-lV{9>DVNj,5(Bȥszҕhhs0U~,}2ToF0,į*=댬o[gv; 9'33y ; oOPKN@ $ T [Content_Types].xmlPK N@)_rels/PKN@֧6  M_rels/.relsPK N@theme/PK N@ $theme/theme/PK N@0theme/theme/_rels/PKN@ ѐ' `theme/theme/_rels/themeManager.xml.relsPKN@Nl&+ theme/theme/theme1.xmlPKN@ky} Ntheme/theme/themeManager.xmlPK ?} XTableStyleMedium2PivotStyleLight16`{.hgONRh-4ݏĉNyRhVV4#!f ON TykXQcknxvON 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 yOO(uNxlQS0W@WT|5u݋v{/hgUSMOhgNݏĉNyhg~ghgeYta[_yePgesOyb gPlQS91341822MA2U39AA4N341822000188413[_w[W^^_^G~Nm_S:S:S/T*18S 15158113268 [W^^_^eSTe8n@\=NNS, zvtpS7RONhg Ss_T~Yt 2022/08/02Ssm2X[(W #NvQPgte9e0RMO ^_~hePgeyb gPlQS91341822MA2MX2YD92341822000126825[_w^_S~Nm_S:S:S~NG 13601959911 _W,4TVCg )    %2  dMbP?_*+%&?'?(?)?" dXX??&cU} `} } } } } } }  q  @ @    F G G G G G G G G G  G  G C C C C C C C H H  H  H C C C C C C C H H H H@P>@<d   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 ggDSheet1   <K%s9{=AEIMQUY]M_  dMbP?_*+%&?'?(?)?" dXX??&cU} BK     ~ B @ CDDDEEEE E E E E EEEEEEEEEEEEEEEEEEEDl  !"#$%&'()*+,-./0123456789:;<=>? E!E"E#E$E%E&E'E(E)E*E+E,E-E.E/E0E1E2E3E4E5E6E7E8E9E:E;E<E=E>E?EDl @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@EAEBECEDEEEFEGEHEIEJEKELEMENEOEPEQERESETEUEVEWEXEYEZE[E\E]E^E_EDl `abcdefghijklmnopqrstuvwxyz{|}~`EaEbEcEdEeEfEgEhEiEjEkElEmEnEoEpEqErEsEtEuEvEwExEyEzE{E|E}E~EEDl EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDl EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDl EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDl EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDl      EEEEEEEEE E E E E EEEEEEEEEEEEEEEEEEEDl  !"#$%&'()*+,-./0123456789:;<=>? E!E"E#E$E%E&E'E(E)E*E+E,E-E.E/E0E1E2E3E4E5E6E7E8E9E:E;E<E=E>E?EDl @ABCDEFGHIJ@EAEBECEDEEEFEGEHEIEJEJ >@<d ggDSheet3   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ N ͆-I A.  A. ,0* pHd VBAProject4@j = r Xc J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \MicrVBA `&I~O`&I~Odir 0!jWW1Sheet1X osoft Shared\OFFICE16\MSO.DLL#P 16 .0 Ob LibraryNMSFo@rms>SFrmHs3D452EE1-E08F1A-8-02608C4 D0BB4TFMl20L'B @a&/;"1lrAr00}#0r# 50 A6D3B5934-4097-44E7-BC92-292E4775D6396Users\ADMINI~1\AppData\Local\Tem`p\VBEc7.xexdd<@".E .`M 2RefEditEhRfEi1@3DJ248517FP1.2CQ\Roo t\@REFEXDIT8@ a Control6?67a680 u7830E391-687E-4DR9A9E-E89616Fl1C}#666` @EAFa4"ž“ThisWorkbookGTijWkkbok2bHj1¥5`",Q""+§Sheet1G Se@It17 2 g d ݺ  !jWvW 2"/ `- !33-J3)3-3 Ҳ/o++H+xU9erF!2//#(|  xMEP> "LL<<<%2D"ZN 0 (` k `Rz`Tt`Vr @` 8%i2@\L`VN0@ʀP @PL 88@l @\ @X @T `@P @P@ @h0 @ @ @ @  @ PXc$*\Rffff*0B63590b97$*\Rffff*0A63590b97*\R1*#13b*\R1*#126*\R0*#f3 " " HPX`*h3&   3  8 P &Dh  :   "     8 "@h (    ] ] P]Dim Υϸ() As String%0]]'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(iDBa ݺ#<>;C^ ѕ< FV Wa,jD'_IxV Wa,jD'_I漩>;C^ ѕ<ME4 [LSS806"L" "L<8<<<N0{00020820-0000-0000-C000-000000000046} ,`H4o@`). `Cl %`2tޗ``4hp`6n%%*@%0H` .x %8<@BF@h @X @xH @8 @4 P@d`Xc*\R1*#289$*\Rffff*0D63590bad*\R1*#3e4*\R1*#132$*\Rffff*0C63590b97$*\Rffff*0B63590b97$*\Rffff*0E63590bad*\R0*#14*\R0*#164"   $(B.8 @"   $  0@HP`p]h]- 8!:'250A1 <%0'4 (Υе±sheet2ҳA1Ԫޗ` 4'6 .!> 6 2Υ9̬ȡΥ 2A@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;C^ ѕ<V Wa,jD'_IWorksheet_SelectionChangeFFFF A1 ݏĉNy,|Fe)f9H?@a1K' tCL :ӕ"*D!+8W^EkIa{lFWJOCommandButton4!-6S` aȏ[qJ eUserFormdC@Vv( F3Dynamic q"ҋB `ListBox1CommandButton2CommandButton1CommandButton3CommandButton1_ClickCommandButton2_ClickCommandButton3_ClickCommandButton4_ClickUserForm_InitializeѡȡѡĿע TfĤIx8<   `rU~~~~~~s     q Str_Tmp q  q(Target Y8 )H XVrU 0) Q y  /4 a `  <   $ 4XrU @$`@nrU~|  __SRP_3g__SRP_4__SRP_5 __SRP_6 @  1 I i tprpz*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 cTtt,Tt(PlX@0 0   frU $`(`0nrU 8Y 1 4  `rU @nrU h y!IH 1 i Q A1 4  __SRP_7B__SRP_8__SRP_9x__SRP_a.` , l xK$h$ (haX`1th5X.h'8%:H%$ haX`1ph5X lppn"xaX"knlt=5X t  $ $4 hh  l4h hhHhH0ptxhX4XrU @,      !"#$%&'()*+,-./0123456789:<=>?@ABCDEHJKLMOPQRTVWXY[\]^`abcde``nrU  1 4Y` 8)Q`  <19 @YY`I  DY`   HY` bW   W    0   0   0   0   0 ` ( 0   0   D@H48(rU T$ `$A `$__SRP_bEUserForm1^ThisWorkbook_VBA_PROJECTm% `$ `$ `$A `$ `n\8/#<;9!M4r{%-[FuM}xEM'ZxuM}xEM'Z;9!M4r{%-[MEP)f9H?@a1K' tCL :ӕ"*D!+8W^EkIax+8W^EkIa)f9H?@aMEPSPSSS6"<<<0{02EF4B31-0C27-4374-B84C-0D8DC13AB4C5}{2295D3E8-0F01-442A-97E6-9FCCC2D52189}x ``..`V00`bwi`Nx r` 2 t `  6`V v`` ? x`  C `V p`  O`V |`  X`V`~% % `8%Bh%@T Xc$*\Rffff*0E63590bad48<@DHe "   (0@X p       0>@          "8 `p x  "  "     "  ( " 08 @ Xpx "      "   0P` h p  p]@]X]p'N B!d!f'b V b V d%hwi Nޗ` V d%j'Nd` N| V d%j'Nk8 MsgBox ListBox1.List(i)k VMsgBox Υϸ N 8(: F!H$ѡûжӦҵֹ¼ΥϢ nʾA@l BA@r|h F!He FB@Jk@ListBox1.Clear Call ѡȡ BA@rUserForm1.HideFor i = 0 To Ŀ - 1ListBox1.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$P ~ d,hyk ~ Voh`Attribute VB_Name = "UserForm1" " Bas0{02EF4B31-0C27-4374-B84C-0D8DC13AB4C5}{2295D3E8-0F01-442A-97E6-9FCCC2D52189} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCus tomizD P! Sub CommandButton1_Click()On Error ResuNext Dim i As Inte ger Ŀ ΥJSng#  &= |.ListBox1Coun# @#= 0 To - 1#If Selected(i)_ Then  % (>E & "|" &/ nd If'Mlsg@KXEH v iCE "CActCell.Va|lu \.@Number@Z1004P("ѡûӦҵֹ¼ Ϣ", vbInfation, "ʾF!*UnloadGFC!Exit]#0 <>G AClea[!$h&'='Call ѡȡ''[Hid` '^Zg ZA 'i:#ѡĿע AC`t}2l h63'  }s2} "_4K/9_Initializea/'.1UBd(k@`p"AddItem I5?j" @&Y_4a1b_4We4( 1 Q_UjgVjQ_+%S0W j@ regh QEF((jfy e[+sHrM '!q`j3SPSLSS6" <<<N0{00020819-0000-0000-C000-000000000046} &`|k@ h@% %" %x(h@@x@D@pXc$*\Rffff*0A63590b97$*\Rffff*0B63590b974 "   ((  0P Dim i As Integer8A(!For i = 1 To UBound(Υϸ)*UserForm1.ListBox1.AddItem Υϸ(i)Nextoh`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 ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet3/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=ģ1 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5052FCFA00FA0a ,*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications&*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files (x86)\Microsoft Office\Root\Office16\EXCEL.EXE#Microsoft Excel 16.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.8#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{6D3B5934-4097-44E7-BC92-292E4775D639}#2.0#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{00024517-0000-0000-C000-000000000046}#1.2#0#C:\Program Files (x86)\Microsoft Office\Root\Office16\REFEDIT.DLL#Ref Edit Control*\G{7830E391-687E-4D8F-9A9E-E89616F01B1C}#1.2#0#C:\Users\ADMINI~1\AppData\Local\Temp\VBE\RefEdit.exd#Ref Edit ControlEF XcThisWorkbook0A63590b97#ThisWorkbook05 Sheet10D63590bad+ Sheet1ݺH0`g !jWW10B63590b97L!jWW10 Sheet30C63590b97= Sheet3o+HUserForm10E63590badCUserForm1`x0H`ּH1u]C}8?PԙE7 %/9| 5~tN+MɩcB7@ 1H=W[gx?yI±#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)`CommandButton1_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 +  =ZPROJECT;PROJECTlkFPROJECTwmGUserForm1`&I~O`&I~O0FF05FF05" DPB="A0A20C53295329ACD754297E9C3D6A05377A40E682977B7B3C6B99C40EB2E34BD6F6C648" GC="F0F25C9F5D9F5D9F" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 26, 26, 1136, 537, C ģ1=0, 0, 0, 0, C "EFThisWorkbookThisWorkbookSheet1Sheet1Sheet3Sheet3UserForm1UserForm1ģ1!jWW1$  }E* 9ΉR KQ_, 0CommandButton14, 4CommandButton2, 4CommandButton3,0CommandButton44$ HListBox1"(nx[ {u"[SO(nd b {u"[SO(hQ b {fI=oNCompObjSaVBFrameU"u"[SO(Sm {u"[SO b#C*.5"[SO  Microsoft Forms 2.0 Embedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "Υ" ClientHeight = 8280 ClientLeft = 45 ClientTop = 330 ClientWidth = 6135 StartUpPosition = 1 ' TypeInfoVer = 23 End Oh+'0HPX| Administratornice11@c(=@-}OMicrosoft Excel՜.+,D՜.+,SummaryInformation(!Z DocumentSummaryInformation8_d8@H T\ 0t|ICVKSOProductBuildVer!D57CBC3D5714464BB707BFBBD4CA02672052-11.1.0.11875