Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2018, 15:38   #1
кристина1102
Новичок
Джуниор
 
Регистрация: 21.04.2018
Сообщений: 1
По умолчанию Помогите сделать линейную интерполяцию в вба

Необходимо сделать интерполяцию по t в vba, используя как можно простой алгоритм.
Изображения
Тип файла: jpg 111.JPG (14.9 Кб, 77 просмотров)
кристина1102 вне форума Ответить с цитированием
Старый 23.04.2018, 12:08   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Function Interpol(XY As Range, X)
  Dim r&
  If X < XY.Cells(1) Then Interpol = XY.Cells(1, 2): Exit Function
  If X > XY.Cells(XY.Rows.Count, 1) Then Interpol = XY.Cells(XY.Rows.Count, 2): Exit Function
  r = WorksheetFunction.Match(X, XY.Columns(1))
  If XY.Cells(r, 1) = X Then Interpol = XY.Cells(r, 2): Exit Function
  Interpol = XY.Cells(r, 2) + (XY.Cells(r + 1, 2) - XY.Cells(r, 2)) * (X - XY.Cells(r, 1)) / (XY.Cells(r + 1, 1) - XY.Cells(r, 1))
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите нужно составить программу языком ВБА !!! Александр010101010 Помощь студентам 1 30.11.2017 20:19
Для данной области составить линейную программу JL25A Помощь студентам 7 26.09.2011 20:49
Как реализовать интерполяцию? must_to_dont Microsoft Office Excel 14 15.12.2010 18:39
Программа проверяющая линейную зависимость Grabberhtf Помощь студентам 0 12.10.2010 20:40
Как определить линейную зависимость в Excel Pavarotti Microsoft Office Excel 27 14.09.2010 14:37