|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2010, 13:12 | #1 |
Регистрация: 15.04.2010
Сообщений: 6
|
организовать итерационный процесс
Всем привет!
При написании макроса я столкнулся со следующей проблемой: Есть 3 ячейки A1 B1 C1 В А1 перебираются числа с 2 до 200000 В В1 дана формула, зависящая от А1(пусть будет В1=А1) В С1 необходимо проссумировать все значения B1, сначала там занесен 0, т е грубо говоря С1 = С1 + В1 Вот мой код с несколько другими ячейками, но не в этом дело Код:
Код:
|
15.04.2010, 13:46 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Подход к решению проблемы изначально неверен.
Во-первых, Selection.FormulaR1C1 = "=Sum(RC[-3],RC)" не сработает (получается циклическая ссылка, а Excel их не любит) Во-вторых, какой бы сложной не была формула в ячейке B1, всё можно вычислить макросом, вообще не обращаясь к листу (да и макрос отработает за секунду, а не за час, как в случае с вашим макросом) В-третьих, опишите нормально задачу: 1) что за формула 2) что и зачем надо подсчитать 3) не помешает пример файла. Макрос получится простой (а, может, даже формулу можно будет придумать такую, что она сама вычислит сумму для всех значений с 2 до 200000), но он будет выглядеть совсем не так, как вы намереваетесь сделать это сейчас. |
15.04.2010, 14:04 | #3 |
Регистрация: 15.04.2010
Сообщений: 6
|
Данная работа является тестом для программы, написанной на другом языке. Есть ряд Сумма k/((k^4-a^4)*tanh(pi*k)).k=1,inf a=0.1 Погрешность 1e-15. Мне известно точное значение. Я определил, что ряд сходится при k=205136. Теперь нужно то же получить через Excel. Я хочу вывести первые 10 значений К, текущего значения ряда при данном K и частичной суммы. Потом пропуск и 205135 и 205136 шаг
|
15.04.2010, 14:07 | #4 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
я так понял значения в ячейки А1 перебираются с помощью макроса?
тогда можно так: Код:
|
15.04.2010, 19:05 | #5 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Возможно этот макрос сможет проверить
Код:
Анализ,обработка данных Недорого
|
15.04.2010, 20:21 | #6 |
Регистрация: 15.04.2010
Сообщений: 6
|
Все сделал, всем огромное спасибо!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите организовать сохранение | Yuri_K | Microsoft Office Excel | 1 | 02.09.2009 22:25 |
Организовать матрицу | 24nastya11 | Общие вопросы C/C++ | 3 | 15.06.2009 13:29 |
как организовать цикл? | Aqil_f | Microsoft Office Excel | 3 | 03.06.2009 10:13 |
Процесс | ryton | Операционные системы общие вопросы | 5 | 28.05.2008 18:14 |