[µo°Ý] §âÀɦW©ñ¦b«ü©wÀx¦s®æ¤¤

PJChen

¤j¤j¦n,
§Ú·Q§âÀɦW+¤u§@ªí¦WºÙ¡A©ñ¦bµ{¦¡©Ò¦bªºÀÉ®× VBA³øªí«ü¥O¤¤
L8 §âÀɦW©ñ¦b³o¸Ì
M8 §âSheet¦WºÙ©ñ¦b³o¸Ì
³o¯Âºé¬°¤F´ú¸Õ «ü©wÀx¦s®æ¬°ÀɦW¬O§_¥i¦æ¡A©Ò¥H¨S¤°»ò¨ä¥L¥\¯à¡A
¦ý¤@ª½¥X²{¿ù»~¡A¥i§_½Ð°ª¤âÀ°¦£¬Ý¬Ýµ{¦¡¬O­þ¸Ì¥X¿ù¤F¡H ·PÁÂ

1. Option Explicit
   
2. Dim Wb As Workbook, Wb2 As Workbook, Sh As Worksheet
   
3. Sub ª©­±³]©w()
   
4.    
   
5. Set Wb = Workbooks(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("L8").Value) 'Àx¦s®æªº­È¬°ÀɮצWºÙ
   
6. Set Sh = Workbooks(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("M8").Value) 'Àx¦s®æªº­È¬°¤u§@ªí¦WºÙ
   
7. With Wb.Sh
   
8. .Range("E1").Copy
   
9. 
   
10.   
    
11. 
    
12. End With
    
13.    
    
14. End Sub

½Æ»s¥N½X

nolookyou

¦^´_ 1# PJChen

ª©¤j¦­¦w¡A­×¥¿¦p¤U¡A¦A³Â·Ð´ú¸Õ

1. Option Explicit
   
2. Dim Wb As Workbook, Wb2 As Workbooks, Sh As Worksheet
   
3. 
   
4. Sub ª©­±³]©w()
   
5.    
   
6. Set Wb = Workbooks(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("L8").Value) 'Àx¦s®æªº­È¬°ÀɮצWºÙ
   
7. Set Sh = Worksheets(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("M8").Value) 'Àx¦s®æªº­È¬°¤u§@ªí¦WºÙ
   
8. 
   
9. With Wb.Worksheets(Sh.Name)
   
10.     .Range("E1").Copy
    
11. End With
    
12. 
    
13. End Sub

½Æ»s¥N½X

PJChen

¦^´_ 2# nolookyou

§Ú§âµ{¦¡§ï¬°,¦ý¬OµLªk°õ¦æ¡I

1. Option Explicit
   
2. Dim Wb As Workbook, Sh As Worksheet
   
3. Sub ª©­±³]©w()
   
4.    
   
5. Set Wb = Workbooks(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("L8").Value) 'Àx¦s®æªº­È¬°ÀɮצWºÙ
   
6. Set Sh = Worksheets(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("L9").Value) 'Àx¦s®æªº­È¬°¤u§@ªí¦WºÙ
   
7. With Wb.Worksheets(Sh.Name)
   
8.     .Range("E1").Copy
   
9. 
   
10. End With   
    
11. End Sub

½Æ»s¥N½X

¤U¸ü (51.54 KB)

2018-5-17 20:08

PJChen

¦^´_ 2# nolookyou

±z¦n,
§Ú¨Ó¦^¸Õ¤F«Ü¦h¦¸,³Ì«á§ï¦¨³o¼Ë,´N¥i¥H°õ¦æ.

1. Option Explicit
   
2. Dim Wb As Workbook, Sh As Worksheet
   
3. Sub ª©­±³]©w()   
   
4. Set Wb = Workbooks(Workbooks("VBA³øªí«ü¥O.xlsm").Worksheets("VBA«ü¥OII").Range("L8").Value) 'Àx¦s®æªº­È¬°ÀɮצWºÙ
   
5. Set Sh = Wb.Worksheets(Worksheets("VBA«ü¥OII").Range("L9").Value) 'Àx¦s®æªº­È¬°¤u§@ªí¦WºÙ
   
6.   With Wb.Worksheets(Sh.Name).PageSetup  '­Y¤£»Ý³]©w³]©wª©­±®É,¥i¥H§â.PageSetup¬Ù²¤
   
7. 
   
8.     .LeftMargin = Application.InchesToPoints(0)  '¥ªÃä¬É
   
9.     .RightMargin = Application.InchesToPoints(0)  '¥kÃä¬É
   
10.     .TopMargin = Application.InchesToPoints(0) '¤WÃä¬É
    
11.     .BottomMargin = Application.InchesToPoints(0)  '¤UÃä¬É
    
12.     .HeaderMargin = Application.InchesToPoints(0) '­¶­º
    
13.     .FooterMargin = Application.InchesToPoints(0)  '­¶§À
    
14.     .Zoom = 200 '¦C¦LÁY©ñ
    
15. 
    
16.   End With   
    
17. End Sub

½Æ»s¥N½X