![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#41 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
![]()
Hugo 121, напиши плиз можно такое или нет? А то через 2 часа на ковер.
|
![]() |
![]() |
![]() |
#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
|
![]() |
![]() |
![]() |
#43 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
![]()
Спасибо, Hugo 121! Все отлично. Последний маленький нюанс. В ячейку D я ввожу данные и все нормально. Но если мне в ячейку G Price писать новую цену, то опять открывается второй файл. Насчет web кошелька лучше в личку писать?
|
![]() |
![]() |
![]() |
#44 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Чтоб зазря файл не открывать - перенесите код, делающий эту работу, после проверки диапазона:
Код:
Application.ScreenUpdating = False нужно в начало кода писать, перед On Error Resume Next Про деньги - а что там писать? Я цену не назначал... Хотите поделиться заработанным - номер ниже, не откажусь, интернет дома не дешёвый ![]()
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#45 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Ещё немного подправил - вот так вроде всё должно быть:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 07.02.2012 в 14:01. |
![]() |
![]() |
![]() |
#46 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
![]()
Спасибо большое. Очень помог, чтобы в дальнейшем не тратить время на проверку цены и т.п. Это не заказ. Но в конце месяца зарплата есть. Значит на кошелек кидать я так понял оплату интернета (за месяц, за год, за......
![]() |
![]() |
![]() |
![]() |
#47 |
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
![]()
Это конечно уже не важно, но почему если несколько ячеек выделяешь и нажимаешь Delete, то появляется ошибка. А по одной очищаешь - без проблем?
|
![]() |
![]() |
![]() |
#48 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Интернет за месяц не оплатите... ~30$ Потому что не по кабелю идёт - а другого нет...
Ну а книжек не читал - лучшие учителя - это форумы и лень ("двигатель прогресса"). Лень всё это делать руками - ну Вы теперь тоже это думаю поняли ![]()
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#49 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
По удалению - нужно считать, сколько ячеек изменяется. Т.к. код рассчитан на обработку одной ячейки.
Добавьте первой строкой If Target.Cells.Count > 1 Then Exit Sub
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#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 |