Помогите подправить формулу! - Microsoft Office Excel

Maxx · 16.12.2008, 11:41

Допустим на листе в столбце А есть значения: А, Б, В, Г, Д и Е.

Если с помощью данного кода я ищу одно из этих значений, то все ОК и выполняется команда 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

Спасибо!

IgorGO · 16.12.2008, 12:23

я бы так написал вместо вашего:

Код:

on error goto 4
If Selection.Find(What:="А", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select Then GoTo 1

Maxx · 16.12.2008, 12:40

Потрясающе! Все заработало как надо!
Огромнейшее СПАСИБО!

А можно еще вопрос?

Я пользуюсь Вашей записью:
Workbooks.Open Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & ""

Хотелось бы написать код, который бы искал файл с указанным именем в папке "Архив цен", и если таковой не найден то MsgBox "Файл не найден!" и выход из процедуры.

Maxx · 16.12.2008, 12:44

Может быть надо так?

If Not Workbooks.Find Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & "" Then
MsgBox "Фал не найден"
GoTo 3

где 3 - это путь к End Sub

SAS888 · 16.12.2008, 13:02

Можно, например, так:

Код:

On Error Resume Next
    Workbooks.Open (ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла)
    If Err <> 0 Then Exit Sub
    On Error GoTo 0

Где "Имяфайла" должно содержать расширение. Если нет - добавьте через &.
В результате, если файл с таким именем в этой папке существует, то он откроется, а если нет - выход из процедуры.

Maxx · 16.12.2008, 13:43

Имяфайла уже содержит разрешение.

В общем, я подправил и сделал вот так:

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

Все заработало лучшим образом. СПАСИБО за идею!!!

16.12.2008, 11:41	#1
Maxx Форумчанин Регистрация: 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
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	я бы так написал вместо вашего: Код: `on error goto 4 If Selection.Find(What:="А", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Select Then GoTo 1` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

16.12.2008, 13:02	#5
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Можно, например, так: Код: `On Error Resume Next Workbooks.Open (ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла) If Err <> 0 Then Exit Sub On Error GoTo 0` Где "Имяфайла" должно содержать расширение. Если нет - добавьте через &. В результате, если файл с таким именем в этой папке существует, то он откроется, а если нет - выход из процедуры. Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
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

16.12.2008, 12:40	#3
Maxx Форумчанин Регистрация: 29.10.2008 Сообщений: 294	Потрясающе! Все заработало как надо! Огромнейшее СПАСИБО! А можно еще вопрос? Я пользуюсь Вашей записью: Workbooks.Open Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & "" Хотелось бы написать код, который бы искал файл с указанным именем в папке "Архив цен", и если таковой не найден то MsgBox "Файл не найден!" и выход из процедуры.

16.12.2008, 12:44	#4
Maxx Форумчанин Регистрация: 29.10.2008 Сообщений: 294	Может быть надо так? If Not Workbooks.Find Filename:=ActiveWorkbook.Path & "\Архив цен" & "\" & Имяфайла & "" Then MsgBox "Фал не найден" GoTo 3 где 3 - это путь к End Sub

16.12.2008, 13:43	#6
Maxx Форумчанин Регистрация: 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 Все заработало лучшим образом. СПАСИБО за идею!!!