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

[µo°Ý] ·s¼W¤@­ÓÀɮתº»yªk

[µo°Ý] ·s¼W¤@­ÓÀɮתº»yªk


·s¼WÀɮתº»yªk.rar (7.61 KB)

¸ê®Æ§¨¤º°£¤F¥DÀÉ¥~¡AÁÙ¥t¦³­Y¤z­ÓÀÉ®×(§Y¤@©w¥t¦³1­Ó(§t)¥H¤WªºÀÉ®×)¡A¥B³o­Y¤z­ÓÀɮתº¦WºÙ¡A°£¤F¤¤¬q¤£¦P¡A¨ä«e«á¬q³£¬Û¦P¡AEX¡J¹Ï¤ù¤¤ªº¥|­ÓÀɮצWºÙ¬°
¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-1_2-(2019-02-26)¡A¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-2_13-(2019-02-26)¡A¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-17_³s1-(2019-02-26)¡A¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-27_25-(2019-02-26)

»Ý¨D¡J·s¼W¤@­ÓÀÉ®×
ÀɮצWºÙ=¥H¤W­z­Y¤z­ÓÀɮפ¤¥ô¤@­ÓÀɮצWºÙªº¡i«e¬q11­Ó¦r(§t²Å¸¹)¤Î«á¬q12­Ó¦r(§t²Å¸¹) & "_²Î­p"¡j
Àɮפº¤u§@ªí¼Æ¶q=1­Ó
¤u§@ªí¦WºÙ="²Î­p"
¤u§@ªí¤º®e¡J¦pªþ¥ó(·s¼WÀÉ®×)

½Ð°Ý¡J¤W­z»Ý¨Dªº»yªk¡C
¥ýÁÂÁ¦U¦ìªºÀ°¦£¡I

¦^´_ 1# ziv976688

¥u­n¿ï¨úÀÉ®× ¥¦´N·|¦Û°Ê«Ø¥ß¤@­Ó¤u§@ªí ¨Ã¦s©ó¦P¤@­Ó¥Ø¿ý©³¤U



