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

[µo°Ý] Á`¸ê®Æ§¨¦WºÙ¤£¦P~¦³BUG

[µo°Ý] Á`¸ê®Æ§¨¦WºÙ¤£¦P~¦³BUG

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-9-28 08:13 ½s¿è

³Æµù¡GSheets("Sheet1")ªºA¡GK¤º®e¥þ³¡¥¿½T~¤£¥tÂØ­z¡C

¥Ø«e¤w§¹¦¨ªº»Ý¨D¡G
¶}±ÒÁ`¸ê®Æ§¨(TEST_0928 or ²Î­p¾÷²vªí¼È¦sÀÉ_0928)¡÷
¶}±Ò²Ä1¼h¤l¸ê®Æ§¨(RA¦h´Á or RA¦h´Á+RB¦h´Á)¡÷
¶}±Ò²Ä2¼h¤l¸ê®Æ§¨(7C_0_1894´Á_50_1891-1893_10_1¦¸_1-49 or 7C_0_1894´Á_100_1891-1893_10+1890-1892_10_1¦¸_1-49)¡÷
¦A¶}±Ò7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_0927«ö°õ¦æÁä¡÷
±N¦P¸ê®Æ§¨¤ºªº¨ä¥¦¸ê®Æ§¨¥H²Ä5¬q¼Æ¦r¥Ñ¤j¦Ó¤p¨Ì§Ç¶}±Ò¡÷
¨Ã¶}±Ò¨ä¤º¦³¾÷ÃöÁä¦rªºÀɮס÷¦A±N¨äAÄæ&BÄæ½Æ»s¡÷
¨Ã±N¦U¦³¬Û¦Pªº²Ä5¬q¼Æ¦r¤§¸ê®Æ§¨¤º¦³¾÷ÃöÁä¦rÀɮתºAÄæ&BÄ椺®e¡A³£¨Ì§Ç¦bSheets("Sheet1")ªºM1©¹¥k¶K¤W¡÷
Âন®ÄªGÀÉ~
EX¡G¶}±Ò²Ä2¼h7C_0_1894´Á_100_1891-1893_10+1890-1892_10_1¦¸_1-49ªº¤l¸ê®Æ§¨¡÷
¦A¶}±Ò7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_0927«ö°õ¦æÁä«á¡÷²£¥Í3­Ó®ÄªGÀÉ~
7RA²Î_0_1894´Á_100_1891_1­Ó_1¦¸¡F7RA²Î_0_1894´Á_100_1892_2­Ó_1¦¸¡F7RA²Î_0_1894´Á_100_1893_3­Ó_1¦¸

°ÝÃD»¡©ú¡G
Á`¸ê®Æ§¨¦WºÙ = TEST_0928
¥H7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_0927«ö°õ¦æÁä«á~¦U­Ó®ÄªGÀɳ£OK
¸Ô¦pªþ¥ó½d¨ÒÀÉ : TEST_0928.rar (426.88 KB)

