Динамический массив уникальных строк в VBA, созданный из бухгалтерской книги - PullRequest
Новая
       16

Динамический массив уникальных строк в VBA, созданный из бухгалтерской книги

0 голосов
/ 14 февраля 2019

Я начинаю автоматизировать некоторые утомительные процессы, связанные с моим торговым журналом (акции / опционы).Текущей задачей, которую я хотел бы автоматизировать, является создание и сортировка моих карточек акций.По сути, я создаю биржевую карточку 6х26, которая отслеживает определенную статистику по моим сделкам на тикере.Единственное, что меня удерживает, это то, как создать динамический массив биржевых тикеров, не повторяя их.Кроме того, было бы лучше, если бы это была структура.

Вот мой текущий код: 

Sub AutoUpdateCards()

    TickerCards.Activate
    Range("A1:ZZ1000").Clear

    tLog.Activate

    Dim tickers() As String
    Dim tSize As Integer, i As Integer, j As Integer
    Dim rngB As Range

    Set rngB = Range("$B2:$B1000")
    tSize = WorksheetFunction.SumProduct(1 / WorksheetFunction.CountIf(rngB, rngB))

    ReDim tickers(tSize)

    'store all unique tickers
    For i = 1 To tSize
        If i = 1 Then
           'store initial ticker
           tickers(i) = Range("B" & i)
        Else
            'compare with all of the currently stored tickers to make sure we aren't storing a duplicate
            For j = 1 To i

            Next j
    Next i

End Sub

Затем я отсортирую массив по алфавиту для одного скрипта обновления, по общей прибыли (для тикера) в другом скрипте, по P / L...так далее.Вот почему динамическая структура будет лучше.Как только данные отсортированы, я перейду к массиву, вставив «стандартные» карточки и формулы для каждого тикера.Лист очищается перед очередным обновлением.

...