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

[µo°Ý] ¥t¦s¦¨¦h­Ó¬¡­¶Ã¯

[µo°Ý] ¥t¦s¦¨¦h­Ó¬¡­¶Ã¯

¦U¦ì¤j¤j¦n
®Ñ¥»¸Ìªº½d¨Ò¬O±N©Ò¦³¤u§@ªí³£«Ø¥ß¦¨¤@­Ó¬¡­¶Ã¯¡A¦s©ñ¦ì¸m¤]¬O©T©w(­n¦Û¤v¶i¥hvba°µ§ó§ï)¡A¦ý¤u§@¤W¤£¤Ó¹ê¥Î
¤p©f§Ú¬O·Q±N¯S©w´X­Ó¤u§@ªí¤À§O©î¤À¦¨¤@­Ó¬¡­¶Ã¯¡A¤£¥Î¥þ³¡¡A¨Ã¥B·|¥ý¸õ¥X¸ß°Ý¦s©ñ¦b­þ­Ó¸ê®Æ§¨¤º(¥þ³¡³£¦s¦b¦P¤@­Ó¦ì¸m)

¦p½d¨Ò¡A«e­±¨â­Ó¤u§@ªí¤£¥Î¥t¦s¦¨¬¡­¶Ã¯¡A¦ý«á­±ªº¤u§@ªí³£­n¥t¦s¦¨­Ó§O¬¡­¶Ã¯(³¡ªù¼Æ¶q¤£¤@©w)¡A¤w¦s¦¨·s¬¡­¶Ã¯ªº´N±N¨ä§R°£
¥i¥H½Ð¤j®aÀ°À°¦£¶Ü¡HÁÂÁ¡C

Sub ¤ÀÀÉ()

Application.ScreenUpdating = False
Dim folder As String
folder = ThisWorkbook.Path & "\¦U³¡ªù²M¥U"
If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder
Dim sht As Worksheet
For Each sht In Worksheets
    sht.Copy
    ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True

End Sub

­Ó¤H²M¥Utest.zip (82.69 KB)

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-8-4 18:21 ½s¿è

¦^´_ 1# ÅÚ½³ªd

±¡¹Ò´£°Ý
(¤u§@ªí¥Nªí¬°"­Ó¤H²M¥Utest¤ºªº¦U³¡ªù¤u§@ªí")      
(¤u§@ï¥Nªí¬°"·s¼WÂà¦sªº­Ó§O¤u§@ïÀÉ®×")

1.¦sÀɤwÂন­Ó§O¤u§@ï®É ­Õ­Y¸ê®Æ¦³»~ ¦Ó¤u§@ªí¤w§R°£ ¹w­p¦p¦ó³B²z? ¬O§_Åܧó­ì¥»ÅÞ¿è
1-a  (Âà¦s,¤£§Rªí) ­nÂà¦s,¦ý­ì©l¸ê®Æ¤£§R
1-b (§ï½Æ»s,¤£§Rªí) ª½±µ¶×¤J¤u§@ïÀɮקó·s¦sÀɧY¥i,¨SÀɮ׮ɷ|·s¼W¤u§@ïÀÉ®×,¦ý¤£§R°£¤u§@ªí¦³¸ê®Æ
1-c  (§ï½Æ»s, §Rªí) ª½±µ¶×¤J¤u§@ïÀɮקó·s¦sÀɧY¥i,¨SÀɮ׮ɷ|·s¼W¤u§@ïÀÉ®×,§R°£¤u§@ªí¦³¸ê®Æ
1-d  (Âà¦s,§Rªí)  ¦s¿ù¨SÃö«Y ¤â°Ê½Æ»s¦^¥h
2.¦P¤W ­Y¦³¤u§@ªí»~Âন¤u§@ï ¹w­p¦p¦ó³B²z?

