Глюк дистрибутива Excel или заморочка макрорекордера? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Глюк дистрибутива Excel или заморочка макрорекордера? - Мир MS Excel

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

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

Глюк дистрибутива Excel или заморочка макрорекордера?

Глюк дистрибутива Excel или заморочка макрорекордера?

Дата: Среда, 25.12.2013, 23:37 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 314

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

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

Excel 2016

Всем доброго времени суток!

Столкнулся с такой ситуацией. На разных машинах, под управлением разных операционных систем (winXPх32, win7х64? win8.1x64) стоит MS Office 2010.
Необходимо было в Excel дописать в макрос пару строк, формирующие заданные поля на странице и верхний и нижний колонтитул.
Воспользовался штатным макрорекордером... Поля прописались, а вот с верхним колонтитулом заморочка. А именно: либо он не прописывается, либо при различных вариациях появляется пара символов, но не то, что требуется. Я озадачился сим моментом. Попробовал те же действия в макрорекордере Excel 2007 - все получается на ура. Колонтитул на месте, как должно быть.
Скачал другой дистрибутив MS Office 2010, переустановил на одной из машин. Попробовал снова прописать макрос - та же проблема.
Кто-нибудь уже сталкивался с такими заморочками в Excel 2010? Или мне попадаются "кривые" сборки!?
У кого как? Поделитесь наблюдениями.

А то уже начал задумываться, не вернуться ли на версию 2007

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Дата: Четверг, 26.12.2013, 00:21 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16719

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

У меня в 2010 макрорекодер пишет колонтитулы так (лишнее постирал):
[vba]

Код

Sub Макрос1()
      With ActiveSheet.PageSetup
          .LeftHeader = "123"
          .CenterHeader = "лллл рррр"
          .RightHeader = "01/05/2013"
          .LeftFooter = "01/10/2014"
          .CenterFooter = "159-86"
          .RightFooter = "уеук пра гнла "
      End With
End Sub

[/vba]
И они действительно ставятся

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Сообщение отредактировал _Boroda_ - Четверг, 26.12.2013, 00:22

Ответить

Дата: Четверг, 26.12.2013, 09:02 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 314

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

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

Excel 2016

Цитата _Boroda_, 26.12.2013 в 00:21, в сообщении № 2

И они действительно ставятся

Понял. Спасибо за информацию.
У меня код выглядит иначе, а значит будем искать дистрибутив без багов

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Дата: Четверг, 26.12.2013, 09:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16719

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата igrtsk, 26.12.2013 в 09:02, в сообщении № 3

У меня код выглядит иначе

А как? Интересно посмотреть.
Сейчас посмотрел на работе в 2010 и 2013, обе лицензионные, код (после чистки ненужного) такой же. И если ставить колонтитулы из вкладки "Вставка" - "Колонтитулы", и если из вкладки "Разметка страницы" войти в "Параметры страницы", а там в "Колонтитулы", и из меню "Файл" - "Печать" - "Параметры страницы".
Кстати, а Вы записывали код откуда? И что получится, если писать из других мест?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Дата: Четверг, 26.12.2013, 10:05 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 314

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

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

Excel 2016

Последовательность моих действи:
1. Создаю чистую книгу
2.Запись макрорекордера
3.Вход в создание колонтитула через разметку страницы
4. Создаю верхний колонтитул: по центру страницы текущая дата
5. Остановка записи.
Имею:
[vba]

Код

Sub Колонтитул()
'
' Колонтитул Макрос
'