¥Dµ{¦¡.rar (37.31 KB)

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-4-13 17:26 ½s¿è

¦^´_ 2# zheng211016
¥DÀÉ.rar (40.68 KB)

zheng211016¤j¤j:±z¦n!
·PÁ¸ÑÃD^^
´ú¸Õµ²ªG¡J"²Î­p"¤u§@ªíµLªk¥t¦¨¥ß¬°¦p»Ý¨D¦WºÙªº·sÀÉ®×(°»¿ù)^^"
½Ð«ü¥¿!
§ÚªºExcelª©¥»¬OMS2003
ÁÂÁ±z!

TOP

¦^´_ 3# ziv976688
§Ú´ú¸Õ¬O¥¿±`ªº­ò
§A¥u­n¿ï¨ú  ¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-(2019-02-26).xls  ³oºØÃþ«¬ªº ¥ô¦ó¤@­ÓÀÉ®× ³£¥i¥H¦¨¥\
©ÎªÌ§A§â¾Þ§@¹Lµ{µ¹§Ú

TOP

¦^´_ 3# ziv976688


  §Ú¬O¨Ì·Ó§A¤W­±»¡ªº ©T©w«e«á ¦r¥h§ì¨ú©R¦W³W«hªº §A¥i¥Hª`·N¤@¤U¬O§_¿ï¨úªºÀɮצ³»~

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-4-14 08:33 ½s¿è

¦^´_ 5# zheng211016
¾Þ§@¨BÆJ¦p¤U:

½Ð°Ñ¦Ò!
¬O§_¦³»~~½Ð«ü¥¿!
ÁÂÁ±z!

========================================
¥»ÃD³Ì¥D­nªº¥Øªº¬O§Æ±æÂI°õ¦æÁä«á¡A¯à¦Û°Ê¿ï¨ú»P¥DÀɦP¤@­Ó¸ê®Æ§¨¤ºªº¥t¥ô¤@­Ó(©Î²Ä1­Ó)Àɮתº¦WºÙ¤§¡i«e¬q11­Ó¦r(§t²Å¸¹)¤Î«á¬q12­Ó¦r(§t²Å¸¹)¡j & "_²Î­p"¡A
§@¬°²£¥Í·sÀɮתº¦WºÙ¡C
¥i§_½Ð±z«ü¾É?
ÁÂÁ±z!

TOP

¦^´_ 6# ziv976688


¤F¸Ñ §Ú´£¨Ñ§A¨â­Ó«ö¶s
¿ï¾ÜÀÉ®× : ¬OÅý§A¦Û¦æ¿ï¾ÜÀÉ®× ¥L·|¨Ì·Ó§A¿ï¾ÜªºÀɮצì¸m¥h·s«Ø1­Ó ²Î­pexel ¦ì©ó ¦P¤@¥Ø¿ý©³¤U
«Ø¥ß²Î­pÀÉ®× : ´N¬O§A·Q­nªºµ²ªG ¦b¥DÀɪºÀɮצì¸m·s«Ø ²Î­pexcel

    ¥DÀÉ.rar (60.17 KB)

TOP

¦^´_ 7# zheng211016
¤£¦n·N«ä¡Aª¬ªpÁÙ¬O¼Ë^^"
ÂI"«Ø¥ß²Î­pÀÉ®×"Áä«á¡A°¨¤W¸õ¥X¤U¦Cµe­±

ÂI°»¿ù~¸õ¥X¤U¦Cµe­±


¥t¥~ÂI"¿ï¾ÜÀÉ®×"Áä«á¡A³Ì«áªºµe­±ª¬ªp»P 6#¬Û¦P¡C

¤£ª¾°ÝÃD¥X¦b­þ¸Ì?
¬O¤£¬Oª©¥»ªº°ÝÃD?§Ú¥u¦³MS2003ª©¡A¨S¦³¿ìªk¥H2007©Î2010´ú¸Õ^^"
·Ð½Ð¦A«ü¥¿!
ÁÂÁ±z!

TOP

Sub ·s¼WÀÉ®×()
Dim P$, T$, xB As Workbook
P = ThisWorkbook.Path & "\"
T = Dir(P & "¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-*_*-(????-??-??).xls")
If T = "" Then Exit Sub
T = "¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-" & Split(Right(T, 16), ".xls")(0) & "_²Î­p.xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("²Î­p").Copy
With ActiveWorkbook: .SaveAs Filename:=P & T, CreateBackup:=False: .Close: End With
MsgBox "·sÀɮ׫إߧ¹¦¨! "
End Sub

¤u§@ªí¤º®e, ¦b¥DÀɤ¤¼W«Ø¤@±i"²Î­p"¤u§@ªí¼Ë¥»:
·s¼WÀɮתº»yªk(¥DÀÉ).rar (9.16 KB)

TOP

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-4-14 17:27 ½s¿è

¦^´_ 9# ­ã´£³¡ªL
­ã´£ª©¥D¡J±z¦n!
·PÁ¸ÑÃD^^
´ú¸Õµ²ªG¡J°õ¦æOK!
ÁÂÁ±z!
=================================
­ã´£ª©¥D¡J
±z»~·|¤F~¥u­n¤â°Ê§ó§ïÀɮצWºÙ´N¯à¸Ñ¨Mªº¤u§@¡A§Ú«ç»ò¦n·N«ä¤W¨Ó³Â·Ð¦U¦ì^^"
¦]¬°§ÚÁ`¦@¦³6ºØ¦WºÙ¤£¦P¦ý®æ¦¡¬Û¦PªºÀɮצWºÙ¡J
¤µ¤éÁ`ªí(§¡­È±Æ§Ç)-1_4-(2019-04-12)¡A
¤µ¤éÁ`ªí(§À¼Æ±Æ§Ç)-1_4-(2019-04-12)¡A
¤µ¤éÁ`ªí(¦X¼Æ±Æ§Ç)-1_4-(2019-04-12)¡A
¤µ¤éÁ`ªí(¥Í¨v±Æ§Ç)-1_4-(2019-04-12)¡A
¤µ¤éÁ`ªí(¤­¦æ±Æ§Ç)-1_4-(2019-04-12)¡A
¤µ¤éÁ`ªí(¤K¨ö±Æ§Ç)-1_4-(2019-04-12)¡A
©Ò¥H§Úªº»Ý¨D¬O§Æ±æ¯àÂI°õ¦æÁä«á¡A¯à¦Û°Ê¿ï¨ú»P¥DÀɦP¤@­Ó¸ê®Æ§¨¤ºªº¥t¥ô¤@­Ó(©Î²Ä1­Ó)Àɮתº¦WºÙ¤§¡i«e¬q11­Ó¦r(§t²Å¸¹)¤Î«á¬q12­Ó¦r(§t²Å¸¹)¡j & "_²Î­p"¡A§@¬°²£¥Í·sÀɮתº¦WºÙ¡C
PS¡J­n°õ¦æªº®É­Ô¡A¦P¤@­Ó¸ê®Æ§¨¤º¡A§Ú¥u·|©ñ¸m"°õ¦æ¥DÀÉ"©M"³æºØ¦WºÙ"ªºÀɮסC

¯à§_·Ð½Ðª©¥D¦A¦¸«ü¾É!
ÁÂÁ±z!

TOP

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