2023年7月31日 星期一

VBA:工作表 屬性:COPY

第一種:

變數TEMP:存放要複製的工作表名稱

直接複製,會生成一頁一模一樣的工作表在獨立的工作簿當中

Private Sub CommandButton1_Click()

  TEMP = ActiveSheet.Range("f7")

  Sheets(TEMP).Copy

End Sub

第二種: 

針對TEMP作工作頁複製,並複製到最後一頁

sheets. Count:總工作表

變數TEMP:存放要複製的工作表名稱

AFTER:=:用來控制位置之後的位置

Private Sub CommandButton1_Click() 

   TEMP = ActiveSheet.Range("f7")

   Sheets(TEMP).Copy AFTER:=sheets.Item(sheets.Count)

End Sub

BEFORE:=:用來控制位置之前的位置

Private Sub CommandButton2_Click() 

     TEMP = ActiveSheet.Range("f7")

     Sheets(TEMP).Copy BEFORE:=Worksheets.Item(1)

End Sub


第三種:

        指定工作表,指定複製位置

Private Sub CommandButton3_Click()

     TEMP1 = ActiveSheet.Range("f7")

     TEMP2 = ActiveSheet.Range("f8")

     Sheets(TEMP1).Copy AFTER:=Worksheets.Item(Sheets(TEMP2).Index)

End Sub

Private Sub CommandButton4_Click() 

      TEMP1 = ActiveSheet.Range("f7")

      TEMP2 = ActiveSheet.Range("f8")

       Sheets(TEMP1).Copy BEFORE:=Worksheets.Item(Sheets(TEMP2).Index)

End Sub





沒有留言:

張貼留言

數字統計:20240223

成交量大  漲幅大 統計: 演算法模擬: