NEW ARTICLE
Google Colaboratory コマンドパレットを開くショートカットキー
  1. HOME
  2. vba
  3. VBA シートを一番右にコピーして名前を変更する

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

  • 作成日 2022.07.20
  • vba
VBA シートを一番右にコピーして名前を変更する

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

目次

環境

  • 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

実行してみます。

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