WorkSheets.Addと同時に変数wsに格納する【ExcelVBA】【シンプル】

ワークシートを追加する際に変数ws代入をシンプルにしたい

初心者の時代に返り値というのはそういうことかと理解した時がこれです。
どうしても下記のようにコードが縦に長くなってしまうため、
1行でまとめられないかと考えたことがきっかけです。

①WorkSheetを追加する(WorkSheets.Add)
②変数wsに格納する(Set ws)

ワークシートを追加且つ変数に格納するサンプルコード

Public Sub sample()
    Dim ws As Worksheet
    
    '■下記のような二行になったコードを
    Worksheets.Add
    Set ws = ActiveSheet
    
    
    '■コンパクトに1行にまとめてしまう事が可能です。
    Set ws = Worksheets.Add     '表示しているシートの直前の位置に新しいシートを追加
    
     
    '■最後尾のシートに新しいシートを追加
    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
     

End Sub

初心者だからこそ丁寧に書くという事は大事なのですが、
丁寧すぎるのは後で見づらいケースがあります。

誰が読んでもわかるように、コードを「シンプルに書く」という事を常に心がけたいなと思います。

関連記事

• Workbooks.Openと同時にワークシート変数に格納する
• ワークシートの初期化処理をパーツ化する
• ワークブック名を変数にSetし、短い名前で利用する【マクロ初級者必読】
• ワークシート名を変数にSetし、短い名前で利用する【マクロ初級者必読】
• 変数宣言と初期値代入をシンプルに行う