ࡱ>    9C# !"$%&'(3*+,-./01245678:;<=>?@ABDERoot Entry F(=@3$"4WorkbookS _VBA_PROJECT_CUR" p2͎"^͎"VBA`':͎" Q͎"  !"#$%&'()*+,-/0123456789:;<=?@ABCDEFGHIJKLMNPQRSTUVWXYZ[\]^_`abcdefghijklnopqrstuvwxyz{|}~ ɀ\pmasakuni Ba= ThisWorkbook=xK\:G"<X@"1 -3 000001 -3 000001 -3 000001 -3 000001 x-3 00000"\"#,##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\)                 & (   `? Sheet1QQRv Ahp0 ( Н03 p0ip0T!!8|Н0 V0Pn00$>v*zm000n0ut 0jn[0.00]]3@v5$0 6@?@`2W0X_/v?H3t+v`2W0-v`2W0cv-v3v2v'3v\-v`6W0`2W0<;<0\&0`6W0 Ǭp0p0I0 ȠgYȠt 0$0 ɀ   dMbP?_*+%"Mb?Mb?3U>@5 Sheet1 xSheet1.ThisWorkbook >mSampleDataOmmSplit !ԫ#K (SLSS<N0{00020820-0000-0000-C000-000000000046}8($HME  xpAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |CreatablFalse PredeclaIdTru "ExposeTemplate`Deriv$eCustomizd Option 0licit xԡ #K (SLSS<N0{00020819-0000-0000-C000-000000000046}8(rsha$HME  xpAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |CreatablFalse ^PredeclaIdTru "@ExposeTemplateD0eriv$eCustomiz2 Option 0licit x}`4G+@i`` `"p5`$>50ME  8  B ( (0X`hp  X x  xx05/12/18 Randomizeljrsha"A-Z,a-z̃_ȕN‚ԂZ`ZxZZ  2\MSFo$&'$s A$* $ $ (' $&?.` $,' Eh " '" "'f107/11/9 Randomize͂薳悳Ȃ̂ō폜 RandomizeILESAttribute VB_Name = "mSampleData" Option Explicit '05/12/18 Randomiz elj07/11/9.͂薳悳Ȃ̂ ō폜NPubZ FuncjRndStr(N As Inte0ger) ing 'A-Z,a-z̃_ȕN‚Ԃ(Dim iIS SS A uC+For9= 1 To N[ Ag(o() * 26)SChr$(Asc("A") + AIf >= 0.5 T8hen/ LC ase(SEnpd If3r& S NexuX!S Edia^ *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\Program Files\Common Files\f~^u'8 P$N P$N'Z P$N T 8 Z 8 Z '8h  P R > T 8 V 8 V '8 $N $N'Z $N T 8 Z 8 Z '8h`XhP T'Lf@ ZPZh <$b ^$b'\sh ^ <'\sh <' '\   ^~'    $  `   ^ $ '   ` 'h0  '\fAttribute VB_Name = "mSplit" Option Ex<cit '05/12/3@zỶ0ɕύXAvV[Ŵ̃X Public 0Funcl97(e As Sng, Deli) Varian Dim myArray^(8C2IntegerSji1&o. j In8(i,V)If0 TheFn Lenw) + . End IfRexPreservec}1o C=CB)RMid$4, Tj - i{-9j#%] C @C) Loop@ While:<= 4CCvD%: Ԅ.;&s _, alBmiterqC@" " Consecutive: Boolean FalsePTextQ@ualifiM""mpare%LongvbBinaryCoC2BaseNumbC 0 ?X1AcMsSet= New With#uO.'"=*'=  '=  " "h"= 'e.(GDYN##othing C }SJoin(List.DQ4,"L<, UE! oLb:%$F,1b, j, LLd' qa bLwQ3kd{ i) q4; V  r p ; W%Eb dG ~ u q s L3? ' 1[dQ"f0v[~a + =,1x `P3_c]Replace?gՆ=, Befocd , Af!qed}޴Sb3 SIsNullYuNT )ExitcS7”R{S et9DwHaFSu5 i >= 1 q@Left$(i1) &&I߂k$l;iPob9Untilr0S'S *  B  (08  @ P `  "p  $ ( .H(x    cMsSplit)*,_VBA_PROJECTmdirIPROJECTwmz)ŕԂ@\񋟂܂B'r r t'r r t6BaseNumbeŕAԂz̉̓YłB'r r t'r r tkTextQualifier(lFu"v)ň͂܂ꂽ͈͂́A̒Delimiter܂܂ĂÂ̕ƔF܂B'r r tLTextQualifierň͂܂ꂽɂ́ATextQualifier̂܂ܕtĕԂ܂B'r r t'r r tNAf~^PƂĈ́AConsecutiveDelimiter = True Ƃ܂B'r r t'r r xJl(i@ iBiD iF H`$+L??iN i>`P`R`T``V`X`8`Z+\ i<xi^0i`X` `  h~'XME  DB PX`hp x   "  ( 8 @ B46H    B  (08  @ P `  "p  $ ( .H(x       8H` px        8  H`p   B  (08 @HPX p 6    x>05/12/3@zỶ0ɕύXAvV[Ŵ̃XZZZZ'\x  0 2~'8 8 0 '8h8 6@4 0  8  $  6+4 8 2 ' 6 '6 8 0 4' f# D"  ZH.H H >9> @9@ B9B D9D F9F <7:':n .Hf,hZZ Z8ZPZhZZ N'P N'R >'Vf~^܂߂g[^ P$N'X  P R X V $N 'X\ߕKv̒̕m X,$ ^'T >, >(f~^J} "" ȂuKv'8̒̕u|Cg P$N P$N'Z P$N T 8 Z 8 Z '8h  P R 8 V '8 $N $N'Z $N T 8 Z 8 Z '8haxtXf~^̑啶EESpEpʂȂ́ACompare = vbTextCompare Ƃ܂B'r r t'r r tevpeB̏l'r r tDelimiter EEEEEEE ,'r r tBaseNumberEEEEEEE 1'r r tTextQualifier EEEEE " 'r r tConsecutiveDelimiterEE False'r r t(Compare EEEEEEEE vbBinaryCompare'r r t'r r tgp'r r tDim mySplit As cMsSplit'r r tDim A As Variant'r r tDim S As String'r r t'r r tSet mySplit = GetMsSplit'r r t2S = "ab," & Chr$(34) & "cd,ef" & Chr$(34) & ",ghi"'r r tA = mySplit.Split(S)'r r t'r r tDebug.Print A(1) 'ab'r r tDebug.Print A(2) '"cd,ef"'r r tDebug.Print A(3) 'ghi'r r'pj0 v'djp d'>jX x'fj@P f'@j( z$ 'hj h'Bjp |'jj j'Dj0 ~'lj l'FjZpZZZZ  Pointer & Length l lP'6'E'P'8 8 <_ < 8$ ' "(͂ݕ)Ȃ  h j 8'  < h j'84 " T 84"炻܂ŁA΍Ō܂ < '8h PF 'g P 8   'P4lj(["܂߂) 8 '8f~^ꌅ̎  d jb 6 '6 <  P$  l 6  + 8 '8 (A؂蕶PƂĈ f%|C^ j f~^̎Ɉʒut < 8$  d j_A{Mid$(Expression, j, 1)) = Dlmɕr[h} 8 '8(h  8'E'PZf~^񌅈ȏ̎(ŏɂ킴킴ꌅŔrĂ̂͏ẍ(̂‚))  d$  jb < 8 d$  d jG{Mid$(Expression, j, Len(Dlm)) = Dlmɕr[h} 6 '6 <  P$  l 6  + 8 d '8&A؂蕶P‚ƂĈ f%|C^ j f~^̎Ɉʒut < 8 d$  d j_G{Mid$(Expression, j, Len(Dlm)) = Dlmɕr[h} 8 d '8h 8'E'Pa"ł,ł P 'P 8 '8h`"ł,ła@ P 'P 8 '8h 6 '6 <  P$  l 6  +z̗]Jbg l l 6  @p$':sx l l 6  @ Hf@xG "c " (S<S<S<<N0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}`d`f `h`j`ln,!p0$i `r A>piv,!>i A@P0ix r,!@ i  ABň͂izer,!BpPNAi AD ti|,!D0 i Bt AFpOBi~ce,!F=,i 00,:0 WWEi<Pi  ``8=,` Bt`6=,``PBt8 X x $0 xME    L( x6" "0 8HP`hp BxXJ@P`0b@l((8.`.02<(hx,$$,(FX(,0,8hp " xB " B " B "  (B08@ " HPXB`hp B x$    (  @ `  x  0  4       :  X h     (   .   , $P Hx       `  X  &x N  ( ( ,8  h ,x & N  08@ X `x      (  (@ `  hx & xex. in:ab,"cd,ef",ghi@F out:Ret(1)="ab", Ret(2)=Chr$(34) & "cd,ef" & chr$(34), Ret(3)="ghi"Z@f~^0Z@(Af~^PƂĈۂZ@0͂ݕZ@Hr[hZ@`߂z̓Yl8 0x,'d'f"$ ('h D'j'llZPExpressionDelimiterŕVariant(`F8Attribute VB_Name = "cMsSplit"  Bas|0{FCFB3D2A-A0FA-1068-A738-08002B3371B5} |Cre atablFalse PredeclaId#ExposeTemplate Deriv%Cu@stomiz Option 1licit 'ex. in:ab,"cd,ef",ghi out:Ret(1)=" ab", 2)=Chr$(34) &c 3# PUY Dlm As Sng/'f~^CnsDlBooleanAPƀ Ĉۂ#$Tq6 ' 0͂Amp)A Lo&  r[h BnN 'zY lAX?Sub Class_Initializep() 7F,K@= ć3,= ^ C-= vbBinarypComp(= 1 End !ub} Property Get Help()2SeDim4 H HressDelimiterVariant(`F XAD)Ԃ@\񋂟l܂B;HvbLf I"Numb@́Ax]\C_ŪTextQu 2fier(lFu0""vE܂`ꂽ ̒G ܂AĂĂ AƔFxu!JfEdɂKܕt Y *j!Consecut@fATrue "p9;#ax̑ESpEpEȂs\vbA!^ Y=`&`eLfevpeB=pQAE) euWU- 14 :  "" T1'?' #"*Gg0p myA&A{ SÕ3S;N=O "S0&"o,&FW; $r"Ip2s""[&A.(S)ODebug.0dnt A{x 'x 2:)"U O/(3C{Ab Hdc!eqLeL3(^r7 oPj /k t 4_Oer  5z wx#oerPwq*F(Left$, 1ϰ!G t  Tqo o L(_eQ%!M t $%Rmp '( " ! Bn FuncSGכ #TDWXi 'j/D!cwDQ9, CP%, LJPoin LLengt saRe To Bn0CP1:P= jOrror GoRed`imTraGD o Whij <= @(WBD@Mid$,| j213'8 "(@r)ȂIf1ѱ(@(D, Tq mp)0 The15ipja In(i +x 1,d͎@ " 0T;0a 'ЧЧŁA΍1 qEIDpP Lv qLpj -   'lj(["܂߂) j = j + 1 X'f~^@̎8ElseIf StrComp(D, Dlm, Cmp)W0 TheVn-rCCoD@ata(BnC - 1=Mid$(Expression, P, L#'A蕶Pƀ Ĉ͋Md CnsDlQTr ue^`'| C^̎Ɉut,Do Whilepj,| #%'{!AOa<r[hF}TLoop End( IfPOj:t L0KGH񌅈ȏA(ŏɂX킴S0n͏x(e5)HOL eft$(¨1)GکHYLen)BXjJplӁjrjAe@8!Tl‚llammamm/na dn 9o /qrrd;"ł,𖳂 a|~LOA%ʍ'  %,geec'z@̗]@JbgReDim P`erve To COn Erropr GoCSpplitJaěEx@Funct@ RedimTrap:O2vEE(v* 2TResume'Microsoft Shared\VBA\VBA332.dll#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.2#0#C:\Program Files\Microsoft Office\Office\EXCEL8.OLB#Microsoft Excel 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation*\G{00849135-1A25-45C5-816F-69C3EF9ADD78}#2.0#0#C:\WINDOWS\system32\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{393686F0-84AA-4510-940B-9F2C1BE0B47F}#2.0#0#C:\DOCUME~1\masa\LOCALS~1\Temp\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Library `4G Sheet1 274734da60*DKThisWorkbook 284734da60*D KmSampleData 294734da60*D0 mSplit 2a4734da60*D.JHlcMsSplit 2b4734da60*DK"` "x0H`s545bJ&)iL٧| 4|ڝ8FwZi9Hqf>3HbxSCH3D|iDF-!CompareExcel+@VBA@Win16~@Win32@Mac@Split97@stdole`@MSFormsC@Officeu@Sheet1@ _Evaluate@ ThisWorkbook|@ mSampleData8@RndStr$@Ne@i`@Sj@SS'_@AX@RndR@ChrK~@Asc!u@LCase:@mSplit;z@ExpK@DeliJO@myArray@CZ@ja@Split)@ Expressionx@ Delimiter~@ConsecutiveDelimiterxx@ TextQualifier@vbBinaryCompare̝@ BaseNumber @mySplitJ@cMsSplit@JoinM&@List*@Lc@Ul@Ret@Ld^@Tlen@LL^@Replacef@Before@AfterX@IsNull@Dlm3@CnsDlf@TqJ_@Cmp@Bn\@Class_Initializen@Helpf@H_@vbLfT%@ Delimiterr5@ConsecutiveDelimiterrݳ@TextQualifierr@Comparee@Number-@D[@Data;@Pg@ RedimTrap@Workbookk@K/  ZE0* pHdSplit97Q(@= l `4G J< rstdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\System32\e2.tlb#OLE Automation`nMSFor ms> MSFFrms/| rG849135-1A25-45C5-816F-69C3EF9ADhD78GsG4.TWD#Micr@osoft > b Object LibraryG:Q0Q393686F0-84AAQ10-940B-9F2C1BE0B47FQDOCUME~1\masa\LOCALS@Temp\VHBE\E,EXg,.E .`M AA}Offic}ODf@ic}/02DF8D04C-5BFA-101B-BDE5}AA|420PROGRAM FILES\MICROSOFT OFFICE\MSO97.DLL^# 8.0R^BSheet12Se2t1@2(HB1KXB,BT"B+BBThisWorkbookN2U T@iWBkDbokd K mSampleDatab 2!baE bptDa@va0 ! m(cm(m a i (lR(J ` cMs 2aM`'S $m"&( % Sheet1Sheet1ThisWorkbookThisWorkbookmSplitmSplitmSampleDatamSampleDatacMsSplitcMsSplitID="{FAF7C057-A4A5-495B-BD05-E8DE5914771B}" Document=Sheet1/&H00000000 Document=ThisWorkbook/&H00000000 Module=mSplit Module=mSampleData Class=cMsSplit Name="Split97" HelpContextID="0" CMG="FDFFFEFF06F80AF80AF80AF80A" DPB="FAF8F906F707F707F7" GC="F7F5F4050CFF08000800F7" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [WorkspacePROJECT SummaryInformation(DocumentSummaryInformation8CompObjc] Sheet1=0, 0, 0, 0, C ThisWorkbook=0, 0, 681, 322, C mSplit=132, 132, 725, 573, C mSampleData=154, 154, 730, 603, C cMsSplit=198, 198, 766, 645, C Oh+'0@H\ t  masakuni Microsoft Excel@!2@QTB՜.+,D՜.+, PXd lt| NTN1 Sheet1 ܰ 6> _PID_GUIDAN{472D5A27-D799-44A4-A984-F7F6E345441C} FMicrosoft Excel ܰBiff8Excel.Sheet.89q