الرسم البياني على شكل وصول

Question

ولدي بعض التعليمات البرمجية في لحظة رسم بياني على أساس قيم سلسلة من مربعات النص على شكل الوصول.

وأنا سعيد مع رمز وكيف يعمل ولكن انا غير مقتنع بأن هذه هي الطريقة الأكثر فعالية للقيام بذلك. الرسم البياني يستغرق حوالي 1.2 ثانية لإعادة رسم في كل مرة. النموذج غير منضم لذلك هو مجرد الحصول على القيم من مربعات النص. فقط للتحقق حصلت عليه لحلقة من خلال وتفريغ القيم مربعات النص إلى debug.print وأن فعل ذلك على الفور لذلك لا يمكن أن يكون ذلك.

وأظن أنه يحاول إعادة رسم بياني بعد إضافة كل قيمة. هل هناك طريقة أسرع للقيام بذلك في VBA أو أنا عالقة معها؟

'**************************
        '** Draw the Call Deviation graph **
        '**************************
        .cells(1, 1) = "Start Time"
        .cells(1, 2) = "Deviation"
        lRT_actual = 0
        lRT_forecast = 0
        For i = 1 To 48
            lRT_actual = lRT_actual + Me.Controls("txtActual_" & i)
            lRT_forecast = lRT_forecast + Me.Controls("txtForecast_" & i)
            .cells(i + 1, 1) = Format(DateAdd("n", (i - 1) * 15, "08:00:00"), "HHMM")

            .cells(i + 1, 2) = lRT_actual - lRT_forecast

            If Me.acxProgress_bar.Value + 2 < 100 Then
                Me.acxProgress_bar.Value = Me.acxProgress_bar.Value + 2
            Else
                Me.acxProgress_bar.Value = 90
            End If
        Next i

وشكرا لمساعدتكم

Answer 1

وسيكون من الممكن بالنسبة لك لإضافة القيم إلى الجدول والرسم البياني ذلك؟