'
     Application.PrintCommunication = False
     With ActiveSheet.PageSetup
         .PrintTitleRows = ""
         .PrintTitleColumns = ""
     End With
     Application.PrintCommunication = True
     ActiveSheet.PageSetup.PrintArea = ""
     Application.PrintCommunication = False
     With ActiveSheet.PageSetup
         .LeftHeader = ""
         .CenterHeader = "&12&D"
         .RightHeader = ""
         .LeftFooter = ""
         .CenterFooter = ""
         .RightFooter = ""
         .LeftMargin = Application.InchesToPoints(0.708661417322835)
         .RightMargin = Application.InchesToPoints(0.708661417322835)
         .TopMargin = Application.InchesToPoints(0.748031496062992)
         .BottomMargin = Application.InchesToPoints(0.748031496062992)
         .HeaderMargin = Application.InchesToPoints(0.31496062992126)
         .FooterMargin = Application.InchesToPoints(0.31496062992126)
         .PrintHeadings = False
         .PrintGridlines = False
         .PrintComments = xlPrintNoComments
         .PrintQuality = 300
         .CenterHorizontally = False
         .CenterVertically = False
         .Orientation = xlPortrait
         .Draft = False
         .PaperSize = xlPaperA4
         .FirstPageNumber = xlAutomatic
         .Order = xlDownThenOver
         .BlackAndWhite = False
         .Zoom = 100
         .PrintErrors = xlPrintErrorsDisplayed
         .OddAndEvenPagesHeaderFooter = False
         .DifferentFirstPageHeaderFooter = False
         .ScaleWithDocHeaderFooter = True
         .AlignMarginsHeaderFooter = True
         .EvenPage.LeftHeader.Text = ""
         .EvenPage.CenterHeader.Text = ""
         .EvenPage.RightHeader.Text = ""
         .EvenPage.LeftFooter.Text = ""
         .EvenPage.CenterFooter.Text = ""
         .EvenPage.RightFooter.Text = ""
         .FirstPage.LeftHeader.Text = ""
         .FirstPage.CenterHeader.Text = ""
         .FirstPage.RightHeader.Text = ""
         .FirstPage.LeftFooter.Text = ""
         .FirstPage.CenterFooter.Text = ""
         .FirstPage.RightFooter.Text = ""
     End With
     Application.PrintCommunication = True
End Sub

[/vba]
При воспроизведении макроса колонитул на странице пропадает

Последовательность моих действи:
1. Создаю чистую книгу
2.Запись макрорекордера
3.Вход в создание колонтитула через разметку страницы
4. Создаю верхний колонтитул: по центру страницы текущая дата
5. Остановка записи.
Имею:
[vba]

Код

Sub Колонтитул()
'
' Колонтитул Макрос
'

'
     Application.PrintCommunication = False
     With ActiveSheet.PageSetup
         .PrintTitleRows = ""
         .PrintTitleColumns = ""
     End With
     Application.PrintCommunication = True
     ActiveSheet.PageSetup.PrintArea = ""
     Application.PrintCommunication = False
     With ActiveSheet.PageSetup
         .LeftHeader = ""
         .CenterHeader = "&12&D"
         .RightHeader = ""
         .LeftFooter = ""
         .CenterFooter = ""
         .RightFooter = ""
         .LeftMargin = Application.InchesToPoints(0.708661417322835)
         .RightMargin = Application.InchesToPoints(0.708661417322835)
         .TopMargin = Application.InchesToPoints(0.748031496062992)
         .BottomMargin = Application.InchesToPoints(0.748031496062992)
         .HeaderMargin = Application.InchesToPoints(0.31496062992126)
         .FooterMargin = Application.InchesToPoints(0.31496062992126)
         .PrintHeadings = False
         .PrintGridlines = False
         .PrintComments = xlPrintNoComments
         .PrintQuality = 300
         .CenterHorizontally = False
         .CenterVertically = False
         .Orientation = xlPortrait
         .Draft = False
         .PaperSize = xlPaperA4
         .FirstPageNumber = xlAutomatic
         .Order = xlDownThenOver
         .BlackAndWhite = False
         .Zoom = 100
         .PrintErrors = xlPrintErrorsDisplayed
         .OddAndEvenPagesHeaderFooter = False
         .DifferentFirstPageHeaderFooter = False
         .ScaleWithDocHeaderFooter = True
         .AlignMarginsHeaderFooter = True
         .EvenPage.LeftHeader.Text = ""
         .EvenPage.CenterHeader.Text = ""
         .EvenPage.RightHeader.Text = ""
         .EvenPage.LeftFooter.Text = ""
         .EvenPage.CenterFooter.Text = ""
         .EvenPage.RightFooter.Text = ""
         .FirstPage.LeftHeader.Text = ""
         .FirstPage.CenterHeader.Text = ""
         .FirstPage.RightHeader.Text = ""
         .FirstPage.LeftFooter.Text = ""
         .FirstPage.CenterFooter.Text = ""
         .FirstPage.RightFooter.Text = ""
     End With
     Application.PrintCommunication = True
