Здравствуйте, уважаемые форумчане. Столкнулась с такой проблемой: мне необходимо написать в нижний правый колонтитул листа номер страницы, повернутый на 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... пожалуйста, помогите=) P.s. вставить файл, к сожалению, не могу=(
Здравствуйте, уважаемые форумчане. Столкнулась с такой проблемой: мне необходимо написать в нижний правый колонтитул листа номер страницы, повернутый на 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... пожалуйста, помогите=) P.s. вставить файл, к сожалению, не могу=(Julia1663
Serge_007, большое спасибо, что откликнулись! Я вообще не сильна в макросах, подскажите пожалуйста, то, что Вы написали, нужно вставить в код, который я присылала в предыдущем комментарии? и если да, то подскажите пожалуйста, куда я попробовала вставить просто отдельным модулем.. но ничего не произошло... может я что-то делаю не так... в предыдущем коде выскакивала надпись выберите ячейку, а в этом нужно как-то прямо в сам колонтитул встать? или нажать может куда-то... после того, как ввожу модуль в окне Visual Basic , нажимаю F5, может это не нужно было?... буду очень благодарна за объяснение
Serge_007, большое спасибо, что откликнулись! Я вообще не сильна в макросах, подскажите пожалуйста, то, что Вы написали, нужно вставить в код, который я присылала в предыдущем комментарии? и если да, то подскажите пожалуйста, куда я попробовала вставить просто отдельным модулем.. но ничего не произошло... может я что-то делаю не так... в предыдущем коде выскакивала надпись выберите ячейку, а в этом нужно как-то прямо в сам колонтитул встать? или нажать может куда-то... после того, как ввожу модуль в окне Visual Basic , нажимаю F5, может это не нужно было?... буду очень благодарна за объяснение Julia1663
Serge_007, еще раз здравствуйте. Только сейчас увидела, эта надпись у меня появилась слева, просто на листе, а мне нужно именно в нижний правый колонтитул написать. Все-таки получается, нужно вставить в тот код, который был предыдущий? или может по-другому как-то.. и еще такая просьба... нужно, чтобы этот квадратик был очерчен, чтобы границы были видны, надеюсь, что Вы поняли то, что я пытаюсь донести...
Serge_007, еще раз здравствуйте. Только сейчас увидела, эта надпись у меня появилась слева, просто на листе, а мне нужно именно в нижний правый колонтитул написать. Все-таки получается, нужно вставить в тот код, который был предыдущий? или может по-другому как-то.. и еще такая просьба... нужно, чтобы этот квадратик был очерчен, чтобы границы были видны, надеюсь, что Вы поняли то, что я пытаюсь донести...Julia1663
Сообщение отредактировал Julia1663 - Среда, 14.09.2022, 10:12
то, что Вы написали, нужно вставить в код, который я присылала в предыдущем комментарии?
Нет, это самостоятельный код Вставьте его в стандартный модуль и запустите В ячейке А1 появится надпись с повернутым текстом "12345" Что бы надпись вставлялась не в ячейку А1 измените цифры [vba]
Код
1, 2,
[/vba] в коде на другие Нужные придется подбирать опытным путем
то, что Вы написали, нужно вставить в код, который я присылала в предыдущем комментарии?
Нет, это самостоятельный код Вставьте его в стандартный модуль и запустите В ячейке А1 появится надпись с повернутым текстом "12345" Что бы надпись вставлялась не в ячейку А1 измените цифры [vba]
Код
1, 2,
[/vba] в коде на другие Нужные придется подбирать опытным путемSerge_007
Serge_007, и еще подскажите пожалуйста, цифра 3 в коде это поворот надписи? В коде, который Вы прислали, цифры повернуты влево на 90гр, а нужно повернуть вправо... И по поводу номера страницы, не подскажите? чтобы менялся на каждой странице, начиная не с 1, а с 20 или 34... И по поводу рамочки
Serge_007, и еще подскажите пожалуйста, цифра 3 в коде это поворот надписи? В коде, который Вы прислали, цифры повернуты влево на 90гр, а нужно повернуть вправо... И по поводу номера страницы, не подскажите? чтобы менялся на каждой странице, начиная не с 1, а с 20 или 34... И по поводу рамочкиJulia1663
Serge_007, https://www.sekretariat.ru/images/2019articles/2020/6-3-min.png. Вот по этой ссылке пример того, что в конечном счете должно получаться... так как таблица в альбомном режиме, то квадратик должен быть повернут на 90 гр вправо, чтобы при сшивке получилось, как на картинке. И должна быть вот такая рамочка.. Помогите с этим пожалуйста
Serge_007, https://www.sekretariat.ru/images/2019articles/2020/6-3-min.png. Вот по этой ссылке пример того, что в конечном счете должно получаться... так как таблица в альбомном режиме, то квадратик должен быть повернут на 90 гр вправо, чтобы при сшивке получилось, как на картинке. И должна быть вот такая рамочка.. Помогите с этим пожалуйста Julia1663
Serge_007, и еще подскажите пожалуйста, цифры, которые Вы сказали менять, чтобы вставилось в колонтитул, от 0 до 10? или вообще любые, даже миллионы? и менять нужно две цифры, или только двойку, которую Вы выделили красным?
Serge_007, и еще подскажите пожалуйста, цифры, которые Вы сказали менять, чтобы вставилось в колонтитул, от 0 до 10? или вообще любые, даже миллионы? и менять нужно две цифры, или только двойку, которую Вы выделили красным?Julia1663
Serge_007, я подставила цифры 760, 465, они подошли максимально вплотную к колонтитулу, но в колонтитул не встают. Наверное, эта формула для вставки именно в ячейки, а мне нужно в колонтитул :weep: :weep: :weep: :weep: :weep: :weep:
Serge_007, я подставила цифры 760, 465, они подошли максимально вплотную к колонтитулу, но в колонтитул не встают. Наверное, эта формула для вставки именно в ячейки, а мне нужно в колонтитул :weep: :weep: :weep: :weep: :weep: :weep:Julia1663
если я поверну в ячейке текст, то в колонтитул он все равно вставляется в альбомной ориентации
Думаю что у этой задачи нет решения Единственное что приходит в голову - наделать картинок с повернутым текстом и последовательно вставлять их в колонтитулы Но тогда уж проще будет вообще отказаться от колонтитулов и макросом пронумеровать страницы
если я поверну в ячейке текст, то в колонтитул он все равно вставляется в альбомной ориентации
Думаю что у этой задачи нет решения Единственное что приходит в голову - наделать картинок с повернутым текстом и последовательно вставлять их в колонтитулы Но тогда уж проще будет вообще отказаться от колонтитулов и макросом пронумеровать страницыSerge_007
Здравствуйте. Вдруг кто-то когда-то тоже столкнется с такой проблемой и будет искать в поисковике решение, поэтому напишу свое решение сюда, которое мне удалось применить. Я нарисовала через Paint рисунок прямоугольной рамочки, в которой должен стоять номер страницы, повернула ее в Paint и уменьшила. Далее в эксель, в нижнем правом колонтитуле я вставила картинку этой рамочки, слава Богу, в колонтитуле эксель можно вставлять рисунок))) Вставляйте в колонтитул рисунок и смотрите, что получается, возможно он будет больше, чем вам нужно, значит через Paint еще немного уменьшите размер, и так каждый раз опытным путем подгоняйте свою рамочку. Если рамочка залезает на основную часть таблицы, подгоните поля в разметке страницы. Затем я выделила готовую таблицу и перевела ее в пдф. Вроде везде можно выбрать принтер что-то типа EXcel to PDF (я надеюсь). И через программу Abbyy Fine Reader 14 (именно через нее) проставляла уже нумерацию, через колонтитул. Разверните все свои страницы в пдф, чтобы они стали книжной ориентации, в этой программе нажмите колонтитул, создать колонтитул, удалите все, что там в поле и нажмите "Нумерация Бейтса", увеличивать на каждой странице и на какое значение (на 1), а также начать с какого значения (например, 23 или 45, каждый раз меняется). В этом же окне, где вы редактируете колонтитул, слева есть картинка документа маленькая, нажмите стрелочку , в какой колонтитул вам требуется поставить значение, и там же есть значения полей (сверху, справа, слева, снизу), очень удобно в этой программе, что можно менять эту позицию колонтитула, вы увидите при смене значения позиции, как колонтитул двигается по странице документа, подгоните его на свою рамочку
Здравствуйте. Вдруг кто-то когда-то тоже столкнется с такой проблемой и будет искать в поисковике решение, поэтому напишу свое решение сюда, которое мне удалось применить. Я нарисовала через Paint рисунок прямоугольной рамочки, в которой должен стоять номер страницы, повернула ее в Paint и уменьшила. Далее в эксель, в нижнем правом колонтитуле я вставила картинку этой рамочки, слава Богу, в колонтитуле эксель можно вставлять рисунок))) Вставляйте в колонтитул рисунок и смотрите, что получается, возможно он будет больше, чем вам нужно, значит через Paint еще немного уменьшите размер, и так каждый раз опытным путем подгоняйте свою рамочку. Если рамочка залезает на основную часть таблицы, подгоните поля в разметке страницы. Затем я выделила готовую таблицу и перевела ее в пдф. Вроде везде можно выбрать принтер что-то типа EXcel to PDF (я надеюсь). И через программу Abbyy Fine Reader 14 (именно через нее) проставляла уже нумерацию, через колонтитул. Разверните все свои страницы в пдф, чтобы они стали книжной ориентации, в этой программе нажмите колонтитул, создать колонтитул, удалите все, что там в поле и нажмите "Нумерация Бейтса", увеличивать на каждой странице и на какое значение (на 1), а также начать с какого значения (например, 23 или 45, каждый раз меняется). В этом же окне, где вы редактируете колонтитул, слева есть картинка документа маленькая, нажмите стрелочку , в какой колонтитул вам требуется поставить значение, и там же есть значения полей (сверху, справа, слева, снизу), очень удобно в этой программе, что можно менять эту позицию колонтитула, вы увидите при смене значения позиции, как колонтитул двигается по странице документа, подгоните его на свою рамочку Julia1663
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
