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

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

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

¦^´_ 3# ziv976688

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

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

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

¦^´_ 8# ziv976688

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

TOP

¦^´_ 11# ziv976688

©¹¤U³v¦C¨Ì§Ç¨Ì¦¸¶ñ¤J(7C_3Stage-0-7)¤§RrngA©M RrngBªºInputBox¤º¡A
>> ­n°µ¤°»ò°Ê§@? ¤°»ò¬ORrngA©M RrngBªºInputBox¤º??

TOP

¦^´_ 14# ziv976688

¤£¦n·N«ä¡A¤@ª½Åý±z¶O¤ß¤@¦Ó¦Aªº¸ÑÄÀ»Ý¨D¡A«á¾Ç²×©ó¤F¸Ñ±zªº°ÝÃD»P»Ý¨D¤F¡A
¦pªGª¾¹D°ÝÃD¦b­þ¡AÀ³¸Ó±q¨ºùظѨM¡A¤£¬O¤S¥Î¥t¤@­Ó¨Ó¸Ñ¨M¡A¦]¬°¦³¥i¯à¤S©µ¥Í¨ä¥L°ÝÃD¡A
»¡¹ê¦b¬Ý¤F7C_3Stage-0-7µ{¦¡¡A¯uªº¤Ó½ÆÂø¤F¡Aµ{¦¡¤£¬O¦Û¤v¼gªº¡A­n§O¤H¥h§ï¯uªº¤£®e©ö¡A
°£«D­ì¨Óµ{¦¡¬[ºc¤À±o«Ü©ú½T¥B¤S¦³Â²©öµù¸Ñ¡A³o¼Ë¤~¦³¥i¯à¡A
¤ñ¦p¹³«á¾Ç¦Û¤v²ßºD¡A¦pªG¬O¤ñ¸û½ÆÂø¡A´N·|¤À¼Ò²Õ¥B³Æµù¥\¯à¡A³Ì«á¥Î¥Dµ{¦¡call ¼Ò²Õ¡A³o¼Ë¥H§Q«áÄò·s¼W©Î­×§ï¡A
¤£¦n·N«ä¡A¤@ª½®ö¶O±zªº®É¶¡©M³y¦¨±zªº§xÂZ¡A³o­Ó°ÝÃD¦n¾Ç¤~²¨¾Ç²L¥i¯àµLªk¸Ñ¨M¡A
¥i¯à»Ý­n½Ð¨ä¥L«e½úÀ°¦£¸Ñ¨M¤F¡AÁÂÁÂ

TOP

¦^´_ 16# ziv976688

¥H²Ä4¶µªº¸Ñ¨M¤èªk¬O§_¥i¦æ?
>> ¤£¦n·N«ä¡A¦p16#©Ò´£¨ì¡A¤w¶W¥X«á¾Ç¯à¤O¡AÁÂÁ¡C

TOP

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