Создать ParamArray из указанного диапазона c в VBA - PullRequest
0 голосов
/ 20 июня 2020

У меня есть функция, которая принимает два параметра: String и ParamArray неопределенной длины. Мне нужно иметь возможность динамически загружать функцию из рабочего листа, содержащего строку, которая будет передана функции в столбце A, и все значения в ParamArray во всех следующих столбцах. Код, с которым я работаю, для справки:

Function Filter(StringValue As String, ParamArray ParamArray1() As Variant)

Dim wb As Workbook: Set wb = ThisWorkbook
Dim dataSheet As Worksheet: Set dataSheet = wb.Sheets("Paste Data")
Dim j As Integer
Dim r As Range

CCCol = dataSheet.Rows(1).Find("Code", LookAt:=xlWhole).Column
ColumnLetter = Split(Cells(1, CCCol).Address, "$")(1)
Set r = Range("$" & ColumnLetter & ":$" & ColumnLetter)


    dataSheet.Range("$" & ColumnLetter & ":$" & ColumnLetter).AutoFilter Field:=1, _
    Criteria1:=Array(ParamArray1), Operator:=xlFilterValues

    CreateWorkbooks StringValue 'uses StringValue to create a Workbook with said name and the autofilters applied

End Function

Идея состоит в том, чтобы создать итератор в основном Sub, который будет l oop через все строки с доступными данными в листе, который содержит параметры фильтра, что не является сложной частью. Мне трудно понять, как построить ParamArray из значений всех последующих столбцов в столбец A, чтобы передать его функции фильтра на каждой итерации. Любая помощь?

Спасибо!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...