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

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

¦^´_ 1# PJChen

ª©¤j¦­¦w¡A­×¥¿¦p¤U¡A¦A³Â·Ð´ú¸Õ
  1. Option Explicit
  2. Dim Wb As Workbook, Wb2 As Workbooks, 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("M8").Value) 'Àx¦s®æªº­È¬°¤u§@ªí¦WºÙ

  7. With Wb.Worksheets(Sh.Name)
  8.     .Range("E1").Copy
  9. End With

  10. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD