Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Доработать автозапись макроса! - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир 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]
 
Ответить
СообщениеВоспользовалась автозаписью для создания макроса который форматирует определённый вид отчёта превращая в нужный мне формат. Уважаемые знатоки, вопрос - как теперь правильно сохранить форматированную книгу?

пример кода:

[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]
Автор - Юлия
Дата добавления - 08.12.2014 в 16:07
SkyPro Дата: Понедельник, 08.12.2014, 16:09 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

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

skypro1111@gmail.com
 
Ответить
СообщениеНе понятен вопрос.
Что бы макрос был доступен в любой открытой книге - запишите его в "личную книгу макросов" и удалите, после этого в теле макроса все, что заканчивается на [vba]
Код
.Select
[/vba]
Автор - SkyPro
Дата добавления - 08.12.2014 в 16:09
Vostok Дата: Понедельник, 08.12.2014, 16:12 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 211
Репутация: 1 ±
Замечаний: 40% ±

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

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

Сообщение отредактировал Vostok - Понедельник, 08.12.2014, 16:19
 
Ответить
СообщениеДа так и сохраняй как раньше сохраняла, только код - то надо доработать. МакроРекодер кучу ненужных вещей пишет.
Хотя подозреваю, что вопрос сформулирован некорректно. И файл в следующий раз файл прикладывай.
Автор - Vostok
Дата добавления - 08.12.2014 в 16:12
Cheshir0067 Дата: Понедельник, 08.12.2014, 16:12 | Сообщение № 4
Группа: Проверенные
Ранг: Новичок
Сообщений: 35
Репутация: 8 ±
Замечаний: 0% ±

Excel 2010
Если я правильно понял то будет так :
[vba]
Код

bo =ActiveWorkbook.Name
Workbooks(bo).Save
Windows(bo).Close
[/vba]

irelandzp@gmail.com

Сообщение отредактировал Cheshir0067 - Понедельник, 08.12.2014, 16:15
 
Ответить
СообщениеЕсли я правильно понял то будет так :
[vba]
Код

bo =ActiveWorkbook.Name
Workbooks(bo).Save
Windows(bo).Close
[/vba]
Автор - Cheshir0067
Дата добавления - 08.12.2014 в 16:12
Юлия Дата: Понедельник, 08.12.2014, 16:18 | Сообщение № 5
Группа: Гости
ок! всех поняла - буду изъясняться яснее. последнее кажется то, что нужно. По крайней мере, по существу и все работает
 
Ответить
Сообщениеок! всех поняла - буду изъясняться яснее. последнее кажется то, что нужно. По крайней мере, по существу и все работает
Автор - Юлия
Дата добавления - 08.12.2014 в 16:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Доработать автозапись макроса! (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!