|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
30.01.2011, 14:04 | #1 |
Форумчанин
Регистрация: 21.01.2011
Сообщений: 118
|
Копирование строки формул при добавлении записи в ячейку
Столкнулся с такой проблемой - если завести формулы в таблицу из 5000 строк тормоза при пересчете ячеек
Можно ли релизовать такой алгоритм -строки формул оставить только в одной строке, чтобы они копировалась при добавлении данных Файл исх прилагаю |
30.01.2011, 14:38 | #2 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Наверное можно сделать по такому принципу
Код:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
30.01.2011, 18:09 | #3 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
я бы сделал так
Код:
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 30.01.2011 в 18:14. |
30.01.2011, 18:46 | #4 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
30.01.2011, 19:04 | #5 |
Форумчанин
Регистрация: 21.01.2011
Сообщений: 118
|
Код R Dmitry
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Value = "" Then Exit Sub If Target.Column = 3 Then Range(Cells(Target.Row, 7), Cells(Target.Row, 8)) _ = [g11:h11].Formula End If End Sub как переделать чтоб не срабатывал на числовые значения типа 0 а срабатывал только на текст при заполнении исх данных Последний раз редактировалось Uralmaster; 30.01.2011 в 19:11. |
30.01.2011, 19:54 | #6 | |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Цитата:
т.е вы хотите что бы только на текст?, тогда добавьте 3 строкой If IsNumeric(Target.Value) Then Exit Sub
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
|
30.01.2011, 20:01 | #7 |
Форумчанин
Регистрация: 21.01.2011
Сообщений: 118
|
дело в том что исх ячейки с данными заполняются по формуле = с др листа и если там ничего нет в исх ячейках значение 0
Последний раз редактировалось Uralmaster; 30.01.2011 в 21:43. |
30.01.2011, 21:42 | #8 |
Форумчанин
Регистрация: 21.01.2011
Сообщений: 118
|
еще блин задача усложнилась в 3 колонки надо копировать попробовал так
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If IsNumeric(Target.Value) Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Column = 3 Then Range(Cells(Target.Row, 7), Cells(Target.Row, 9)) _ = [g11:i11].Formula End If End Sub не получилось .... файл что поправить положил |
30.01.2011, 23:39 | #9 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
Код:
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
Последний раз редактировалось R Dmitry; 30.01.2011 в 23:42. |
31.01.2011, 00:42 | #10 |
Форумчанин
Регистрация: 21.01.2011
Сообщений: 118
|
код както странно работает стираю все значения начиная со строки 12 не стирает 12-ю при принудительном очищении 12-й строки добавляет запись в 13 строку и тд ( образцы формул находятся в 11 строке)
Последний раз редактировалось Uralmaster; 31.01.2011 в 00:45. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не отображается автоинкрементация при добавлении записи | vuzhakov | БД в Delphi | 10 | 27.04.2010 14:44 |
делфи ругается при добавлении записи | Cannibal | БД в Delphi | 8 | 23.04.2010 15:49 |
Событие при добавлении записи в BDGrid | Alexeyss | БД в Delphi | 2 | 19.08.2009 23:37 |
Проверка при добавлении записи | Tanya2008 | БД в Delphi | 3 | 22.04.2009 10:07 |
Изменение формул при добавлении строк | EducatedFool | Microsoft Office Excel | 4 | 02.12.2008 14:39 |