|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
31.07.2008, 11:20 | #1 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Прибавление данніх из двух столбцов
Возникла задача прибавить к данным столбца М (начиная с 74 ячейки) прибавить данные столбца N (начиная с 10 ячейки). Я написал код
Sub msain() Dim i As Long, summa As Double, x As Double, j As Long Application.ScreenUpdating = False For i = 74 To Cells(Rows.Count, "A").End(xlUp).Row summa = Cells(i, "M") For j = 10 To Cells(Rows.Count, "A").End(xlUp).Row Cells(i, "M") = summa + Cells(j, "N") Next Next End Sub Но он неправильно считает. Помогите его пожалуйста подправить. Спасибо |
31.07.2008, 12:57 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
судя по заданию - требуется к ячейкам столбца М, начиная с 74 строки, добавить содержимое ячеек из столбца N (начиная с 10 ячейки).
А в коде к ячейке столбца М энное количество раз прибавляется ее собственное значение + сумма энного числа ячеек из столбца N. Если вернуться к первой задаче код должен быть таким: Sub msain() Dim i As Long, summa As Double, x As Double, j As Long Application.ScreenUpdating = False For i = 74 To Cells(Rows.Count, "A").End(xlUp).Row Cells(i, "M") = Cells(i, "M") + Cells(i-64, "N") Next End Sub Есть тут еще один источник проблемы - определение количества обрабатываемых ячеек: Cells(Rows.Count, "A").End(xlUp).Row Данные обрабатываем в колонке М, а сколько их есть определяем по колонке А. Возможно, все так задумано, но мне кажется это не логично.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
01.08.2008, 10:12 | #3 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Спасибо большое, все получилось!!!
|
01.08.2008, 11:40 | #4 |
Форумчанин
Регистрация: 06.03.2008
Сообщений: 352
|
Проще и быстрее
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенос данніх в зависимости от цвета ячейки | gavrylyuk | Microsoft Office Excel | 8 | 08.08.2008 19:11 |
Отображение в форме и таблице двух столбцов подстановок | smoky | Microsoft Office Access | 5 | 01.07.2008 09:27 |
Скрытие столбцов по условию | snake980 | Microsoft Office Excel | 6 | 26.02.2008 16:52 |
Как извлечь из двух столбцов несовпадающие строки | Shavminator | Microsoft Office Excel | 4 | 28.12.2007 12:23 |