ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Åã¥ÜÀɮצWºÙªº»yªk

[µo°Ý] Åã¥ÜÀɮצWºÙªº»yªk

ªþ¥ó¡G TEST_1024.rar (174.23 KB)
¥Ø«e°õ¦æ 7S_·j´M(²Î)¦rÀÉ(¥DÀÉ) «á~·|²£¥Í¤U¦C4­ÓÀɮסG
7S«e3¤j&¤p_0_1903´Á_50_1896-10+1872-10_1¦¸(¥Ø«e_OK)
7S«e3¤j&¤p_0_1903´Á_50_1896-10+1875-10_1¦¸(¥Ø«e_OK)
7S«e3¤j&¤p_0_1903´Á_50_1896_1¦¸(¥Ø«e_½Ð§ï¬°¦p»Ý¨D)
7S«e3¤j&¤p_0_1903´Á_50_1898_1¦¸(¥Ø«e_½Ð§ï¬°¦p»Ý¨D)
¡÷ ¡÷
7S«e3¤j&¤p_0_1903´Á_50_1896_49­Ó_1¦¸(»Ý¨D)
7S«e3¤j&¤p_0_1903´Á_50_1898_49­Ó_1¦¸(»Ý¨D)

½Ð°Ý¡G fn = Split(Ar(i1, 2), "_")(4) '¦C61¤Î
¨ä¥¦¦³¬ÛÃöªºªºµ{¦¡½XÀ³¸Ó¦p¦ó½s­×¡H

¥H¤W  Àµ½Ð½ç±Ð¡I  ÁÂÁ¡I

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-24 17:35 ½s¿è

¤£¦n·N«ä~º|¤F«e¤@¬qªº»¡©ú ~
7S_·j´M(²Î)¦rÀÉ(¥DÀÉ)ªº°õ¦æ¼ÐªºÀɮ׬° :
7C_0_1903´Á_50_1902_10+1896-10+1847-10_1¦¸_1-49¸ê®Æ§¨¤ºªº4­ÓÀɮסC
»Ý¨D :
§Æ±æ°õ¦æ«áªº4­Ó®ÄªGÀɮצWºÙ=ªº°õ¦æ¼ÐªºÀɮתº¦WºÙ¡C
½Ð°Ý : ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S«e3¤j&¤p_" & Order & "_" & Nrange & "´Á_" & num & "_" & fn & "_" & Ncount & "¦¸" & ".xls"  '¦C158¤Î
¨ä¥¦¦³¬ÛÃöªºªºµ{¦¡½XÀ³¸Ó¦p¦ó­×¥¿ ?
ÁÂÁÂ !

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-24 20:46 ½s¿è

¤£¦n·N«ä~2¼Óªº»Ý¨D¼g¿ù¤F~
½Ð±N»Ý¨D§ï¬°¦p1¼Ó¡C
ÁÂÁÂ!

TOP

¦^´_ 1# ziv976688

fn = Split(Ar(i1, 2), "_")(4)  '¦C61¤Î
>>»Ý¨D­n¦p¤U²£¥XÀɦWªºµ²ªG¶Ü?
fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0) '¦C61   

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-25 10:02 ½s¿è

¦^´_ 4# samwang
·PÁ¦^ÂСC
¤£¦n·N«ä~
¦C61ªºµ{¦¡½X§ï¬°    fn = Split(Split(Ar(i1, 2), "_")(4), "-")(0)
7S«e3¤j&¤p_0_1903´Á_50_1896-10+1872-10_1¦¸©M7S«e3¤j&¤p_0_1903´Á_50_1896-10+1875-10_1¦¸~2­Ó®ÄªGÀɮרS¦³²£¥Í¡C
7S«e3¤j&¤p_0_1903´Á_50_1896_1¦¸©M7S«e3¤j&¤p_0_1903´Á_50_1898_1¦¸~2­Ó®ÄªGÀɮצWºÙ¨S¦³§ïÅÜ¡C

§ï61¦C~À³¸Ó¬O¥½¾Ç»~§P¤F

¸Ô­z»Ý¨D :
7RA²Î_0_1903´Á_50_1896_49­Ó_1¦¸ªº®ÄªGÀɦWºÙ="\7S«e3¤j&¤p_" & Order & "_" & Nrange & "´Á_" & num & "_" & fn & "_" & Ncount & "¦¸" & ".xls"
§Y¨ä®ÄªGÀɦWºÙ=7S«e3¤j&¤p_0_1903´Á_50_1896_49­Ó_1¦¸  ¡÷ ¡÷³o­Ó¥Ø«e¬O¤Ö¤F_49­Ó

7RA²Î_0_1903´Á_50_1898_49­Ó_1¦¸ªº®ÄªGÀɦWºÙ="\7S«e3¤j&¤p_" & Order & "_" & Nrange & "´Á_" & num & "_" & fn & "_" & Ncount & "¦¸" & ".xls"
§Y¨ä®ÄªGÀɦWºÙ=7S«e3¤j&¤p_0_1903´Á_50_1898_49­Ó_1¦¸  ¡÷ ¡÷³o­Ó¥Ø«e¬O¤Ö¤F_49­Ó

7RA²Î_0_1903´Á_50_1896-10+1872-10_1¦¸ªº®ÄªGÀɦWºÙ="\7S«e3¤j&¤p_" & Order & "_" & Nrange & "´Á_" & num & "_" & fn & "_" & Ncount & "¦¸" & ".xls"
§Y¨ä®ÄªGÀɦWºÙ=7S«e3¤j&¤p_0_1903´Á_50_1896-10+1872-10_1¦¸¡÷ ¡÷
³o­Ó¥Ø«e¤w¸g¬OOK¤F!

7RA²Î_0_1903´Á_50_1896-10+1875-10_1¦¸ªº®ÄªGÀɦWºÙ="\7S«e3¤j&¤p_" & Order & "_" & Nrange & "´Á_" & num & "_" & fn & "_" & Ncount & "¦¸" & ".xls"
§Y¨ä®ÄªGÀɦWºÙ=7S«e3¤j&¤p_0_1903´Á_50_1896-10+1875-10_1¦¸¡÷ ¡÷
³o­Ó¥Ø«e¤w¸g¬OOK¤F!

¥H¤W   Àµ½Ð½ç¥¿   ÁÂÁ±z

PS : ¥i¯à¬O­ì¥»ªºfn¬O¨ú¸ê®Æ§¨ªº¦WºÙ§@®ÄªGÀɮתº¦WºÙ¡F²{¦b§ï¬°¨úÀɮתº¦WºÙ§@®ÄªGÀɮתº¦WºÙ¦Ó²£¥Í»~®t¡C

TOP

¦^´_ 5# ziv976688

­×§ï¦p¤U¡AÁÂÁÂ
fn = Split(Ar(i1, 2), "50")(1)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\7S«e3¤j&¤p_" & Order & "_" & Nrange & "´Á_" & num & fn   

TOP

¦^´_ 6# samwang
OK¤F
ÁÂÁ±zªº­@¤ß«ü¾É~·P®¦

========================================
¤£¦n·N«ä~©|¦³¤@­Ó´î¤Ö¤j¶q¤H¤u¾Þ§@¦¸¼Æªº°ÝÃD½Ð±z½ç±Ð  :
¡yµ{¦¡¥DÀÉ¡z¸m©ó¸ê®Æ§¨¥~°õ¦æªº»yªk

ªþ¥ó¡G TEST_1025-Q.rar (366.25 KB)
¥Ø«e¡G¡yµ{¦¡¥DÀÉ¡z~7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)~¬O©ñ¦b¦U­Ó¸ê®Æ§¨¤º°õ¦æ«á~²£¥Í¦³(²Î)ÃöÁä¦rªº®ÄªGÀÉ®×~
Ex1¡G¡yµ{¦¡¥DÀÉ¡z©ñ¦b7C_0_1903´Á_50_1875_10+1868-1874_10_1¦¸_1-49¸ê®Æ§¨¤º°õ¦æ«á~
«h²£¥Í7RA²Î_0_1903´Á_50_1875_7­Ó_1¦¸ªº®ÄªGÀɮסC

Ex2¡G¡yµ{¦¡¥DÀÉ¡z©ñ¦b7C_0_1903´Á_50_1879_10+1872-1878_10_1¦¸_1-49¸ê®Æ§¨¤º°õ¦æ«á~
«h²£¥Í7RA²Î_0_1903´Á_50_1879_7­Ó_1¦¸ªº®ÄªGÀɮסC
¨ä¾l--------Ãþ±À¡C

»Ý¨D¡G
·Q±N¡yµ{¦¡¥DÀÉ¡z~7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)~¸m©ó¦U­Ó¸ê®Æ§¨¥~°õ¦æ~
°õ¦æ«á~«h¦U­Ó¸ê®Æ§¨¤º¦P¼Ë·|¦U²£¥Í¦³(²Î)ÃöÁä¦rªº®ÄªGÀÉ®×~§Y¨ä®ÄªGÀɮתº¦WºÙ©M²£¥Íªº¦ì¸m³£¤£ÅÜ~
¥H§Q´î¤ÖÁc½Æªº°õ¦æ¦¸¼Æ¡C

½Ð°Ý¡G¡yµ{¦¡¥DÀÉ¡z~7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)ªºµ{¦¡½XÀ³¸Ó¦p¦ó¦A½s­×¡H

¥H¤W  Àµ½Ð½ç±Ð¡I  ÁÂÁ±z¡I

TOP

¦^´_ 7# ziv976688


·Q±N¡yµ{¦¡¥DÀÉ¡z~7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)~¸m©ó¦U­Ó¸ê®Æ§¨¥~°õ¦æ~
°õ¦æ«á~«h¦U­Ó¸ê®Æ§¨¤º¦P¼Ë·|¦U²£¥Í¦³(²Î)ÃöÁä¦rªº®ÄªGÀÉ®×~§Y¨ä®ÄªGÀɮתº¦WºÙ©M²£¥Íªº¦ì¸m³£¤£ÅÜ~
>> ¦pªþ¥ó¡AÁÂÁ   

7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)-1025.zip (192.18 KB)

TOP

¦^´_ 8# samwang
7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)~´ú¸Õ¦¨¥\
ÁÂÁ±zªº­@¤ß«ü¾É~·P®¦

========================================
¤£¦n·N«ä~
ÁÙ¦³¥t¥~1­Ó¦PÃþ«¬ªºÀÉ®×7RB_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_ori
¤]¬O­n§ï¦¨~¸m©ó¦U­Ó¸ê®Æ§¨¥~°õ¦æ~EX : 7RB_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_Q~
¦ý¥½¾Ç§ï¤F¥b¤Ñ~³Ì«á¥d¦bµ{¦¡½X¦C142ªº NFn = "7RB²Î" & Split(Ky, "C")(1) '·sÀɮתº¦WºÙ
¦]¬°µ{¦¡½X¦C28ªº 'For Each ky In xD1    µ{¦¡½X¦C30ªº    'If Ar(x, 2) = ky Then
¤w¸g­×§ï¬°µ{¦¡½X¦C37ªº    n2 = n2 + 1: Ar2(n2, 1) = f22.Path: Ky = Split(Split(f22.Name, "_")(4), "-")(0)
¥½¾Ç¤£ª¾¹Dµ{¦¡½X¦C37©M¦C142­n¦p¦ó­×§ï¤~¥¿½T ?
©Ò¥H¥½¾Ç¦Û§ï¨S¦³¦¨¥\

¸Ô¦pªþ¥ó¡J TEST_1025-V1.rar (760.44 KB)
PS¡G7RB_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_ori ©M7RB_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_Q~
¨ä®ÄªGÀɮתº¦WºÙ©M²£¥Íªº¦ì¸m³£¤£ÅÜ


¥H¤W  Àµ½Ð½ç¥¿¡I  ÁÂÁ±z¡I


TOP

¦^´_ 9# ziv976688

°£¤F·sÀɦW°ÝÃD¥H¥~¡A¥t¥~±zªº»Ý¨D©M­ì¨Óªº¤£¤@¼Ë¡A¤§«e¶×¥Xªº¸ê®Æ¬O³æµ§¤À¶}¡A²{¦b»Ý¨D¬O¥þ³¡­n·JÁ`¤@­Ó¶Ü?

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD