Произошла исключительная ситуация microsoft excel метод select из класса range завершен неверно
Обновлено: 06.07.2024
у меня несколько страниц в книге и мне надо выделить диапазон ячеек, допустим B2:E2 для каких-то действий. делаю Range("B2:E2").Select, он мне пишет что я или за пределы диапазона вышел или неправильно использую select. перед range писал и к кокой книги.рабочимуЛисту отностится, короче ничего не помогает.
код проги:
' Sheets(nnPage).Range("B2:E2").Select
' With Selection
' .HorizontalAlignment = xlCenter
' .VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
' End With
' Selection.Merge
Ошибка: "метод Select из класса Range завершен неверно"
P.S. Можь че не так делаю. Весьма признателен всем кто поможет. Заранее спасибо.
1 ответ
Выделение (Select) и активация (Activate) в большинстве случаев (и данный не является исключением) есть операция совершенно ненужная. К примеру, для того, чтобы изменить параметры форматирования диапазона ячеек неактивного рабочего листа, можно просто указать родителей (хотя справедливости ради следует заменить, что попытка изменить параметры форматирования в защищённом рабочем листе неизменно приведёт к ошибке, причём ошибка возникнет даже в том случае, если ячейки, параметры форматирования которых необходимо изменить, будут не защищены. впрочем, подобное безобразие продолжалось только до появления MS Excel XP)
'Выделение содержит несколько значений данных.
'Об'единение ячеек приведёт к потере всех значений,
'кроме левого верхнего.
With ThisWorkbook.Worksheets(1).Range("B2:E2")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True '.Merge
End With
Что касается об'екта Range и его методов Select/Activate, то здесь всё просто … для того, чтобы выделить некий диапазон необходимо сначала активировать нужную рабочую книгу (если книга уже является активной, этот шаг можно пропустить), затем активировать нужный рабочий лист (если лист уже является активным, то этот шаг также можно пропустить) и только затем выделять диапазон. Однако повторюсь, выделение диапазона не есть необходимость, но если очень хочется, то и в этом случае можно обойтись без вышеупомянутых методов, ибо :
Application.Goto Reference:= _
Workbooks("Книга1.xls").Worksheets("Лист1").Range("B2:E2") ', Scroll:=True
Вместо имени книги и листа можно использовать их индекс(номер)
'Application.Goto Application.Range("[Книга1.xls]Лист1!B2:E2") ', True
Естественно, что в момент выполнения этой инструкции рабочая книга с именем "Книга1.xls" обязательно должна быть открыта и в ней должен наличествовать рабочий лист с именем "Лист1"
Ошибка VBA 1004 - это ошибка, с которой мы сталкиваемся при выполнении кода в VBA. Он также известен как ошибка времени выполнения VBA. Когда мы работаем в VBA или на любом другом языке программирования или даже в нашей повседневной работе, мы сталкиваемся с различными видами ошибок. Иногда даже мы пропускаем один символ в коде, что приводит к тому, что весь код не работает или, возможно, весь код неверен.
Ошибки, безусловно, являются частью кода, который мы пишем. Это может быть непреднамеренным, но они существуют. Независимо от того, насколько мы профессиональны в кодировании, ошибки во время выполнения могут возникнуть где угодно. Как объяснено выше VBA 1004 Ошибка - это ошибка, которая возникает во время выполнения кода в Excel. Это также называется ошибкой приложения или объекта.
Существуют различные типы причин, по которым мы получаем VBA Runtime Error 1004 в Excel, давайте рассмотрим некоторые из них.
- Ошибка выполнения VBA 1004: сбой метода «Диапазон» объекта «_ Global»:
Эта ошибка возникает, когда значение диапазона, которое мы ссылаемся на VBA, неверно. Он также называется метод «Диапазон» объекта «_ Global» не удалось.
- Ошибка выполнения VBA 1004: это имя уже занято.Попробуйте другой:
Мы присваиваем одно и то же имя рабочему листу, который уже занесен другим рабочим листом.
- Ошибка выполнения VBA 1004: невозможно получить свойство select класса Range:
Это ошибка, когда мы выбираем диапазон на другом листе, не активируя тот лист, на который мы ссылаемся.
- Ошибка выполнения VBA 1004: сбой метода «Открыть» объекта «Книги»:
Эта ошибка возникает, когда мы пытаемся открыть рабочую книгу, которая уже открыта, или файл уже используется другой программой.
- Ошибка выполнения VBA 1004: извините, мы не смогли найти:
Мы получаем эту ошибку, когда пытаемся открыть лист, который не существует.
Как мы узнали, могут быть разные причины, по которым мы получаем ошибку во время выполнения. Ошибка выполнения может возникнуть в любой строке кода. Нам нужно научиться обрабатывать эти ошибки, и это называется VBA Error Handling.
Пример VBA Runtime Ошибка 1004 в Excel
Теперь, когда я описал различные типы ошибок, которые могут возникать во время выполнения любого кода VBA, теперь давайте изучим их, как они выглядят на примерах.
Вы можете скачать этот шаблон Excel с ошибкой VBA 1004 здесь - Шаблон Excel с ошибкой VBA 1004
Ошибка выполнения VBA 1004 - Пример № 1
Как объяснено об этой ошибке, эта ошибка возникает, когда мы ссылаемся на неверное значение именованного диапазона в VBA. Это может произойти, если мы допустим орфографическую ошибку именованного диапазона, чтобы сослаться на диапазон, который даже не существует. Чтобы продемонстрировать это, давайте сначала создадим именованный диапазон. У меня есть следующие данные здесь.
- Давайте назовем этот заголовок таблицы как DATA .
- Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
Код:
- Вызовите заголовок, который мы назвали следующим кодом, написанным ниже.
Код:
- Когда мы запускаем код, мы видим в Excel, что он был выбран, поскольку мы правильно вызвали заголовок.
- Теперь мы неправильно написали орфографию имени заголовка.
Код:
- Запустите код еще раз, чтобы увидеть результат.
Мы получаем Excel VBA Runtime Ошибка 1004, потому что мы неправильно написали имя диапазона.
Ошибка выполнения VBA 1004 - Пример № 2
Мы получаем эту ошибку, когда пытаемся переименовать лист с именем, которое уже занято. Например, я переименовал лист 1 в « Ананд », и я постараюсь переименовать лист 2 в тот же, чтобы увидеть результат.
- Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
- Объявите подфункцию, чтобы начать писать код.
Код:
- Попробуйте переименовать лист 2 в Anand с помощью следующего кода ниже,
Код:
- Запустите приведенный выше код и посмотрите результат.
Ошибка выполнения VBA 1004 - Пример № 3
Я попытаюсь добавить значение из листа 2 к переменной на листе 3. Но я не буду активировать лист 2 и посмотрю, что произойдет.
- Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
- Объявите подфункцию, чтобы начать писать код.
Код:
- Объявите две переменные A и B как целое число.
Код:
- В переменной B сохраните значение A в дополнение к ячейке A1 листа 2.
Код:
- Давайте предположим, что код работает, и используем функцию msgbox для отображения значения B.
Код:
- Запустите код, чтобы увидеть полученный результат.
Мы получаем эту ошибку, потому что мы не активировали лист 2, но мы пытаемся использовать значение листа 2.
Ошибка выполнения VBA 1004 - Пример № 4
Мы сталкиваемся с этой ошибкой во время выполнения, когда у нас уже открыто одно и то же имя рабочей книги, но мы пытаемся открыть ее снова.
В этом примере я уже переименовал свою книгу в VBA 1004 Error.xlsm, и я попытаюсь снова открыть ее, которая уже открыта, и посмотреть, получу ли я ошибку VBA 1004.
- Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
- Объявите подфункцию, чтобы начать писать код.
Код:
- Объявите переменную в качестве рабочей книги.
Код:
Попробуйте открыть книгу, которую мы уже открыли, с помощью следующего кода.
Код:
Запустите приведенный выше код, чтобы увидеть результат.
Мы получаем эту ошибку, потому что мы уже открыли ту же книгу.
Ошибка выполнения VBA 1004 - Пример № 5
Мы получаем эту ошибку, когда пытаемся открыть книгу, которой не существует. Это в некоторой степени похоже на приведенную выше ошибку, поскольку VBA не может найти книгу.
- Перейдите на вкладку Разработчик, нажмите на Visual Basic, чтобы открыть VB Editor.
- Объявите подфункцию, чтобы начать писать код.
Код:
- Попробуйте открыть любую книгу с помощью следующего кода,
Код:
- Я уже удалил лист с места.
- Запустите код, чтобы увидеть результат.
Поскольку лист не существует в данном месте, мы получаем эту ошибку.
То, что нужно запомнить
- Всегда проверяйте на наличие орфографических ошибок.
- Не переименовывайте несколько листов с одинаковыми именами.
- Перед звонком по любой другой ссылке обязательно активируйте соответствующий лист.
- Прежде чем пытаться открыть любой другой лист, убедитесь, что указан правильный путь.
Рекомендуемые статьи
Это было руководство к VBA 1004 Ошибка. Здесь мы обсудили Excel VBA Runtime Error 1004 вместе с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -
Читайте также: