Решил сделать форму для быстрого задания номера страницы в колонтитуле:
[vba]
Код
Application.PrintCommunication = False Dim s as String s = "&""Arial Narrow, полужирный""&14&P+" + TextBox1.Value ActiveSheet.PageSetUp.CenterHeader = s Application.PrintCommunication = True
[/vba]
Однако результат получается не совсем верным. Например: - Если TextBox1.Value=5, то заголовок выводит: 15, 25, 35, ... - Если TextBox1.Value=15, то заголовок выводит: 25, 35, 45, ...
И в обоих случаях, если зайти в верхний колонтитул, а затем выбрать любую ячейку, то результаты становятся правильными. Что нужно прописать в коде, чтобы не лезть "ручками" в колонтитулы?
Решил сделать форму для быстрого задания номера страницы в колонтитуле:
[vba]
Код
Application.PrintCommunication = False Dim s as String s = "&""Arial Narrow, полужирный""&14&P+" + TextBox1.Value ActiveSheet.PageSetUp.CenterHeader = s Application.PrintCommunication = True
[/vba]
Однако результат получается не совсем верным. Например: - Если TextBox1.Value=5, то заголовок выводит: 15, 25, 35, ... - Если TextBox1.Value=15, то заголовок выводит: 25, 35, 45, ...
И в обоих случаях, если зайти в верхний колонтитул, а затем выбрать любую ячейку, то результаты становятся правильными. Что нужно прописать в коде, чтобы не лезть "ручками" в колонтитулы?michaild1994
как должен выглядеть правильный результат? К номеру страницы должно прибавиться число? Может, проще просто задать номер первой страницы? [vba]
Код
Application.PrintCommunication = False Dim s As String s = "&""Arial Narrow, полужирный""&14&P" ActiveSheet.PageSetup.CenterHeader = s ActiveSheet.PageSetup.FirstPageNumber = TextBox1.Value Application.PrintCommunication = True
как должен выглядеть правильный результат? К номеру страницы должно прибавиться число? Может, проще просто задать номер первой страницы? [vba]
Код
Application.PrintCommunication = False Dim s As String s = "&""Arial Narrow, полужирный""&14&P" ActiveSheet.PageSetup.CenterHeader = s ActiveSheet.PageSetup.FirstPageNumber = TextBox1.Value Application.PrintCommunication = True