VPF::[vba] Аргумент функции квадратный диапазон

termik

Дата 15.3.2007, 08:28 (ссылка)

(нет голосов)

Загрузка ...

КотеГ

Профиль
Группа: Участник
Сообщений: 817
Регистрация: 20.11.2005

Репутация: нет
Всего: 33

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

Genyaa

Дата 16.3.2007, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Усердный

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 5
Всего: 11

Код


Public Function RotateRange(rr As Range, Optional d As Integer = 1) As Variant
'повернет аргумент квадратный диапазон на 90 градусов по часовой стрелке
'если второй необязательный аргумент d меньше 0 - против часовой стрелки
    Dim mm As Variant, tt As Variant, b As Long
'если диапазон аргумента не квадратный - вернуть ошибку - неправильный аргумент
    If rr.Rows.Count <> rr.Columns.Count Then 
         RotateRange = Error(5)
         Exit Function
    End If
'перенесем диапазон в массив
    mm = rr
'создадим еще массив для результата
    tt = mm
'размерность массива
    b = rr.Rows.Count
'начало цикла по строкам
    For i = 1 To b
'начало цикла по столбцам
        For j = 1 To b
'если d > 0 - по часовой
            If d >= 0 Then
'присвоение очередного значения элемента массива
                tt(j, b + 1 - i) = mm(i, j)
            Else
'против часовой
                tt(b + 1 - j, i) = mm(i, j)
            End If
'конец цикла по столбцам
        Next j
'конец цикла по строкам
    Next i
'результат
    RotateRange = tt
End Function

--------------------

Всякое решение плодит новые проблемы.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »