عدم تغییر در شی بعد از مقدار دهی مجدد

[kolibri]

سلام
من برای یک کاری گرفتار اکسل و VB شدم و دست و پا شکسته دارم میرم جلو
در بخشی از برنامه میام بر مبنای یک لیست دیگر، باید یه سری آیتم ها رو جمع کنم!

For d = date1 To date2    Dim O As New MyList

    Str = 0

    Pub = 0

    Prd = 0

    O.Ave_Product = lsh.Range("K1")

    O.Ave_Story = lsh.Range("K2")

    O.Day = d

    For Each x In Lst

        If CDate(x.key) = d Then

        Str = Str + x.Story

        Pub = Pub + x.Publish

        Prd = Prd + x.Product

        End If

    Next x

    O.Story = Str

    O.Publish = Pub

    O.Product = Prd

    OutLst.Add O

    

Next d

اما وقتی خروجی می گیرم:

Dim z As Integerz = 1

For Each lx In OutLst

sh.Cells(z, 22) = OutLst(z).Day

sh.Cells(z, 23) = OutLst(z).Product

sh.Cells(z, 24) = OutLst(z).Publish

sh.Cells(z, 25) = OutLst(z).Story

sh.Cells(z, 26) = OutLst(z).Ave_Product

sh.Cells(z, 27) = OutLst(z).Ave_Story

z = z + 1

Next lx

همه خروجی ها یکسان هست. در حای که چک کردم که در مواردی شرط مورد نظر در کد بلاک اول اجرا شده و مقدار ها تغییر می کند اما خروجی بدین صورت هست:

3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5
3/19/2020	0	0	0	2	5

مشکل چیست؟

[the king]

Dim New در VBA میاد موقع تعریف متغیر شی جدید بهش اختصاص میده، نه هر دفعه که به Dim برسه.
برای همین در VBA این کد :

    Dim i As Integer

    For i = 1 To 2

        Dim x As New MyList

    Next i

معادل این کد نیست :

    Dim i As Integer

    Dim x As MyList

    For i = 1 To 2

        Set x = New MyList

    Next i

شما چون در حلقه تون O رو با Set O = New MyList تجدید نمی کنید در کل حلقه d دارید صرفا با یک MyList کار می کنید که داخل حلقه تعویض نمیشه، صرفا همون بار اول موقع تعریف شدن New شده.
برای همین همه آیتم های درج شده یک شیء واحد هستند.