Application.DisplayAlerts = False
'Имеет смысл использовать, если Вы не хотите, чтобы
'при об'единении ячеек на экране могло появиться сообщение,
'информирующее о том, что :
'Выделение содержит несколько значений данных.
'Об'единение ячеек приведёт к потере всех значений,
'кроме левого верхнего.
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
Application.DisplayAlerts = True
Как работает Range в Excel
у меня несколько страниц в книге и мне надо выделить диапазон ячеек, допустим 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. Можь че не так делаю??? Весьма признателен всем кто поможет. Заранее спасибо.
код проги:
' 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. Можь че не так делаю??? Весьма признателен всем кто поможет. Заранее спасибо.
Выделение (Select) и активация (Activate) в большинстве случаев (и данный не является исключением) есть операция совершенно ненужная. К примеру, для того, чтобы изменить параметры форматирования диапазона ячеек неактивного рабочего листа, можно просто указать родителей (хотя справедливости ради следует заменить, что попытка изменить параметры форматирования в защищённом рабочем листе неизменно приведёт к ошибке, причём ошибка возникнет даже в том случае, если ячейки, параметры форматирования которых необходимо изменить, будут не защищены. впрочем, подобное безобразие продолжалось только до появления MS Excel XP)
Что касается об'екта Range и его методов Select/Activate, то здесь всё просто … для того, чтобы выделить некий диапазон необходимо сначала активировать нужную рабочую книгу (если книга уже является активной, этот шаг можно пропустить), затем активировать нужный рабочий лист (если лист уже является активным, то этот шаг также можно пропустить) и только затем выделять диапазон. Однако повторюсь, выделение диапазона не есть необходимость, но если очень хочется, то и в этом случае можно обойтись без вышеупомянутых методов, ибо :
Естественно, что в момент выполнения этой инструкции рабочая книга с именем "Книга1.xls" обязательно должна быть открыта и в ней должен наличествовать рабочий лист с именем "Лист1"
Код:
Что касается об'екта 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
'и т.д. и т.п.
Workbooks("Книга1.xls").Worksheets("Лист1").Range("B2:E2") ', Scroll:=True
Вместо имени книги и листа можно использовать их индекс(номер)
'Application.Goto Application.Range("[Книга1.xls]Лист1!B2:E2") ', True
'и т.д. и т.п.
Естественно, что в момент выполнения этой инструкции рабочая книга с именем "Книга1.xls" обязательно должна быть открыта и в ней должен наличествовать рабочий лист с именем "Лист1"