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

[µo°Ý] ±N¥þ³¡ªº¤l¸ê®Æ§¨Âk¯Ç¨ìÁ`¸ê®Æ§¨¤º

[µo°Ý] ±N¥þ³¡ªº¤l¸ê®Æ§¨Âk¯Ç¨ìÁ`¸ê®Æ§¨¤º

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-19 03:23 ½s¿è

ªþ¥ó : TEST_1019.rar (485.91 KB)
³Æµù¡G
1_¥»¨Ò¦@¦³3­Ó¸ê®Æ§¨(³Ì¦h¦³98­Ó)~
7C_0_1902´Á_50_1888_10+1860-1870_10_1¦¸_1-49(¤º¦³11­Ó¤l¸ê®Æ§¨)
7C_0_1902´Á_50_1900_10+1880-1886_10_1¦¸_1-49(¤º¦³7­Ó¤l¸ê®Æ§¨)
7C_0_1902´Á_50_1901_10+1894-1900_10_1¦¸_1-49(¤º¦³7­Ó¤l¸ê®Æ§¨)

2_µ{¦¡½s¼gªº¬yµ{½Ð¸ÑÃDªÌ¾Ü©y¨î©w¡CÁÂÁ¡I

»Ý¨D¡G
1_½Ð±N¤W­zªº¦U¤l¸ê®Æ§¨(¦@25­Ó)°Å¤U~¶K¨ì·sªº¸ê®Æ§¨¤º~Âk¯Ç¦¨1­ÓÁ`¸ê®Æ§¨¡C

2_Á`¸ê®Æ§¨¦WºÙ = 7C_0_1902´Á_50_1901_10+1888_10+1860-1870_10_1¦¸_1-49
§YÂ^¨ú¤W­z³Ì¤U¤è7C_0_1902´Á_50_1901_10+1894-1900_10_1¦¸_1-4¸ê®Æ§¨ªº«e¥b¬q¦WºÙ
©MÂ^¨ú¤W­z³Ì¤W¤è7C_0_1902´Á_50_1888_10+1860-1870_10_1¦¸_1-49¸ê®Æ§¨ªº«á¥b¬q¦WºÙ

3_²¾°£¤W­z¤w¸g²MªÅªº3­Ó¸ê®Æ§¨¡C

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



¤U¤èªºÀ£ÁYÀɬO»~´Óªº~½ÐµL¶·²z·|~ÁÂÁ !

TEST_1019.rar (726.34 KB)

¦^´_ 1# ziv976688


Á`¸ê®Æ§¨¦WºÙ = 7C_0_1902´Á_50_1901_10+1888_10+1860-1870_10_1¦¸_1-49
§YÂ^¨ú¤W­z³Ì¤U¤è7C_0_1902´Á_50_1901_10+1894-1900_10_1¦¸_1-4¸ê®Æ§¨ªº«e¥b¬q¦WºÙ
©MÂ^¨ú¤W­z³Ì¤W¤è7C_0_1902´Á_50_1888_10+1860-1870_10_1¦¸_1-49¸ê®Æ§¨ªº«á¥b¬q¦WºÙ
>> 1. ½Ð°Ý«e¥b¬q¦WºÙ + «á¥b¬q¦WºÙ¡A¬O¥H"+ " §@¬°°Ï¤À§a?  
2. ¦pªG¬Oªº¸Ü¡A½Ð°Ý­þ­ÓÀɮ׬°«e¥b¬q­þ­Ó¬°«á¥b¬qÀÉ®×?

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-19 09:39 ½s¿è

¦^´_ 2# samwang
1. ½Ð°Ý«e¥b¬q¦WºÙ + «á¥b¬q¦WºÙ¡A¬O¥H"+ " §@¬°°Ï¤À§a?  
¬Oªº !  ÁÂÁ±z !

2. ¦pªG¬Oªº¸Ü¡A½Ð°Ý­þ­ÓÀɮ׬°«e¥b¬q­þ­Ó¬°«á¥b¬qÀÉ®×?
§Ú¬O¥H¥Ø«e³Æµù : ªº3­Ó¸ê®Æ§¨~Â^¨ú³Ì¤U¤èªº¸ê®Æ§¨¦WºÙ©M³Ì¤W¤è¸ê®Æ§¨ªº¦WºÙ~ÂÅÃC¦âªº¬q¸¨¬°«e¬q¡AºñÃC¦âªº¬°«á¬q

>>>¦pªG±z¬O­n¥HÁ`¸ê®Æ§¨¤ºªº25­Ó¤l¸ê®Æ§¨¤§¦WºÙ°µÂ^¨úªº¸Ü~
«h¤]¬O¿ï¾Ü³Ì¤U¤èªº¤l¸ê®Æ§¨¨ÃÂ^¨ú¨ä¦WºÙ¤§«e¥b¬q©M³Ì¤W¤èªº¤l¸ê®Æ§¨¨ÃÂ^¨ú¨ä¦WºÙ¤§«á¥b¬q~
§YÁ`¸ê®Æ§¨¦WºÙ=
¨ä¤ºªº³Ì¤U¤è¤l¸ê®Æ§¨ : 7C_0_1902´Á_50_1901-10+1900-10_1¦¸_1-49¤§«e¥b¬q¦WºÙ
©M
³Ì¤W¤èªº¤l¸ê®Æ§¨ : 7C_0_1902´Á_50_1888-10+1860-10_1¦¸_1-49¤§«á¥b¬q¦WºÙ
§Y¥»¨ÒªºÁ`¸ê®Æ§¨¦WºÙ=7C_0_1902´Á_50_1901-10+1888-10+1860-10_1¦¸_1-49
ÁÂÁ±z !

TOP

¦^´_ 3# ziv976688

¦pªþ¥ó¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

TEST_¥DÀÉ_1019.zip (53.95 KB)

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-10-19 11:23 ½s¿è

¦^´_ 4# samwang
·Ð½Ð¦A¸É¥R²¾°£²MªÅ«áªº¦U¸ê®Æ§¨¤§²Ä3­Ó»Ý¨D¡C
ÁÂÁ±z

TOP

¦^´_ 5# ziv976688

·Ð½Ð¦A¸É¥R²¾°£²MªÅ«áªº¦U¸ê®Æ§¨¤§²Ä3­Ó»Ý¨D¡C
>> ·s¼W1¦C¦p¬õ¦r¡AÁÂÁÂ

'·h²¾ÀÉ®×
For i = 1 To n
    Set f = fs.GetFolder(Ar(i, 1))
    Set fc = f.SubFolders
    For Each f1 In fc
        If f1.Path = NewFolder Then GoTo 99
        FName1 = f1.Path:   FName2 = NewFolder & "\" & f1.Name
        fs.MoveFolder FName1, FName2
99: Next f1
    If Ar(i, 1) <> NewFolder Then fs.DeleteFolder Ar(i, 1)
Next i

TOP

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

TOP

¦^´_ 6# samwang
ªþ¥ó : TEST_1020.rar (163.82 KB)
¤£¦n·N«ä~ÁÙ¦³1­Ó³Ì²×°ÝÃD~½Ð±z«ü¾É¡CÁÂÁ±z¡I

¿é¤J«ü©w¤º®e¨ì¥¦ÀÉ°õ¦æªº»yªk¡C
TEST_1020(¥DÀÉ)
»Ý¨D¡G

1_A2(§t)¥H¤U¤£¯à=""¡FB2(§t)¥H¤U¥i¥H=""¡C

2_A2=""®É¡A«h¤£°õ¦æ¡A¨Ã¸õ¥X´£¥Ü°T®§(MsgBox)¡C

3_·í±NA2©MB2ªº¦P¦C¼Æ¦r~¦P®É©¹¤U³v¦C¨Ì§Ç¶ñ¤J(7C_3Stage-0-7)¤§RrngA©M RrngBªºInputBox«á¡A
«h(7C_3Stage-0-7)¤§RrngA©M RrngBªºInputBox~¥i¨Ì¶ñ¤Jªº¼Æ¦r¡A³v¦¸°õ¦æ¡C

4_·íA2¥H¤U=""®É¡A«hµ²§ô°õ¦æ¡C

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

TOP

¦^´_ 6# samwang
samwang¤j¤j :
8¼Óªºªþ¥ó¦³bug~½ÐµL¶·²z·|~ÁÂÁ !

½Ð¤U¸ü·sªþ¥ó : TEST_1020.rar (164.94 KB)
Àµ½Ð½ç±Ð¡I  ÁÂÁ±z

TOP

¦^´_ 8# ziv976688

¤£¦n·N«ä¡A«á¾Ç¤~²¨¾Ç²L¡A¥i¯à½Ð±z¦A´«¤@ºØ¤è¦¡¸ÑÄÀ¤@¤U»Ý¨Dµ²ªGµ¥µ¥¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD