|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
06.02.2012, 15:19
|
#31 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Вот строка с проверкой ввода If myC = 4 And Len(ThisWorkbook.Sheets(1).Range("D " & myR)) >= 2 Then Как ее обмануть?
|
|
|
|
06.02.2012, 15:27
|
#32 |
|
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Блин, слон
 Проверка ввода совсем в другом месте! в 2003 Данные->Проверка ввода или в англ. варианте: Data->Validation Вот как в 2007/10 - не скажу, не помню P.S. Я думал, что знаете... Хотя предполагал...
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 06.02.2012 в 15:30. |
|
|
|
|
06.02.2012, 15:30
|
#33 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Проверка данных!
Я ее убрал, не нужна она мне. Мне единственное, что нужно так это чтобы вводились новые данные без этой проверки данных. |
|
|
|
|
06.02.2012, 15:34
|
#34 |
|
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну так если убрали - то ошибки быть не должно. Вводите что угодно - ну а там уж найдёт или не найдёт...
Ну или показывайте файл с ошибкой.
webmoney: E265281470651 Z422237915069 R418926282008
|
|
|
|
|
06.02.2012, 15:41
|
#35 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Спаситель Вы наш. Вот файл. Ошибку выдает такую Введено неверное значение и на этом капец. Нельзя ввести данные
|
|
|
|
|
06.02.2012, 15:46
|
#36 |
|
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну и где ж убрали? Это проверка ввода и ругается.
webmoney: E265281470651 Z422237915069 R418926282008
|
|
|
|
|
06.02.2012, 16:09
|
#37 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Хуго, пожалуйста скажите не томите, я уже запутался. Bullet to my brand
Вот оставил If myC = 4 Then Set myF = Sh.Cells.Find(ThisWorkbook.Sheets(1 ).Range("D" & myR)) If Not myF Is Nothing Then ThisWorkbook.Sheets(1).Range("G" & myR) = Sh.Range("E" & myF.Row) Workbooks("2.xls").Close End If Он все равно ругается. |
|
|
|
|
06.02.2012, 16:53
|
#38 |
|
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ещё раз: ругается Data Validation ( http://www.programmersforum.ru/showp...4&postcount=32 )
Уберите со всего столбца - но тогда не будет выпадающего списка. Ну или сделайте как тут написано: http://www.programmersforum.ru/showp...3&postcount=24
webmoney: E265281470651 Z422237915069 R418926282008
|
|
|
|
|
06.02.2012, 21:21
|
#39 | |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Цитата:
|
|
|
|
|
|
07.02.2012, 08:55
|
#40 |
|
Форумчанин
Регистрация: 22.04.2011
Сообщений: 155
|
Hugo 121, доброе утро! Вроде ошибки не выдает, но как сделать, чтобы при вводе новых данных курсор не перепрыгивал на второй файл, а работать дальше? Зашел в этот файл, а потом Workbooks("2.xls").Close. Где это прописать?
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Работа в 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 |
