Доработать автозапись макроса!

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Доработать автозапись макроса! (Макросы/Sub)

Юлия

Дата: Понедельник, 08.12.2014, 16:07 | Сообщение № 1

Группа: Гости

Воспользовалась автозаписью для создания макроса который форматирует определённый вид отчёта превращая в нужный мне формат. Уважаемые знатоки, вопрос - как теперь правильно сохранить форматированную книгу?

пример кода:

[vba]

Код

Range("K17:P18").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("K21:P22").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("K15:P16").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("K19:P20").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B7:T7").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

[/vba]

Ответить

SkyPro

Дата: Понедельник, 08.12.2014, 16:09 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Не понятен вопрос.
Что бы макрос был доступен в любой открытой книге - запишите его в "личную книгу макросов" и удалите, после этого в теле макроса все, что заканчивается на [vba]

Код

.Select

[/vba]

skypro1111@gmail.com

Ответить

Vostok

Дата: Понедельник, 08.12.2014, 16:12 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 211

Репутация: 1 ±

Замечаний: 40% ±

Excel 2010

Да так и сохраняй как раньше сохраняла, только код - то надо доработать. МакроРекодер кучу ненужных вещей пишет.
Хотя подозреваю, что вопрос сформулирован некорректно. И файл в следующий раз файл прикладывай.

"Посылая кого-то в Google, Помните, завтра туда могут Послать Вас !"

Сообщение отредактировал Vostok - Понедельник, 08.12.2014, 16:19