|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.02.2012, 12:37 | #41 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Hugo 121, напиши плиз можно такое или нет? А то через 2 часа на ковер.
|
07.02.2012, 13:07 | #42 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Workbooks("2.xls").Close вынесите из этого цикла, поставьте перед последним end if.
Так файл всегда будет закрываться, если открылся. Ну и ещё нужно отключить на время работы обновление экрана - не будет мельтешить. Добавьте после If Err = 0 Then строку Application.ScreenUpdating = False а в конце кода Application.ScreenUpdating = True
webmoney: E265281470651 Z422237915069 R418926282008
|
07.02.2012, 13:26 | #43 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Спасибо, Hugo 121! Все отлично. Последний маленький нюанс. В ячейку D я ввожу данные и все нормально. Но если мне в ячейку G Price писать новую цену, то опять открывается второй файл. Насчет web кошелька лучше в личку писать?
|
07.02.2012, 13:49 | #44 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Чтоб зазря файл не открывать - перенесите код, делающий эту работу, после проверки диапазона:
Код:
Application.ScreenUpdating = False нужно в начало кода писать, перед On Error Resume Next Про деньги - а что там писать? Я цену не назначал... Хотите поделиться заработанным - номер ниже, не откажусь, интернет дома не дешёвый
webmoney: E265281470651 Z422237915069 R418926282008
|
07.02.2012, 13:58 | #45 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ещё немного подправил - вот так вроде всё должно быть:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 07.02.2012 в 14:01. |
07.02.2012, 14:04 | #46 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Спасибо большое. Очень помог, чтобы в дальнейшем не тратить время на проверку цены и т.п. Это не заказ. Но в конце месяца зарплата есть. Значит на кошелек кидать я так понял оплату интернета (за месяц, за год, за......) По какой книжке учился?
|
07.02.2012, 14:08 | #47 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Это конечно уже не важно, но почему если несколько ячеек выделяешь и нажимаешь Delete, то появляется ошибка. А по одной очищаешь - без проблем?
|
07.02.2012, 14:13 | #48 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Интернет за месяц не оплатите... ~30$ Потому что не по кабелю идёт - а другого нет...
Ну а книжек не читал - лучшие учителя - это форумы и лень ("двигатель прогресса"). Лень всё это делать руками - ну Вы теперь тоже это думаю поняли
webmoney: E265281470651 Z422237915069 R418926282008
|
07.02.2012, 14:16 | #49 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
По удалению - нужно считать, сколько ячеек изменяется. Т.к. код рассчитан на обработку одной ячейки.
Добавьте первой строкой If Target.Cells.Count > 1 Then Exit Sub
webmoney: E265281470651 Z422237915069 R418926282008
|
07.02.2012, 14:22 | #50 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Ну все Вы меня убили, получилось классно. Спасибо большое. В конце месяца поможем с интернетом. Тему можно закрывать. Hugo 121 большой респект.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа в Delphi с Excel файлами! | Leximus | Общие вопросы Delphi | 5 | 02.10.2010 11:37 |
связи между файлами excel | redfield | Microsoft Office Excel | 0 | 04.05.2010 16:22 |
Резервное копирование папки с файлами xls (Excel 2003) | vfv | Microsoft Office Excel | 11 | 12.03.2010 17:05 |
Работа с файлами из Excel | axell_pnz | Microsoft Office Excel | 4 | 16.11.2009 11:10 |
работа с excel файлами через Delphi | Winss | Помощь студентам | 6 | 08.09.2007 17:54 |