|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
28.11.2008, 21:03 | #1 |
Форумчанин
Регистрация: 15.11.2008
Сообщений: 577
|
Помтогите исправить ошибку с поиском
Код:
когда вводиш дание которих нет виводит ран таайм ерор (91) дание вводяться з тексбокста |
28.11.2008, 21:29 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
А замените-ка это
If Not result Then на это If result is Nothing Then Я так понимаю, что сообщения о том, что ничего не найдено никогда не появлялось. правильно?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
29.11.2008, 08:45 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
result = Cells.Find(...........).Activate
То есть если в ячейке обнаруживался исходный текст, то переменной result присваивалось значение True. Если же искомое значение отсутствовало, возникала ошибка при попытке активации отсутствующей ячейки... Если убрать Activate, код работает, причём появляется сообщение "nothing is find, try again ;-)" В этом случае в переменную result попадает текстовое значение содержимого первой найденной ячейки. Вот в таком виде код будет работать: Код:
.ThemeColor = xlThemeColorDark1 .TintAndShade = -0.349986266670736 .PatternTintAndShade = 0 в Excel 2003 я не обнаружил... |
29.11.2008, 11:40 | #4 |
Форумчанин
Регистрация: 15.11.2008
Сообщений: 577
|
спасибо большое
З.Ы. ети свойства есть в ексель 2007 |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужно исправить ошибку | TheVenny | Помощь студентам | 17 | 06.11.2008 16:26 |
Помогите исправить ошибку | artem_MG | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 27.10.2008 17:42 |
Исправить ошибку | LLIypLLIyH | Помощь студентам | 5 | 16.06.2008 16:50 |
Помогите исправить ошибку | Булат | Общие вопросы Delphi | 3 | 25.04.2008 10:01 |
помогите исправить ошибку. | alen666 | Паскаль, Turbo Pascal, PascalABC.NET | 11 | 08.03.2008 16:43 |