Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: Пред. 1 2 3 4 5 6
RSS
Подборка функций пользователя
 
Некоторые, из ранее озвученных функций, отдельными файлами:
CircleCenter_3D - расчёт радиуса и координат центра окружности, описанной вокруг трёх точек в пространстве;
ConcatViaDelim - сцепление данных через разделитель;
GetInfoType - получение информации о данных;
PolygonArea - расчёт площади простого многоугольника по координатам вершин;
Substitutes - множественная замена символов в тексте.
Изменено: Evgenyy - 29 окт 2020 20:11:58
 
UDF: FindCellsAddress - поиск ячеек по значению свойства ячейки.
Первый аргумент - диапазон поиска, второй - свойство ячейки, третий - значение свойства.

Код
Function FindCellsAddress(DataRange As Range, Properti As String, Valua As Variant) As String
    Dim Area As Range, Cell As Range, Rng As Range
    Dim Arr As Variant, i As Long, u As Long, Obj As Object
    Application.Volatile
    Arr = Split(Properti, ".")
    u = UBound(Arr)
    For Each Area In DataRange.Areas
        For Each Cell In Area.Cells
            Set Obj = Cell
            For i = 0 To u - 1
                Set Obj = CallByName(Obj, Arr(i), VbGet)
            Next i
            If CallByName(Obj, Arr(u), VbGet) = Valua Then
                If Rng Is Nothing Then Set Rng = Cell Else Set Rng = Application.Union(Rng, Cell)
            End If
        Next Cell
    Next Area
    If Rng Is Nothing Then FindCellsAddress = "no address" Else FindCellsAddress = Rng.Address
End Function
Изменено: Evgenyy - 29 сен 2020 18:16:59
 
Обновление Library_UDF.

Добавлены функции:
FindCellsAddress - поиск ячеек по значению свойства ячейки;
GetRGB - определение значений RGB по цвету заливки ячейки;
GetHSL - определение значений HSL по цвету заливки ячейки.
 
Evgenyy, спасибо!
Страницы: Пред. 1 2 3 4 5 6
Читают тему (гостей: 1)
Наверх