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

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

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2010, 17:37   #1
Olga_N
Новичок
Джуниор
 
Регистрация: 01.05.2010
Сообщений: 2
По умолчанию Корреляция на VBA в excel

Добрый день!
Необходимо посчитать корреляцию между двумя массивами данных, не используя встроенные функции excel.
Спасибо.
Olga_N вне форума Ответить с цитированием
Старый 01.05.2010, 18:27   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Если это не техзадание и у Вас отключен Гугл,то теория здесь

Примеры кодов здесь
правда на VB6,но синтаксис очень похож.главное алгоритм
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 01.05.2010, 19:06   #3
Olga_N
Новичок
Джуниор
 
Регистрация: 01.05.2010
Сообщений: 2
По умолчанию

Спасибо! Но боюсь это слишком сложно для меня(
Вот я написала простейший вариант, используя встроенную функцию correl.
Private Sub CommandButton2_Click()
Cells(2, 2).Value = "=correl(Россия!A2:A121,Армения!A2: A121)"
Cells(2, 3).Value = "=correl(Россия!A2:A121,Армения!B2: B121)"
Cells(2, 4).Value = "=correl(Россия!A2:A121,Армения!c2: c121)"
Cells(2, 5).Value = "=correl(Россия!A2:A121,Армения!d2: d121)"
Cells(2, 6).Value = "=correl(Россия!A2:A121,Армения!e2: e121)"
Cells(2, 7).Value = "=correl(Россия!A2:A121,Армения!f2: f121)"
Cells(2, 8).Value = "=correl(Россия!A2:A121,Армения!g2: g121)"
Cells(2, 9).Value = "=correl(Россия!A2:A121,Армения!h2: h121)"
Cells(2, 10).Value = "=correl(Россия!A2:A121,Армения!i2: i121)"
Cells(2, 11).Value = "=correl(Россия!A2:A121,Армения!j2: j121)"
Cells(2, 12).Value = "=correl(Россия!A2:A121,Армения!k2: k121)"
Cells(2, 13).Value = "=correl(Россия!A2:A121,Армения!l2: l121)"
Cells(2, 14).Value = "=correl(Россия!A2:A121,Армения!m2: m121)"
Cells(2, 15).Value = "=correl(Россия!A2:A121,Армения!n2: n121)"
Cells(2, 16).Value = "=correl(Россия!A2:A121,Армения!o2: o121)"
Cells(2, 17).Value = "=correl(Россия!A2:A121,Армения!p2: p121)"
Cells(2, 18).Value = "=correl(Россия!A2:A121,Армения!q2: q121)"

Cells(3, 2).Value = "=correl(Россия!b2:b121,Армения!a2: a121)"
Cells(3, 3).Value = "=correl(Россия!b2:b121,Армения!B2: B121)"
Cells(3, 4).Value = "=correl(Россия!b2:b121,Армения!c2: c121)"
Cells(3, 5).Value = "=correl(Россия!b2:b121,Армения!d2: d121)"
Cells(3, 6).Value = "=correl(Россия!b2:b121,Армения!e2: e121)"
Cells(3, 7).Value = "=correl(Россия!b2:b121,Армения!f2: f121)"
Cells(3, 8).Value = "=correl(Россия!b2:b121,Армения!g2: g121)"
Cells(3, 9).Value = "=correl(Россия!b2:b121,Армения!h2: h121)"
Cells(3, 10).Value = "=correl(Россия!b2:b121,Армения!i2: i121)"
Cells(3, 11).Value = "=correl(Россия!b2:b121,Армения!j2: j121)"
Cells(3, 12).Value = "=correl(Россия!b2:b121,Армения!k2: k121)"
Cells(3, 13).Value = "=correl(Россия!b2:b121,Армения!l2: l121)"
Cells(3, 14).Value = "=correl(Россия!b2:b121,Армения!m2: m121)"
Cells(3, 15).Value = "=correl(Россия!b2:b121,Армения!n2: n121)"
Cells(3, 16).Value = "=correl(Россия!b2:b121,Армения!o2: o121)"
Cells(3, 17).Value = "=correl(Россия!b2:b121,Армения!p2: p121)"
Cells(3, 18).Value = "=correl(Россия!b2:b121,Армения!q2: q121)"

Cells(4, 2).Value = "=correl(Россия!c2:c121,Армения!a2: a121)"
Cells(4, 3).Value = "=correl(Россия!c2:c121,Армения!b2: b121)"
Cells(4, 4).Value = "=correl(Россия!c2:c121,Армения!c2: c121)"
Cells(4, 5).Value = "=correl(Россия!c2:c121,Армения!d2: d121)"
Cells(4, 6).Value = "=correl(Россия!c2:c121,Армения!e2: e121)"
Cells(4, 7).Value = "=correl(Россия!c2:c121,Армения!f2: f121)"
Cells(4, 8).Value = "=correl(Россия!c2:c121,Армения!g2: g121)"
Cells(4, 9).Value = "=correl(Россия!c2:c121,Армения!h2: h121)"
Cells(4, 10).Value = "=correl(Россия!c2:c121,Армения!i2: i121)"
Cells(4, 11).Value = "=correl(Россия!c2:c121,Армения!j2: j121)"
Cells(4, 12).Value = "=correl(Россия!c2:c121,Армения!k2: k121)"
Cells(4, 13).Value = "=correl(Россия!c2:c121,Армения!l2: l121)"
Cells(4, 14).Value = "=correl(Россия!c2:c121,Армения!m2: m121)"
Cells(4, 15).Value = "=correl(Россия!c2:c121,Армения!n2: n121)"
Cells(4, 16).Value = "=correl(Россия!c2:c121,Армения!o2: o121)"
Cells(4, 17).Value = "=correl(Россия!c2:c121,Армения!p2: p121)"
Cells(4, 18).Value = "=correl(Россия!c2:c121,Армения!q2: q121)"
End Sub

При запуске для каждой строчки запрашивает обновление данных.
Возможно ли создать цикл, и сделать чтобы обновление запрашивалось один раз?
Olga_N вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA Word,VBA Excel решить 2 задачи fafolo4ka Фриланс 6 05.03.2012 01:15
VBA Excel Михай Фриланс 1 25.04.2010 01:33
VBA Excel PashaD Microsoft Office Excel 2 21.03.2010 18:47
Как запретить запуск программы на VBA Excel 2003 в Excel 2007 kovalevskivf Microsoft Office Excel 2 15.05.2009 16:47
Excel VBA fidot Microsoft Office Excel 1 28.12.2008 19:20