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

[µo°Ý] Excel VBA ¶}±ÒExcelªí ¨Ã½Æ»s¨ä¤¤¤@¤À­¶

[µo°Ý] Excel VBA ¶}±ÒExcelªí ¨Ã½Æ»s¨ä¤¤¤@¤À­¶

¦U¦ìExcel°ª¤â¤j®a¦n
¤p§Ì¦³¤@VBA°ÝÃD·Q½Ð±Ð
¦p¤U¬O¤p§Ì¥Î¿ý»s¥¨¶°°µ¥X¨ÓªºVBA
¨ä¤¤¦b²M³æ¤p²Ä¦³¥Î¤@­Ó³sµ²¨ìExcel MPS
¶}±ÒMPSÀÉ®×«á §Ú­nMPSÁ`ªí¤À­¶ªºA:AMÄæ ¥þ³¡½Æ»s

¦A¶K¨ì§ÚªºÀɮפÀ­¶(MPS)¤W
«á­±³£¬O¦hªº......

°ÝÃD¦p¤U
1.¦pªG³o­ÓÀɮ׬O¦b¤@­Ó¤ººô¤W,¨º­n¦p¦ó¥ÎVBA¶}±ÒExcelÀɤΫü©w¨º­Ó¤À­¶©O?
2.¤U­±ªº¿ý¨î¥¨¶°¦³¯ÊÂI,¦]¬°­ì¥»ªºMPSÁ`ªí¤]¦³¤@­Ó¥¨¶°,¶}±Ò¤§«á³£·|¦A°Ý­n¤£­n¶}±Ò¥¨¶°,¬O§_¯à­×§ï¤U­±ªºµ{¦¡,Åý¥¦«Ü³æ¯Âªº¶}±ÒMPSÀÉ®×µM«á¦A¨ìMPSÁ`ªí¤À­¶,Åý§Ú¯à°õ¦æ½Æ»s°Ê§@¤Î¶K¤W°Ê§@
³Ì«á¦b¦Û¤vÃö±¼¶}±ÒªºMPSÀÉ®×,¤]¤£­n°Ý§Ú­n¤£­n¦sÀÉ,´N¦Û¤vÃö±¼´N¦n¤F
¤£µM¨C¦¸³£°Ý§Ú¦³¤j¶q¸ê®Æ­n¤£­nÄÀ©ñ~«Ü³Â·Ð

¥H¤W~­Y¦³¤£²M·¡ªº¸Ü¦A³Â·Ð¦U¦ì°ª¤â´£°Ý~ÁÂÁÂ!!



Sub ½Æ»sMPS()

Sheets("²M³æ").Select
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("MPSÁ`ªí").Select
Columns("A:AM").Select
Selection.Copy
Windows("·s¼W Microsoft Office Excel ¤u§@ªí.xlsx").Activate
Sheets("MPS").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D8").Select
Windows("MPS.xls").Activate
ActiveWindow.Close
Sheets("Sheet1").Select
Range("A2").Select
End Sub

¤p§Ì17:00¤U¯Z.
¤U¦³¤@Ãþ¦üCASE ·Ð°Ñ¦Ò¤§.

Sub ÂлsPDM¸ê®Æ®w()
    '¥þ­±©ÊÅܧó¦WºÙ¥i¥Î½s¿è¤º¤§¨ú¥N¥\¯à¤@¦¸ALL¸m´«
    Workbooks.Open Filename:="\\Pcbfs02\c700\c740\Àˮ֪í\´ú¸Õªí³æ.xls" '»Ý¨DEXCEL ADDRESS-¦Û¦æÅܧó.
   
    Windows("ÂлsPDM¸ê®Æ®w.xls").Activate '¦Ü­ìÂлsPDM¸ê®Æ®w.xlsÀÉ-¦WºÙ¨Ì»Ý¨DÅܧó
    Sheets("tbdd2060").Cells.Copy 'COPY TBDD2060 ALL Àx¦s®æ-¦WºÙ¨Ì»Ý¨DÅܧó
    Windows("´ú¸Õªí³æ.xls").Activate '¦Ü´ú¸Õªí³æ.xlsÀÉ-¦WºÙ¨Ì»Ý¨DÅܧó
    Sheets("tbdd2060").Select '¦ÜTBDD2060¤u§@ªí-¦WºÙ¨Ì»Ý¨DÅܧó
    Range("A1").Select '¦ÜA1Àx¦s®æ
    ActiveSheet.Paste 'Âлs
   
    Windows("ÂлsPDM¸ê®Æ®w.xls").Activate
    Sheets("tbdd2040").Cells.Copy
    Windows("´ú¸Õªí³æ.xls").Activate
    Sheets("tbdd2040").Select
    Range("A1").Select
    ActiveSheet.Paste
   
    Windows("ÂлsPDM¸ê®Æ®w.xls").Activate
    Sheets("tbdd2002").Cells.Copy
    Windows("´ú¸Õªí³æ.xls").Activate
    Sheets("tbdd2002").Select
    Range("A1").Select
    ActiveSheet.Paste
    Windows("ÂлsPDM¸ê®Æ®w.xls").Activate '¦ÜÂлsPDM¸ê®Æ®w.xlsÀÉ-¦WºÙ¨Ì»Ý¨DÅܧó
    Sheets("«Ê­±").Select '¦Ü«Ê­±¤u§@ªí-¦WºÙ¨Ì»Ý¨DÅܧó
    Range("A1").Select '¦ÜA1Àx¦s®æ
    Windows("´ú¸Õªí³æ.xls").Activate '¦Ü´ú¸Õªí³æ.xls-¦WºÙ¨Ì»Ý¨DÅܧó
    Sheets("¥Ø¿ý").Select '¦Ü¥Ø¿ý"¤u§@ªí-¦WºÙ¨Ì»Ý¨DÅܧó
    Range("A1").Select '¦ÜA1Àx¦s
   
End Sub
ù

TOP

Hi rouber590324 ·PÁ§AªºÀ°¦£
½Ð°Ý¤@¤U§Aªº¨Ò¤l·|¹J¨ì¶}±Ò¸ÓÀɮɷ|¦³¸ß°Ýªº°Ê§@¶Ü?

§Úªº¬O¶}±ÒMPS´N·|°Ý§Ú¥¨¶°­n¤£­n¶}±Ò
ÁÙ­n¥t¥~ÂI¿ï¤~·|¶i¦æ¤U¤@¨BªºÂШî°Ê§@

±ßÂI¨Ó¸Õ¸Õ§A«Øijªº¤è¦¡~·PÁ§A!!

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD