|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
13.07.2008, 15:10 | #1 |
Пользователь
Регистрация: 13.11.2007
Сообщений: 33
|
Суммирование определенных ячеек при переносе
Возникла проблемка. Вот кусок кода, с помощью которого вводимые на одном листе данные переносятся с добавлением строки на другой лист:
Private Sub CommandButton1_Click() Application.ScreenUpdating = False With Sheets("Промежуточные_итоги").Range ("A999").End(xlUp).Item(2) If Not .Locked Or Not Me.ProtectContents Then .Value = Me.Range("B4").Value Else MsgBox "Ячейка : " & .Address & " защищена", , "" End If End With With Sheets("Промежуточные_итоги").Range ("A999").End(xlUp).Item(2) If Not .Locked Or Not Me.ProtectContents Then .Value = Me.Range("D4").Value Else MsgBox "Ячейка : " & .Address & " защищена", , "" End If End With With Sheets("Промежуточные_итоги").Range ("F999").End(xlUp).Item(2) If Not .Locked Or Not Me.ProtectContents Then .Value = Me.Range("C4").Value Else MsgBox "Ячейка : " & .Address & " защищена", , "" End If End With With Sheets("Промежуточные_итоги").Range ("F999").End(xlUp).Item(2) If Not .Locked Or Not Me.ProtectContents Then .Value = Me.Range("E4").Value Else MsgBox "Ячейка : " & .Address & " защищена", , "" End If End With Собственно вопрос - как сделать чтобы при выполнении этого кода, определенные ячейки на том листе куда переносятся данные суммировались. Напрмер А1 и F1. Не прибегая к формуле СУММ |
14.07.2008, 05:24 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Попробуй вместо строки
Код:
Код:
Чем шире угол зрения, тем он тупее.
|
16.07.2008, 15:10 | #3 |
Пользователь
Регистрация: 13.11.2007
Сообщений: 33
|
Спасибо, но я так понял - это другой вариант вставить данные на другой лист с прибавлением строки. А возможно ли к этому добавить суммировоние той ячейки КУДА вставляются данные с уже имеющимися и вывести результат в еще одной без использования формулы СУММ. Например: Данные Лист1 В4 копируются в Лист2 А1, А1 суммируется с А2 и результат заносится в А3.
|
16.07.2008, 15:24 | #4 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 16.07.2008 в 15:28. |
|
16.07.2008, 16:58 | #5 |
Пользователь
Регистрация: 13.11.2007
Сообщений: 33
|
Вот что получилось. Но дело вот в чем, Из Листа1 В4 и D4 данные переносятся на Лист2 в столбец А и В соответственно с добавлением строки. Надо чтобы сумма Лист2 А и В суммировались тоже по мере добавления.
Последний раз редактировалось Pilot; 16.07.2008 в 17:39. |
17.07.2008, 12:46 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Я бы сделал так (см. вложение) Если, конечно, нужно знать конкретный адрес ячейки, которая защищена. Если этого не требуется - все гораздо проще.
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
СУММИРОВАНИЕ И ПОДСЧЕТ ЯЧЕЕК ОКРАШЕННЫХ В РАЗНЫЙ ЦВЕТ | Arina | Microsoft Office Excel | 11 | 29.01.2009 14:35 |
опять о переносе программы на другой компьютер | bmb_66 | БД в Delphi | 4 | 17.04.2008 01:42 |
Суммирование ячеек с флажками | 69angel69 | Microsoft Office Excel | 2 | 04.03.2008 18:23 |
Суммирование ячеек с заданным шагом | valerij | Microsoft Office Excel | 10 | 10.10.2007 00:22 |