Á`¸ê®Æ§¨¦WºÙ = ²Î­p¾÷²vªí¦s©³ÀÉ_0928
¶}±Ò²Ä2¼h¤l¸ê®Æ§¨(7C_0_1894´Á_50_1891-1893_10_1¦¸_1-49 or 7C_0_1894´Á_100_1891-1893_10+1890-1892_10_1¦¸_1-49¡÷
¥H7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_0927«ö°õ¦æÁä«á¡÷²£¥Íªº¦U­Ó®ÄªGÀɦ³BUG~
·|±N¦U²Ä5¬q¼Æ¦rªº¸ê®Æ§¨¤º¤§µL¾÷ÃöÁä¦rÀɮתºAÄæ&BÄ椺®e~¦P®É½Æ»s¶K¤WSheets("Sheet1")ªºM1~
EX¡G7RA²Î_0_1894´Á_50_1893_1­Ó_1¦¸ or 7RA²Î_0_1894´Á_100_1893_5­Ó_1¦¸
¸Ô¦pªþ¥ó½d¨ÒÀÉ : ²Î­p¾÷²vªí¦s©³ÀÉ_0928.rar (431.76 KB)

¥H¤W²£¥ÍªºBUG°ÝÃD~
Àµ½Ð¦U¦ì¤j¤j½ç¥¿¡I
ÁÂÁ¡I

¦^´_ 1# ziv976688

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

7T_·j´M(²Î)¦rÀÉ(¥DÀÉ_«e3¤p_§t0)_0928.zip (36.05 KB)

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-9-28 15:55 ½s¿è

¦^´_ 2# samwang
samwang¤j¤j : ±z¦n !
¤£¦n·N«ä¡A±z»~¸Ñ¤F~
¥»ÃDªº»Ý¨D¬O­×¥¿7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_0927°õ¦æ«á~®ÄªGÀÉ"Sheet1!"²£¥ÍªºBUG¡C
ÁÂÁ±z


EX : 7RA²Î_0_1894´Á_100_1893_5­Ó_1¦¸(¦³BUG)

TOP

¦^´_ 3# ziv976688


¤£¦n·N«ä¡A§Úª¾¹D°ÝÃD¤F¡A§Ú¦b½T»{¤@¤U
¥t¥~¡A#2 ªº¦n¹³¤]»Ý­n§ó·s(¦n¹³¤W¦¸±z»¡¦P®É·|¥X²{2­Ó¥DÀÉbug°ÝÃD¡A¦Ó§Ú´ú¸Õ¨S°ÝÃD)¡A½Ð¦A½T»{¤@¤U¡AÁÂÁÂ
http://forum.twbts.com/thread-23375-2-1.html

TOP

¦^´_ 3# ziv976688

¤w§ó·s¦pªþ¥ó¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

7RA_·j´M(¾÷)¦rÀÉ(¥DÀÉ)_0928.zip (121.1 KB)

TOP

¬Ý§Aªºµù¸Ñ  '¶}±ÒAr¡A§äÀɦW¦³"²Î"¸Ë¤JAr
­ì¦³µ{¦¡¤¤¦p¤U ¬O§ä¸ô®|¤¤¦³ "²Î"
  If InStr(f1.Path, "²Î") Then

­Y f1.Path §ï¦¨ f1.Name ¬O§_¤ñ¸û¹ï?
  If InStr(f1.Name, "²Î") Then

­ìµ{¦¡
'For i = 1 To n            '¶}±ÒAr¡A§äÀɦW¦³"²Î"¸Ë¤JAr
'    Set f = fs.GetFolder(Ar(i, 1))
'    Set fc = f.Files
'    For Each f1 In fc
'        If InStr(f1.Path, "²Î") Then
'           n1 = n1 + 1: Ar(n1, 1) = f1.Path: Ar(n1, 2) = f1.Name
'        End If
'    Next f1
'Next i

«Øij
For i = 1 To n            '¶}±ÒAr¡A§äÀɦW¦³"²Î"¸Ë¤JAr
    Set f = fs.GetFolder(Ar(i, 1))
    Set fc = f.Files
    For Each f1 In fc
        If InStr(f1.Name, "²Î") Then
           n1 = n1 + 1: Ar(n1, 1) = f1.Path: Ar(n1, 2) = f1.Name
        End If
    Next f1
Next i
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-9-28 19:22 ½s¿è

¦^´_ 4# samwang
§Ú¤]¦³·Q¨ì
¥u¬O·Q¥ý¦³¾÷ªº¥¿½T¥DÀÉ¡A¦A½×²Îªº¥¿½T¥DÀÉ~§K±o·d²V¤F
¤w´ú¸Õ¦¨¥\~·P®¦
==========================
¦^´_ 5# samwang
´ú¸Õ¦¨¥\ ~
ÁÂÁ±zªº­@¤ß«ü¾É©M¼ö¤ßÀ°¦£~·P®¦

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-9-28 19:26 ½s¿è

¦^´_ 6# ML089
¯u¤£¦n·N«ä~¥u­n§ï1³B§Y¥i~¦ý¤p§ÌÁÙ¬O¨S¯à¦Û¤v§ä¥X²§³B
´ú¸Õ¦¨¥\
ÁÂÁ±zªº­@¤ß«ü¾É©M¼ö¤ßÀ°¦£~·P®¦

PS :
http://forum.twbts.com/thread-23380-1-1.html
·í±z¦³ªÅ®É~¯à§_³Ò¾r±zÀ°§Ú¬Ý¤@¤U?
¨ç¼Æ¸Ñ(EXCEL2003ª©)§Y¥i~
ÁÂÁ±z

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD