[Excel VBA]如何使長條圖呈現動態變化?

有網友詢問，如何使Excel長條圖呈現上述的動態變化。

原理如下:

1.利用VBA對每個儲存格進行數值的更改，使對應的長條圖隨之變化。

2.藉由定義timer，使長條圖的動態變化速度可以被調整。

3.最後將數值變化隱藏起來，使介面更加精簡。

基於網友已初步撰寫VBA程式碼的基礎下，我再依照其需求進一步修改和新增程式碼，如下:

Sub test()
    For Each c In Worksheets("工作表1").Range("b1:c4").Cells
        If c.Value <> "" Then
            Dim tmp As Integer
            Dim divi As Integer
            tmp = c.Value
            divi = 5
            For i = 1 To divi Step 1
            c.Value = 0 + Round(tmp * i / divi, 0)
            Call time
            Next
        End If
    Next
End Sub

Sub time()
    t = timer
    While timer < t + 0.2
        DoEvents
    Wend
End Sub

 

-----如果文章對您有幫助，打開微信掃一掃，請作者喝杯咖啡。-----