|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
16.12.2008, 11:41 | #1 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Помогите подправить формулу!
Допустим на листе в столбце А есть значения: А, Б, В, Г, Д и Е.
Если с помощью данного кода я ищу одно из этих значений, то все ОК и выполняется команда GoTo 1. Но если я ищу допустим Ж, то выдается ошибка "Object variable or With block variable not set", и GoTo 4 не выполняется. Что надо подправить. If Selection.Find(What:="А", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Select Then GoTo 1 Else: GoTo 4 End If Спасибо! |
16.12.2008, 12:23 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
я бы так написал вместо вашего:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
16.12.2008, 12:40 | #3 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Потрясающе! Все заработало как надо!
Огромнейшее СПАСИБО! А можно еще вопрос? Я пользуюсь Вашей записью: Workbooks.Open Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & "" Хотелось бы написать код, который бы искал файл с указанным именем в папке "Архив цен", и если таковой не найден то MsgBox "Файл не найден!" и выход из процедуры. |
16.12.2008, 12:44 | #4 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Может быть надо так?
If Not Workbooks.Find Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & "" Then MsgBox "Фал не найден" GoTo 3 где 3 - это путь к End Sub |
16.12.2008, 13:02 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Можно, например, так:
Код:
В результате, если файл с таким именем в этой папке существует, то он откроется, а если нет - выход из процедуры.
Чем шире угол зрения, тем он тупее.
|
16.12.2008, 13:43 | #6 |
Форумчанин
Регистрация: 29.10.2008
Сообщений: 294
|
Имяфайла уже содержит разрешение.
В общем, я подправил и сделал вот так: On Error Resume Next Workbooks.Open Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & "" If Err <> 0 Then GoTo 5 ' путь к меседжбокс и End Sub Else: Windows(Имяфайла).Activate ActiveWindow.Close GoTo 7 ' Продолжение кода End If Все заработало лучшим образом. СПАСИБО за идею!!! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
constructor, destructor override. Подправить код. | Roof | Общие вопросы Delphi | 9 | 31.07.2008 13:41 |
Помогите пожалуйста исправить подправить процедуру (строки) | Rumus | Помощь студентам | 5 | 02.07.2008 16:50 |
Помогите написать формулу | Pinguin82 | Microsoft Office Excel | 4 | 01.07.2008 09:01 |
Помогите найти формулу | ALEXEI_76 | Microsoft Office Excel | 10 | 29.04.2008 22:52 |