投稿/コメントを表示します。

発展編1 総合演習「伝票作成マクロ」を作ってみよう
複数シートを作成し、取引先名リストにあるのと同じ名前を順に割り当てる

3色だんごさんの投稿

(投稿ID: 5652)

後続作業を考えず今回の課題だけで考えれば、追加したシートについて名前をつけた後何も作業しないのでオブジェクト変数に格納しないでそのままやってみました。addメソッドが返したワークシートオブジェクトを直接格納したり、返したワークシートオブジェクトのnameプロパティを直接指定しています。
'シート追加して名前つけるだけだからwTo変数さぼり版
Sub renshu2()
    Dim wFm As Worksheet: Set wFm = ThisWorkbook.Worksheets("main")
    
    Dim gyo As Long
    For gyo = 2 To 21
        ThisWorkbook.Worksheets.Add.Name = wFm.Range("B" & gyo).Value
    Next

End Sub

'原則通りにwFm , wTo変数作成版
Sub renshu3()
    Dim wFm As Worksheet: Set wFm = ThisWorkbook.Worksheets("main")
    
    Dim gyo As Long
    For gyo = 2 To 21
        Dim wTo As Worksheet: Set wTo = ThisWorkbook.Worksheets.Add
        wTo.Name = wFm.Range("B" & gyo).Value
    Next
End Sub

2025/07/30 15:54