Пользовательская функция с диапазоном в качестве параметра

[SanSanblch]

Друзья помогите бедному студенту с VBA.
Надо в предложенном диапозоне найти самую динную строку из тех, длина которых меньше , либо равна 15.

Или
Аргумент функция - квадратный диапозон значений . Повернуть его на 90 градусов , и окрасить его крассный цвет.
Или подскажите где именно об этом можно почитать !!!

Подскажите как покрасить определённую ячейку в определённый цвет??

[EducatedFool]

Надо в предложенном диапозоне найти самую динную строку из тех, длина которых меньше , либо равна 15.

Function СамаяДлиннаяСтрока(ByRef ra As Range) As Integer
    Dim cell As Range: СамаяДлиннаяСтрока = 0
    For Each cell In ra.Cells
        ДлинаТекста = Len(cell)
        If ДлинаТекста <= 15 Then If ДлинаТекста > СамаяДлиннаяСтрока Then СамаяДлиннаяСтрока = ДлинаТекста
    Next cell
End Function

Sub ПримерИспользования()
    MsgBox СамаяДлиннаяСтрока([b2:b11])
End Sub

Аргумент функция - квадратный диапозон значений . Повернуть его на 90 градусов , и окрасить его крассный цвет.

Sub ПоворотДиапазонаЯчеек(ByRef ra As Range)
    ' Аргумент функция - квадратный диапозон значений .
    ' Повернуть его на 90 градусов , и окрасить его крассный цвет.
    If ra.Rows.Count <> ra.Columns.Count Then MsgBox "Диапазон не квадратный", vbCritical: Exit Sub
    Сторона = ra.Rows.Count
    arr = ra.Value: ReDim arr2(1 To Сторона, 1 To Сторона)
    For i = 1 To Сторона
        For j = 1 To Сторона
            arr2(j, Сторона - i + 1) = arr(i, j)
        Next
    Next
    ra.Value = arr2: ra.Interior.Color = vbRed
End Sub

Sub ПримерИспользования()
    For i = 1 To 5: For j = 1 To 5: Cells(i, j) = i & " " & j: Next: Next
    ПоворотДиапазонаЯчеек ([a1:e5]): MsgBox "Сейчас ещё раз повернём"
    ПоворотДиапазонаЯчеек ([a1:e5]): MsgBox "Сейчас ещё раз повернём"
    ПоворотДиапазонаЯчеек ([a1:e5]): MsgBox "Сейчас ещё раз повернём"
    ПоворотДиапазонаЯчеек ([a1:e5]): MsgBox "Сейчас ещё раз повернём"
End Sub

[SanSanblch]

Большое спасибо учитель!!!