Форматирование колонтитула со ссылкой на ячейку в Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование колонтитула со ссылкой на ячейку в Excel (Макросы/Sub)

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

Ответить

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

Ответить

lАлександраl

Дата: Понедельник, 26.03.2018, 11:08 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

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

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

Excel 2016

Mikael,
Работает, спасибо вам большое!

Ответить

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]

Код

Автор - Julia1663
Дата добавления - 12.09.2022 в 11:07

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