End Sub

[/vba]
При воспроизведении макроса колонитул на странице пропадаетigrtsk

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

СообщениеПоследовательность моих действи:
1. Создаю чистую книгу
2.Запись макрорекордера
3.Вход в создание колонтитула через разметку страницы
4. Создаю верхний колонтитул: по центру страницы текущая дата
5. Остановка записи.
Имею:
[vba]

Код

Sub Колонтитул()
'
' Колонтитул Макрос
'

'
     Application.PrintCommunication = False
     With ActiveSheet.PageSetup
         .PrintTitleRows = ""
         .PrintTitleColumns = ""
     End With
     Application.PrintCommunication = True
     ActiveSheet.PageSetup.PrintArea = ""
     Application.PrintCommunication = False
     With ActiveSheet.PageSetup
         .LeftHeader = ""
         .CenterHeader = "&12&D"
         .RightHeader = ""
         .LeftFooter = ""
         .CenterFooter = ""
         .RightFooter = ""
         .LeftMargin = Application.InchesToPoints(0.708661417322835)
         .RightMargin = Application.InchesToPoints(0.708661417322835)
         .TopMargin = Application.InchesToPoints(0.748031496062992)
         .BottomMargin = Application.InchesToPoints(0.748031496062992)
         .HeaderMargin = Application.InchesToPoints(0.31496062992126)
         .FooterMargin = Application.InchesToPoints(0.31496062992126)
         .PrintHeadings = False
         .PrintGridlines = False
         .PrintComments = xlPrintNoComments
         .PrintQuality = 300
         .CenterHorizontally = False
         .CenterVertically = False
         .Orientation = xlPortrait
         .Draft = False
         .PaperSize = xlPaperA4
         .FirstPageNumber = xlAutomatic
         .Order = xlDownThenOver
         .BlackAndWhite = False
         .Zoom = 100
         .PrintErrors = xlPrintErrorsDisplayed
         .OddAndEvenPagesHeaderFooter = False
         .DifferentFirstPageHeaderFooter = False
         .ScaleWithDocHeaderFooter = True
         .AlignMarginsHeaderFooter = True
         .EvenPage.LeftHeader.Text = ""
         .EvenPage.CenterHeader.Text = ""
         .EvenPage.RightHeader.Text = ""
         .EvenPage.LeftFooter.Text = ""
         .EvenPage.CenterFooter.Text = ""
         .EvenPage.RightFooter.Text = ""
         .FirstPage.LeftHeader.Text = ""
         .FirstPage.CenterHeader.Text = ""
         .FirstPage.RightHeader.Text = ""
         .FirstPage.LeftFooter.Text = ""
         .FirstPage.CenterFooter.Text = ""
         .FirstPage.RightFooter.Text = ""
     End With
     Application.PrintCommunication = True
End Sub

[/vba]
При воспроизведении макроса колонитул на странице пропадает

Автор - igrtsk
Дата добавления - 26.12.2013 в 10:05

Дата: Четверг, 26.12.2013, 10:30 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16719

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А если просто?
[vba]

Код

Sub Колонтитул()
ActiveSheet.PageSetup.CenterHeader = "&12&D"
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Сообщение отредактировал _Boroda_ - Четверг, 26.12.2013, 10:31

Ответить

Дата: Четверг, 26.12.2013, 10:55 | Сообщение № 7

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

Ранг: Обитатель

Сообщений: 314

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

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

Excel 2016

Безусловно, так проще. Спасибо за подсказку.
Честно говоря, я больше заморочился на тему: почему у меня в excel 2007 макрорекордер пишет корректно, а в 2010 - нет.
Раз ошибка имеет место, значит надо искать причину ее возникновения.
Ошибка в одном месте увеличивает многократно шансы возникновения ее в другом

Инструктор по применению лосей в кавалерийских частях РККА

Ответить

Глюк дистрибутива Excel или заморочка макрорекордера?

Страница 1 из 1
1

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