Убрать лишнюю кавычку в колонтитуле
Anton1013
Дата: Четверг, 01.06.2017, 11:34 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день форумчане! Подскажите как можно исправить код - сделан чтобы добавлять колонтитул на листе. Сейчас получается: "Финансовая модель проекта Соколки. Нужно что то исправить чтобы не ставилась кавычка перед словом Финансовая. В VBA не сильно разбираюсь, так что писал код на основе шаблонов найденных в интернете, а они не всегда универсальны [vba]Код
Sub Колонтитул() Sheets("СВОД").Select With ActiveSheet.PageSetup .CenterHeader = "&""Calibri""&16""&B" & "Финансовая модель проекта " & Sheets("Затраты").Range("c3").Text End With Sheets("СВОД").Select With ActiveSheet.PageSetup
[/vba]
Добрый день форумчане! Подскажите как можно исправить код - сделан чтобы добавлять колонтитул на листе. Сейчас получается: "Финансовая модель проекта Соколки. Нужно что то исправить чтобы не ставилась кавычка перед словом Финансовая. В VBA не сильно разбираюсь, так что писал код на основе шаблонов найденных в интернете, а они не всегда универсальны [vba]Код
Sub Колонтитул() Sheets("СВОД").Select With ActiveSheet.PageSetup .CenterHeader = "&""Calibri""&16""&B" & "Финансовая модель проекта " & Sheets("Затраты").Range("c3").Text End With Sheets("СВОД").Select With ActiveSheet.PageSetup
[/vba] Anton1013
Никогда не поздно научиться!
Ответить
Сообщение Добрый день форумчане! Подскажите как можно исправить код - сделан чтобы добавлять колонтитул на листе. Сейчас получается: "Финансовая модель проекта Соколки. Нужно что то исправить чтобы не ставилась кавычка перед словом Финансовая. В VBA не сильно разбираюсь, так что писал код на основе шаблонов найденных в интернете, а они не всегда универсальны [vba]Код
Sub Колонтитул() Sheets("СВОД").Select With ActiveSheet.PageSetup .CenterHeader = "&""Calibri""&16""&B" & "Финансовая модель проекта " & Sheets("Затраты").Range("c3").Text End With Sheets("СВОД").Select With ActiveSheet.PageSetup
[/vba] Автор - Anton1013 Дата добавления - 01.06.2017 в 11:34
and_evg
Дата: Четверг, 01.06.2017, 11:41 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 496
Репутация:
100
±
Замечаний:
0% ±
Excel 2007
Anton1013 , что такое? [vba][/vba] может быть так? [vba]Код
.CenterHeader ="Финансовая модель проекта " & Sheets("Затраты").Range("c3").Text
[/vba]
Anton1013 , что такое? [vba][/vba] может быть так? [vba]Код
.CenterHeader ="Финансовая модель проекта " & Sheets("Затраты").Range("c3").Text
[/vba]and_evg
Ответить
Сообщение Anton1013 , что такое? [vba][/vba] может быть так? [vba]Код
.CenterHeader ="Финансовая модель проекта " & Sheets("Затраты").Range("c3").Text
[/vba]Автор - and_evg Дата добавления - 01.06.2017 в 11:41
buchlotnik
Дата: Четверг, 01.06.2017, 11:48 |
Сообщение № 3
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация:
929
±
Замечаний:
20% ±
2010, 2013, 2016 RUS / ENG
Добрый день. Думаю нужно так: [vba]Код
.CenterHeader = "&""Calibri""&16&B& Финансовая модель проекта" & Sheets("Затраты").Range("c3").Text
[/vba] шрифт (&""Calibri""), его размер (&16) и что жирный (&B), а вот после размера в исходнике зачем-то кавычка была вляпана
Добрый день. Думаю нужно так: [vba]Код
.CenterHeader = "&""Calibri""&16&B& Финансовая модель проекта" & Sheets("Затраты").Range("c3").Text
[/vba] шрифт (&""Calibri""), его размер (&16) и что жирный (&B), а вот после размера в исходнике зачем-то кавычка была вляпана buchlotnik
Сообщение отредактировал buchlotnik - Четверг, 01.06.2017, 12:00
Ответить
Сообщение Добрый день. Думаю нужно так: [vba]Код
.CenterHeader = "&""Calibri""&16&B& Финансовая модель проекта" & Sheets("Затраты").Range("c3").Text
[/vba] шрифт (&""Calibri""), его размер (&16) и что жирный (&B), а вот после размера в исходнике зачем-то кавычка была вляпана Автор - buchlotnik Дата добавления - 01.06.2017 в 11:48
Anton1013
Дата: Четверг, 01.06.2017, 11:58 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 203
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
buchlotnik, Спасибо, работает!
Никогда не поздно научиться!
Ответить
Сообщение buchlotnik, Спасибо, работает! Автор - Anton1013 Дата добавления - 01.06.2017 в 11:58
and_evg
Дата: Четверг, 01.06.2017, 12:06 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 496
Репутация:
100
±
Замечаний:
0% ±
Excel 2007
buchlotnik , Добрый день!Цитата
шрифт (&""Calibri""), его размер (&16) и что жирный (&B)
точно!!
buchlotnik , Добрый день!Цитата
шрифт (&""Calibri""), его размер (&16) и что жирный (&B)
точно!!and_evg
Сообщение отредактировал and_evg - Четверг, 01.06.2017, 12:07
Ответить
Сообщение buchlotnik , Добрый день!Цитата
шрифт (&""Calibri""), его размер (&16) и что жирный (&B)
точно!!Автор - and_evg Дата добавления - 01.06.2017 в 12:06