Excel передает диапазон в функцию - PullRequest
2 голосов
/ 29 декабря 2011

как вы передаете диапазон ячеек в функцию, чтобы потом можно было обрабатывать элементы отдельно?Поэтому, как мне передать диапазон ячеек в функцию.

Я пытаюсь сделать это, чтобы у меня был метод, который использует следующее

Function processNumbers(Var as Range) 

Из этого яне уверен, как я могу получить количество элементов в списке и пересечь массив для редактирования содержимого.Есть ли лучший способ принести предметы, чем указано выше.

1 Ответ

2 голосов
/ 29 декабря 2011

Ваше объявление функции, как указано, является правильным способом сделать это.

Function processNumbers(Var as Range) As Variant
    NumberOfCells = Var.Cells.Count
    NumberOfRows = Var.Rows.Count
    NumberOfColumns = Var.Columns.Count
    RangeAddress = Var.Address

    ' Iterate the range  (slow)
    For Each Cl in Var.Cells
        ' ...
    Next

    ' Get Values from range as an array
    Dim Dat as variant
    Dat = var

    ' Iterate array
    For rw = LBound(Dat,1) to UBound(Dat,1)
        For col = LBound(Dat,2) to UBound(Dat,2)
            ' reference Dat(rw,col)
        Next col
    Nest rw

    ' Put (modified) values back into range.  Note: won't work in a UDF
    Val = Dat
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...