|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.10.2008, 19:15 | #1 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
Функции в макросе.
Вечер добрый.
Подскажите что нужно исправить в коде стобы он складывал значения в ячейке а не ячейку.. With Sheets("Сводная") For j = 2 To Sheets("Marks").Cells(Rows.Count, "A").End(xlUp).Row a = 0 For i = 8 To Sheets("Сводная").Cells(Rows.Count, "A").End(xlUp).Row Set x = Sheets("Сводная").Columns("A").Find (what:=Sheets("Marks").Cells(j, 1), LookAt:=xlWhole) If Not x Is Nothing Then If .Cells(x.Row, 6) = "" Then GoTo m1 a = a + .Cells(x.Row, 6) End If m1: Next i Sheets("Marks").Cells(j, 3) = a Next j End With End Sub Только можно пороще чтобы я разобрался? Заранее СПАСИБО ЗА ОТВЕТ..... Последний раз редактировалось Rom1k06; 17.10.2008 в 19:20. |
17.10.2008, 23:20 | #2 |
Пользователь
Регистрация: 04.09.2008
Сообщений: 15
|
а вы не складывайте ячейки
складывайте значения Cells(x.Row, 6).Value |
18.10.2008, 11:01 | #3 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
Не помогает.......
Может вначале кода присвоить Dim a as variant ? Как еще можно.. |
18.10.2008, 11:50 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Приложили бы Вы пример в виде файла - сразу бы и разобрались...
Попробуйте так, вдруг поможет... Код:
|
19.10.2008, 09:57 | #5 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
Не неполучается чтото , выкладываю файлик
внутри краткое описание того чт о надо сделать ... надо сумму всей значений колонки поставить в соответствующею колонку листа 2 в строку согласно искомому критерию ... |
19.10.2008, 10:30 | #6 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Используйте такой код:
Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 19.10.2008 в 10:32. Причина: немного подправил код |
19.10.2008, 10:48 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Проблема в вашем коде заключалась в том, что, хоть Вы и перебирали в цикле все ячейки на странице СВОДНАЯ, но метод Find применяли для поиска ячейки во всём столбце А. Соответственно, каждый раз находилась одна и та же ячейка (первая подходящая в этом столбце), и суммировались значения из одной и той же строки 32 раза.
Кстати, Ваша задача решаема без использования макроса - достаточно написать одну большую формулу и вставить её в ячейки листа MARKS... Но по формулам я не специалист |
19.10.2008, 11:22 | #8 |
Форумчанин
Регистрация: 30.07.2008
Сообщений: 125
|
нет без помощи макроса сдесь необойтись т.к. это только часть таблицы
насамом деле этоограмны инструмент автоматизации процесса аналитики... в этот код я еще добавлю автоматическое пополнение критериев... это 1 из 4 модулей... спасибо за ваш ответ..... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как прописатьв макросе повтор... | Bu$ter | Microsoft Office Excel | 6 | 18.09.2008 09:40 |
Суммирование элементов массива в макросе | IgorKr | Общие вопросы C/C++ | 1 | 14.04.2008 01:22 |
Константы в Макросе | valerij | Microsoft Office Excel | 2 | 03.02.2008 23:33 |
использование в макросе другой книги | Роня | Microsoft Office Excel | 19 | 13.09.2007 15:47 |