| Код |
Public Function СЦЕПЯЧЕЙКИ(Optional rr As Range = Nothing, Optional sp As Long = 1) As String
'пользовательская функция - возвращает конкатенацию текста ячеек области, указанной в аргументе
'rr - область ячеек (если пропущен - то пусто)
'sp - количество пробелов (если пропущен - то 1)
'
'объявляем локальную переменную, использующуюся в цикле для области одной очередной ячейки
Dim r As Range
'начальное значение - пустая строка нулевой длины
СЦЕПЯЧЕЙКИ = ""
'если rr пропущен - то выходим из функции - при этом значение функции = пустая строка нулевой длины
If rr Is Nothing Then Exit Function
'если sp<0 заменим на 0
If sp < 0 Then sp = 0
'цикл по всем ячейкам области аргумента
For Each r In rr.Cells
'конкатенация каждой следующей ячеки с текущим значением функции
'если sp =0, то пробелов нет
СЦЕПЯЧЕЙКИ = СЦЕПЯЧЕЙКИ & Space(sp) & r.Text
Next r
'уберем лидирующие пробелы из результата
СЦЕПЯЧЕЙКИ = LTrim(СЦЕПЯЧЕЙКИ)
End Function
|
|