VBA 小知识

1. 循环

Dim i As Integer

For i =  To
    'body
Next

While i <
    'body
Wend

2. 键值数据结构

    'create dictionary object
    Set dictMembers = CreateObject("scripting.dictionary")
    'add a key
    If Not dictMembers.exists(Key) Then
        'add value
        Dim value( To ) As Integer
        tempdata() =
        tempdata() =
        tempdata() =
        dictMembers.Add Key, value
    End If

    Dim keys()
    keys = dictMembers.keys

    'read dictionary
    Dim value
    For i =  To dictMembers.Count -
        Key = keys(i)
        value = dictMembers.Item(keys(i))
        Me.Cells(i + , ).value = value()
        Me.Cells(i + , ).value = value()
        Me.Cells(i + , ).value = value()
    Next

3. 数据图表chart

    ‘get the first chart
    Me.ChartObjects().Activate
    ‘set datasource
    ActiveChart.SetSourceData Source:=Range("A8:F" & i - )
    While ActiveChart.SeriesCollection.Count >
        ‘remove useless series
        ActiveChart.SeriesCollection().Delete
        ActiveChart.SeriesCollection().Delete
        ActiveChart.SeriesCollection().Delete
    Wend
    'display value
    ActiveChart.SeriesCollection().ApplyDataLabels
    ActiveChart.SeriesCollection().ApplyDataLabels