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

Вход

Регистрация

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

 

= Мир MS Excel/Форматирование колонтитула со ссылкой на ячейку в Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Форматирование колонтитула со ссылкой на ячейку в Excel
lАлександраl Дата: Пятница, 23.03.2018, 16:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте. Вопрос: как в нижеуказанном макросе добавить колонтитулу форматирование? .RightFooter = "&""Times New Roman,обычный""&10ТЕКСТ"
Для указания формата в колонтитуле нужно прописать сам текст, а текст не является константой, так как колонтитул содержит ссылку на ячейки.

[vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
PoslStr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 20
With ActiveSheet.PageSetup
.RightFooter = Sheets(1).Range("C4").Text & " на сумму: " & Sheets(1).Cells(PoslStr, 7).Text & " руб. с НДС"
End With
End Sub
[/vba]
К сообщению приложен файл: __WIN__.xlsm (25.2 Kb)


Сообщение отредактировал Manyasha - Понедельник, 26.03.2018, 11:14
 
Ответить
СообщениеЗдравствуйте. Вопрос: как в нижеуказанном макросе добавить колонтитулу форматирование? .RightFooter = "&""Times New Roman,обычный""&10ТЕКСТ"
Для указания формата в колонтитуле нужно прописать сам текст, а текст не является константой, так как колонтитул содержит ссылку на ячейки.

[vba]
Код
Private Sub Workbook_BeforePrint(Cancel As Boolean)
PoslStr = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 20
With ActiveSheet.PageSetup
.RightFooter = Sheets(1).Range("C4").Text & " на сумму: " & Sheets(1).Cells(PoslStr, 7).Text & " руб. с НДС"
End With
End Sub
[/vba]

Автор - lАлександраl
Дата добавления - 23.03.2018 в 16:11
Mikael Дата: Пятница, 23.03.2018, 17:57 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 80
Репутация: 31 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Попробуйте:
[vba]
Код
.RightFooter = "&""Times New Roman,обычный""&10" & Sheets(1).Range("C4").Text & " на сумму: " & Sheets(1).Cells(PoslStr, 7).Text & " руб. с НДС"
[/vba]

[p.s.] оформите код тегами: в режиме редактирования выделите свой код и нажмите на панели кнопку #
К сообщению приложен файл: _WIN_.xlsm (26.3 Kb)


Сообщение отредактировал Mikael - Пятница, 23.03.2018, 18:05
 
Ответить
СообщениеДобрый день!
Попробуйте:
[vba]
Код
.RightFooter = "&""Times New Roman,обычный""&10" & Sheets(1).Range("C4").Text & " на сумму: " & Sheets(1).Cells(PoslStr, 7).Text & " руб. с НДС"
[/vba]

[p.s.] оформите код тегами: в режиме редактирования выделите свой код и нажмите на панели кнопку #

Автор - Mikael
Дата добавления - 23.03.2018 в 17:57
lАлександраl Дата: Понедельник, 26.03.2018, 11:08 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Mikael,
Работает, спасибо вам большое!
 
Ответить
СообщениеMikael,
Работает, спасибо вам большое!

Автор - lАлександраl
Дата добавления - 26.03.2018 в 11:08
Julia1663 Дата: Понедельник, 12.09.2022, 11:07 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 80% ±

Здравствуйте, уважаемые форумчане. Столкнулась с такой проблемой: мне необходимо написать в нижний правый колонтитул листа номер страницы, повернутый на 90гр. Страница сейчас в альбомной ориентации, но при распечатывании и сшивке основной книги, она будет книжной ориентации, и еще проблема в том, что этот номер страницы должен быть взять в квадратик... Пожалуйста помогите... я в кодах и макросах не особо разбираюсь, но нашла один код, вот такой:
[vba]
Код
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
[/vba]

К сожалению, он вставляет просто значение ячейки... Даже если я поверну в ячейке текст, то в колонтитул он все равно вставляется в альбомной ориентации, хотя в ячейке повернут... Попробовала вставить в ячейку надпись, как раз то, что мне нужно, чтобы был квадратик и само число повернуто на 90гр, но тогда макрос просто ничего не вставил... и еще такая просьба, эти номера страниц должны начинаться с любого числа , например 22 или 35 и далее на каждом листе увеличиваться на 1... пожалуйста, помогите=)


Сообщение отредактировал Serge_007 - Понедельник, 12.09.2022, 11:24
 
Ответить
СообщениеЗдравствуйте, уважаемые форумчане. Столкнулась с такой проблемой: мне необходимо написать в нижний правый колонтитул листа номер страницы, повернутый на 90гр. Страница сейчас в альбомной ориентации, но при распечатывании и сшивке основной книги, она будет книжной ориентации, и еще проблема в том, что этот номер страницы должен быть взять в квадратик... Пожалуйста помогите... я в кодах и макросах не особо разбираюсь, но нашла один код, вот такой:
[vba]
Код
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
[/vba]

К сожалению, он вставляет просто значение ячейки... Даже если я поверну в ячейке текст, то в колонтитул он все равно вставляется в альбомной ориентации, хотя в ячейке повернут... Попробовала вставить в ячейку надпись, как раз то, что мне нужно, чтобы был квадратик и само число повернуто на 90гр, но тогда макрос просто ничего не вставил... и еще такая просьба, эти номера страниц должны начинаться с любого числа , например 22 или 35 и далее на каждом листе увеличиваться на 1... пожалуйста, помогите=)

Автор - Julia1663
Дата добавления - 12.09.2022 в 11:07
  • Страница 1 из 1
  • 1
Поиск:

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