VBA シートを一番右にコピーして名前を変更する

• 作成日 2022.07.20
• vba
• vba

VBAで、シートを一番右にコピーして名前を変更するコードを記述してます。

目次

• 1. 環境
• 2. シートを一番右にコピーして名前を変更

環境

• OS windows10 64bit

シートを一番右にコピーして名前を変更

シートを一番右にコピーして名前を変更するには、「Copy」と「After:=Sheets(Sheets.Count)」と「Name」を使用します。

適当なボタンを用意して、「sheet1」を一番右にコピーして名前を「hoge」にする
以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    Dim objWsCopy  As Object

    ThisWorkbook.Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
    
    Set objWsCopy = ActiveSheet
    
    objWsCopy.Name = "hoge"
    
    Set objWsCopy = Nothing

End Sub

実行してみます。

名前を指定してコピーされていることが確認できます。

• 前の記事
  

  kotlin mutableMapでmapが空かnullであるかを判定する 2022.07.20

• 次の記事
  

  Oracle Database PARAMETERを一覧で確認する 2022.07.20