21.7 Использование нескольких UDF с аппроксимаций и интерполяцией.

Описание

Последовательное использование нескольких макросов интерполяции/аппроксимации при решении сложных задач.
Использование оптимизации работы при создании UDF аппроксимации и интерполяции номограмм типа "Диаграмма режимов ПТ".

Отсылки к видео данные и методы из которых использованы в данном ролике.
поиск решения или обратная функция - https://rutube.ru/video/d559b638f3fd8c99db5f83feaef52f19/?playlist=651987
создание UDF для функции двух аргументов с помощью интерполяции - https://rutube.ru/video/bbe52410f5321e0ed7b6c5df1805e938/?playlist=651987
создание UDF для функции одного аргумента. Создание модуля кусочно линейной интерполяции - https://rutube.ru/video/3fdf81dda2a803cc41d4c7df604073a4/?r=wd
построение хода решения - https://rutube.ru/video/7109050ca8732a2690bdccebc500575d/?playlist=651987

Вспомогательные макросы для облегчения работы.
Макрос копирования в память без использования кавычек ====
' Копировать ячейку К7
Sub Copy_K7()
With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText Range("K7")
.PutInClipboard
End With
End Sub

Макрос очистки столбцов исходных данных ====
' Очистка ячеек
Sub ОчисткаGH()
A = MsgBox("Внимание!" & _
Chr(10) & "Вы точно очистить столбцы значений?" & _
Chr(10) & "Это необратимо!", _
52, "Замена исходных данных.")
' Если OK, то замену производим
If A ﹤﹥ 6 Then
Exit Sub
End If
' Очистка столбцов исходных данных
With Range("G3:H5000")
.NumberFormat = "0.00"
.ClearContents
.Interior.Pattern = xlNone
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
End With

Range("G3").Select
End Sub

Остальные видео по оцифровке- https://rutube.ru/plst/651987/
Группа в Telegram t.me/tep_raschet
Группа в МАХ https://max.ru/join/AcmeFwFIxHiRqW7eb7Dui1DGcrOQnYGIrU9_gU1nPoI
#аппроксимация #интерполяция #оцифровка #оцифровканомограм #оцифровкаНТД #VBA #Excel #энергетика