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

エクセルマクロ・VBA発展編２演習と回答
おまけ１－３ Functionプロシージャの活用

田中 宏明さんの投稿

(投稿ID: 3948) 

Private Function SetDic(dic As Scripting.Dictionary, sN As String) As Scripting.Dictionary
    If Not dic.Exists(sN) Then
        dic.Add sN, 16
        Worksheets("main1").Copy After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = sN
    Else
        dic.Item(sN) = dic.Item(sN) + 1
    End If
    Set SetDic = dic
End Function

2018/06/13 07:26