3.¸¤¦³ªº¤u§@ï¬O§_­n§R°£?
4.­Ó§O¬¡­¶Ã¯ ªºÀɦW³]©w ¬O§_»Ý­n«Ø¥ß¤é´Á +¬y¤ô¸¹? ¥HÁקKÂл\¦³¤u§@ï¦PÀɮתº¥\¯à??
5."¦s©ñ¸ô®|¦ì¸m"¸õ¥X"¸ô®|¹ï¸Ü®Ø" ,¬O§_¹w³]¬°¸ô®|¤U"\¦U³¡ªù²M¥U"   ,¨Ã¥B¥i¥H¿ï¾Ü§ïÅܸê®Æ§¨¸ôªº¥\¯à?
6.©î¤À¤u§@ªí®É ¦h­Ó¤u§@ªí¦s©ñ¤@­Ó¤u§@ï or ¦h­Ó¤u§@ªí¦s©ñ¦h­Ó­Ó§O¤u§@ï ¬O§_¬Ò¦³»Ý¨D »Ý¯à¿ï¾Üªº¥\¯à?
7.©Ó6 ¬O§_»Ý­n  "¹w³]¤u§@ªíÂà¦s¤u§@諸¦WºÙ" ¨Ã¥B°l¥[¯à·í¦¸²K¥[ "¤u§@ªíÂà¦s¤u§@諸¦WºÙ"  ªº¥\¯à?
8.©Ó7  ¬O§_»Ý­n "¹w³]¤u§@ªí"¤£"Âà¦s¤u§@諸¦WºÙ" ªº¥\¯à?
9.©Ó8 ¦h­Ó¤u§@ªí¦X¨Ö¦¨Âà¦s¦¨¤@­Ó¤u§@ï®É ÀɦW¦p¦ó¹w³]?
10.­ì©lÀɮ׬O§_»Ý­n¬ö¿ý¤W¦¸Âà¦s¤é´Á®É¶¡ªº¥\¯à?

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2021-8-5 14:12 ½s¿è

­Ó¤H²M¥Utest.zip (177.88 KB) ¦^´_ 1# ÅÚ½³ªd


    §Ú¥ý©ñ­Ó´ú¸ÕÀÉ ¥i¥H°Ñ¦Ò¬Ý¬Ý

¦³´X­ÓbugÁÙ¨S³B²z
A5.ªí¦W¿é¤J»P§_ ¥i¯à·|¦³¼vÅT§PÂ_ ³y¦¨§ä¤£¨ì¤u§@ªí ©ÎªÌ §ä¿ù¤u§@ªí
A10 ¤é´Á¬y¤ô¸¹¥Ø«e¨S¦³¦¹¥\¯à  ­Y¦P­Ó¸ê®Æ§¨¦³§¹¥þ¤@¼ËªºÀɦW ·|³Q¥LÂл\±¼

TOP

¦^´_ 2# singo1232001

1.¦sÀɤwÂন­Ó§O¤u§@ï®É ­Õ­Y¸ê®Æ¦³»~ ¦Ó¤u§@ªí¤w§R°£ ¹w­p¦p¦ó³B²z? ¬O§_Åܧó­ì¥»ÅÞ¿è
1-a  (Âà¦s,¤£§Rªí) ­nÂà¦s,¦ý­ì©l¸ê®Æ¤£§R
1-b (§ï½Æ»s,¤£§Rªí) ª½±µ¶×¤J¤u§@ïÀɮקó·s¦sÀɧY¥i,¨SÀɮ׮ɷ|·s¼W¤u§@ïÀÉ®×,¦ý¤£§R°£¤u§@ªí¦³¸ê®Æ
1-c  (§ï½Æ»s, §Rªí) ª½±µ¶×¤J¤u§@ïÀɮקó·s¦sÀɧY¥i,¨SÀɮ׮ɷ|·s¼W¤u§@ïÀÉ®×,§R°£¤u§@ªí¦³¸ê®Æ
1-d  (Âà¦s,§Rªí)  ¦s¿ù¨SÃö«Y ¤â°Ê½Æ»s¦^¥h
2.¦P¤W ­Y¦³¤u§@ªí»~Âন¤u§@ï ¹w­p¦p¦ó³B²z?
Á`ªí¤£·|¥t¥~Âà¥X¥h¡A¥u¦³²Ó¤À¥X³¡ªùªº¤u§@ªí¤~·|Âন¤u§@ï
3.¸¤¦³ªº¤u§@ï¬O§_­n§R°£?
¤£¬O©Ò¦³sheet³£­nÂন¤u§@ï¡A¥u¦³²Ó¤À¥X³¡ªùªº¤u§@ªí¤~·|Âন¤u§@ï¡A©Ò¥H·|¯dµÛ
4.­Ó§O¬¡­¶Ã¯ ªºÀɦW³]©w ¬O§_»Ý­n«Ø¥ß¤é´Á +¬y¤ô¸¹? ¥HÁקKÂл\¦³¤u§@ï¦PÀɮתº¥\¯à??
¥i¥H¦³¤é´Á¦ý¤£¥Î+¬y¤ô¸¹
5."¦s©ñ¸ô®|¦ì¸m"¸õ¥X"¸ô®|¹ï¸Ü®Ø" ,¬O§_¹w³]¬°¸ô®|¤U"\¦U³¡ªù²M¥U"   ,¨Ã¥B¥i¥H¿ï¾Ü§ïÅܸê®Æ§¨¸ôªº¥\¯à?
³o­Ó§Ú¬Ý¤£À´­C¡A¬O¤°»ò·N«ä¡H§Ú¬O§Æ±æ¥L¥i¸õ¥X°Ý§Ú­n¦s©ñ¦b­þ
6.©î¤À¤u§@ªí®É ¦h­Ó¤u§@ªí¦s©ñ¤@­Ó¤u§@ï or ¦h­Ó¤u§@ªí¦s©ñ¦h­Ó­Ó§O¤u§@ï ¬O§_¬Ò¦³»Ý¨D »Ý¯à¿ï¾Üªº¥\¯à?
¤@­Ó¤u§@ªí¦s¦¨¤@­Ó¤u§@ï
7.©Ó6 ¬O§_»Ý­n  "¹w³]¤u§@ªíÂà¦s¤u§@諸¦WºÙ" ¨Ã¥B°l¥[¯à·í¦¸²K¥[ "¤u§@ªíÂà¦s¤u§@諸¦WºÙ"  ªº¥\¯à?
¨Ì¤u§@ªí¦WºÙ°µ¦¨¤u§@ï¦WºÙ§Y¥i
8.©Ó7  ¬O§_»Ý­n "¹w³]¤u§@ªí"¤£"Âà¦s¤u§@諸¦WºÙ" ªº¥\¯à?
À³¸Ó¤£»Ý­n
9.©Ó8 ¦h­Ó¤u§@ªí¦X¨Ö¦¨Âà¦s¦¨¤@­Ó¤u§@ï®É ÀɦW¦p¦ó¹w³]?
¥Ø«e¥u¦³­n¤À¥X¥h¨S¦³­n¦X¨Ö¦^¨Ó­C
10.­ì©lÀɮ׬O§_»Ý­n¬ö¿ý¤W¦¸Âà¦s¤é´Á®É¶¡ªº¥\¯à?
À³¸Ó¤£»Ý­n

ÁÂÁ±z

TOP

­Ó¤H²M¥Utest v1.zip (184.09 KB) ¦^´_ 4# ÅÚ½³ªd

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD