ࡱ> 36  !"#$%&'()*+,-./012F57E89:;<=>?@ABCDGRcHIJKLMNOPQSWTUVdqYZ[\]^_`abefgrijklmnoptsuwvxyz{Root Entry F4RWorkbook`ETExtData_VBA_PROJECT_CUR" 6^  \p Administrator Ba= ThisWorkbook=p.8X@"1[SO1[SO1[SO1[SO1[SO1 [SO1I{~1 I{~1I{~1 I{~1 h6I{~ Light1I{~1,6I{~16I{~16I{~1>I{~1?I{~14I{~1 I{~14I{~1I{~1I{~1<I{~1 I{~1I{~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\)c/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-u8_-""* #,##0.00_-;\-""* #,##0.00_-;_-""* "-"??_-;_-@_-S'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-e0_-""* #,##0_-;\-""* #,##0_-;_-""* "-"_-;_-@_-                      @ @  @ @           P P     /    ff7 ` a> * - + >  , 1 5 / / / 7    3  + + 1  , , 9 * + 9   1 1 1,@ @ 1$@ @  1 1 ||If>}-} }-} 8^ĉ  lʑ lʑ fJTe,g fJTe,g hhʑ'`e,g 5ʑ'`e,g h 1h 1 h 2h 2 h 3h 3 h 4h 4 eQeQ 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`.hgv{[aRhT4ݏĉNyRhVV5#f 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 yOO(uNxlQS0W@WT|5u݋v{/hgUSMOhgNݏĉNyhg~ghgeYta[Oq\^fؚwƋNCgNtNR@bnfTO mWSR@b91340400MA8PYU0D8E340400000441627[_wmWS^0u[^:Smq\WS3IQVEWN:S7b^706[ 13615547126mWS^0u[^:SW^{tL?egbl@\1g9\,Oe*gSs 2024/09/18e[_wSS1fFUNЏ%{t gPlQS91340400MA2MWAAKXR340400000204301mWS^0u[^:SVn-N_3S|i8020803 18755455277fkIlQ,s_T [W^7bY^JTNSh Lr0qjz05uP[>f:yLrI{nv8hQvhg )    %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>@<dPd   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%9=AEIMQUY]t_  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 >@<dggDSheet3   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_`abcdefghijklmnopqrstuvwxyz|}~ N+I A.  A. #0* pHd VBAProject4@j = r Xc 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 SVBA6^dir '!jWW13Sheet1Yyhared\OFFICE15\MSO.0DLL#M 1@5.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4SsaSFM20L'B _&/;"1jIqAHq00}t#0Bq# 504 A5807De-AE8B-4138-900E-CB392474D7E76Users\topnet\AppData\Local\Temp0\VBEb7.e "LL<0<8<p%`(`T  . `x8k `X`Z`\ F` x%i8@bL`\T8@ʀV @X Rx0`@@H @ @ @ `@@ @ @ @h @P @H 0@@ X@8 X H((Xc$*\Rffff*0766a0d410$*\Rffff*0666a0d410*\R1*#136*\R1*#121*\R0*#f3 " " HPX`HhXF X   (8 P &vh  :   "    8 "@h (    ] ] X]Dim Υϸ() As String?]]'\'X Υб (%^A \76!@'Z Z$`G|j Za X 'X \ '\A \76!@'ZMsgBox Υ XT \ XA \ 76!@ \+T4UserForm1.ListBox1.AddItem .Range("A" & i + 1).Value \qo ]|Dim ѡΥ Dim Str_Tmp]Str_Tmp = "6 Υ6|9 Υ9" 8 b$d'V!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(iDB.ݺ#xME(SLSS<6N0{00020820-0000-0000-C000-000000000046} 2X)4x%`8`:`< %Xc"  (B8@    0@HP`p]] >!@'8A1 B%6': (Υе±sheet2ҳA1Ԫ? :'< 4!D < 8Υ9̬ȡΥ 8AFUserForm1.Repaint HB@JMsgBox Err.Numberk L!N LB@P|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@P Kg{g UgqgqgXagPqh`hg g(/gq@gvqagPqh`g8+T8hg@gg{D >8hHi  aS  ZrU@@@(8`@a`PbrU@@@8P!Q`DrU@@@xb8e#__SRP_7jUserForm1X^ThisWorkbook_VBA_PROJECThL]xME(SPSSS0{711CB7BF-2870-4C79-852C-C296273B87F5}{8F833667-4FE4-48B5-97E9-CB8AEBE58113} f..`\`h`T x zh `\ | ~0 `\ v `\  `\`` X(%`%0h0(` Xce "   (0@X p       0>@          "8 `p x  " "    " ( "08 @ Xpx "     "  0P` h p  p]X]p]'T H!j!l'h \ h \ j%n T? \ j%p'Td` T| \ j%p'Tk8 MsgBox ListBox1.List(i)k \MsgBox Υϸ T >(@ L!N$ѡûжӦҵֹ¼ΥϢ tʾA@r HA@r|h L!Ne LB@Pk@ListBox1.Clear Call ѡȡ HA@rUserForm1.HideFor i = 0 To Ŀ - 1ListBox1.Selected(i) = FalseNext iAvCall ѡĿעo`AvoH]P \ H!j!l  \ j,n \oh HA@ro] \ T \$T H!jB@Aox0] \ H!j!l \ j,n \o ]] \ V  H!j!l  j%p \$V  j,nyk  \oh`Attribute VB_Name = "UserForm1" " Bas0{711CB7BF-2870-4C79-852C-C296273B87F5}{8F833667-4FE4-48B5-97E9-CB8AEBE58113} 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`j3S      #%&'(*+,-/12346789:<=>@ABCEFGHIJpE[Q#ME*pwF8A*@3i#U"x8A*@3i#U"E[Q#ME*pwME(PSLSS6" <0<8<N0{00020819-0000-0000-C000-000000000046} ,`kp  Xx%%(%.8XXxxpXc$*\Rffff*0666a0d410$*\Rffff*0766a0d410` "   ((  0P Dim i As IntegerAA.!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/&H000a *\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.8#0#C:\Program Files\Microsoft Office\Office15\EXCEL.EXE#Microsoft Excel 15.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.7#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE15\MSO.DLL#Microsoft Office 15.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{5807D5BF-AE8B-4138-900E-CB392474D7E7}#2.0#0#C:\Users\topnet\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\Microsoft Office\Office15\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 ControlEFXcThisWorkbook0666a0d410)ThisWorkbook0k Sheet10266a0d4101 Sheet1ݺ4!jWW10766a0d410R!jWW10 Sheet30866a0d410C Sheet3o+HUserForm10566a0d410IUserForm1`cxH`0JPyI P_ZA-9-ACNd<{|)GG,KH %TjAL꼜LюJ7aF@3 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`CI "$&)S 1 ZPROJECTPROJECTlk!PROJECTwm"UserForm1^^00000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=ģ1 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D7D57BE1BB211F251F251A2A1A2A" DPB="37359B819B81E69EE69E1962E79ECB01E00DE6DA99AFF971806A642D426A1D7FCB725447EF5741" GC="97953B21FBE15AE25AE25A" [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, 1614, 701, C ģ1=0, 0, 0, 0, C "EFThisWorkbookThisWorkbookSheet1Sheet1Sheet3Sheet3UserForm1UserForm1ģ1!jWW1$  }E* 9ΉR KQ_, 0CommandButton14, 4CommandButton2, 4CommandButton3,0Comf$=o)CompObj.aVBFrame0"mandButton44$ HListBox1"(nx[ {u"[SO(nd b {u"[SO(hQ b {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+'0HSummaryInformation(!?DocumentSummaryInformation8DPX| AdministratorW~\~g@c(=@tXMicrosoft Excel ՜.+,D՜.+,d8@H T\ 0t|ICVKSOProductBuildVer$31A55D419C714F85BE99924F55189204_132052-12.1.0.18240