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

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

荏隈 直樹さんの投稿

(投稿ID: 322) 

Sub mondai4()
    Dim ws As Worksheet
    Dim WSM As Worksheet
    Dim stAry() As String
    Dim G As Long
    Dim EG As Long
    
    Set WSM = Worksheets("main")
    EG = WSM.Range("A65536").End(xlUp).Row
    
    For G = 2 To EG
        ReDim Preserve stAry(G - 2)
        stAry(G - 2) = WSM.Range("B" & G).Value
        Debug.Print stAry(G - 2)
    Next
    
    For G = LBound(stAry) To UBound(stAry)
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = stAry(G)
    Next

End Sub

発展編2もやったことだし、折角なので、配列を使って書いてみました。
ところで、追加したワークシートの名前を変える時、いつも上記の様にやっていたのですが、
wToのように先にオブジェクト型の変数を使う方法もあるのですね。
またひとつ新たな発見が。
2014/07/06 01:35