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

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

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

¤£¦n·N«ä¡A«á¾Ç¤~²¨¾Ç²L¡A¥i¯à½Ð±z¦A´«¤@ºØ¤è¦¡¸ÑÄÀ¤@¤U»Ý¨Dµ²ªGµ¥µ¥¡AÁÂÁÂ
samwang µoªí©ó 2021-10-20 07:10

­«·s»¡©ú¦pªþ¥ó~ TEST_1020_Q.rar (169.47 KB)
¦p¦³¤£©ú¥Õªº¦a¤è~½Ð¤£§[¦A´£¥X~ÁÂÁ±z

PS :
¦]¬°~
1_¥»ÃDªº»Ý¨D¥u¬O·Q­nÂÇTEST_1020(¥DÀÉ)ªº»²§U~±N¨äAÄæ©MBÄ檺«ü©w¼Æ¦r©¹¤U³v¦C¨Ì§Ç~¦Û°Ê¶ñ¤J(7C_3Stage-0-7)¤§RrngA©M RrngBªºInputBox¡A
¥BÅý(7C_3Stage-0-7)¤]¬O¯à¦Û°Ê¨Ì§Ç³v¦¸§¹¦¨°õ¦æªº°Ê§@~ª½¨ìTEST_1020(¥DÀÉ)ªºA2=""®Éµ²§ô¡C

2_¦pªG­n¦C¥X®ÄªGÀÉ·|«Ü¦h~¶W¥X¤W¶Çªº­­©w®e¶q¡C
©Ò¥H~
¨S¦³ªþ¤W®ÄªGÀɪº½d¨Ò~©|½Ð¨£½Ì~ÁÂÁ !

TOP

¦^´_ 8# ziv976688

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

TOP

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

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

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
OK¤F
¸U¤À·PÁ±zªº­@¤ß«ü¾É~·P®¦

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

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

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

TOP

¦^´_ 3# ziv976688

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

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

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

¦^´_ 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

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD