|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.05.2010, 17:37 | #1 |
Новичок
Джуниор
Регистрация: 01.05.2010
Сообщений: 2
|
Корреляция на VBA в excel
Добрый день!
Необходимо посчитать корреляцию между двумя массивами данных, не используя встроенные функции excel. Спасибо. |
01.05.2010, 18:27 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Если это не техзадание и у Вас отключен Гугл,то теория здесь
Примеры кодов здесь правда на VB6,но синтаксис очень похож.главное алгоритм
Анализ,обработка данных Недорого
|
01.05.2010, 19:06 | #3 |
Новичок
Джуниор
Регистрация: 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 При запуске для каждой строчки запрашивает обновление данных. Возможно ли создать цикл, и сделать чтобы обновление запрашивалось один раз? |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |