Тип: ВертикальноеПоложение. Определяет способ вертикального выравнивания текста в ячейках области.
Полное описание, параметры и ограничения
ОбластьЯчеекТабличногоДокумента.ВертикальноеПоложение (SpreadsheetDocumentRange.VerticalAlign)
ОбластьЯчеекТабличногоДокумента (SpreadsheetDocumentRange)
ВертикальноеПоложение (VerticalAlign)
Доступен, начиная с версии 8.2.
Использование:
Чтение и запись.
Описание:
Тип: ВертикальноеПоложение.
Определяет способ вертикального выравнивания текста в ячейках области.
Доступность:
Тонкий клиент, веб-клиент, мобильный клиент, сервер, толстый клиент, внешнее соединение, мобильное приложение (клиент), мобильное приложение (сервер), мобильный автономный сервер.
См. также:
ОбластьЯчеекТабличногоДокумента, свойство ГоризонтальноеПоложение
Использование в версии:
Доступен, начиная с версии 8.2.
Методическая информация
Практические примеры
Собрать учебную ведомость с числовыми ячейками и итогом
Без готового макета строим таблицу из двух вымышленных товаров, вычисляем суммы и оформляем заголовок.
Где и как запускать
В учебной управляемой форме создайте команду УчебныйПример и кнопку для неё. Назначьте обработчик действия УчебныйПример. Приведённую процедуру целиком вставьте в модуль формы. Не вставляйте её внутрь другой процедуры. Запустите форму в тонком или толстом клиенте Windows.
Подготовка
Создайте отдельную учебную обработку с управляемой формой; рабочие печатные формы не изменяйте.
ТабличныйДокумент.Показать открывает окно просмотра, но не отправляет документ на физический принтер.
&НаКлиенте
Процедура УчебныйПример(Команда)
ТабДок = Новый ТабличныйДокумент;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.Область(, 1, , 1).ШиринаКолонки = 30;
ТабДок.Область(, 2, , 4).ШиринаКолонки = 12;
Заголовок = ТабДок.Область(1, 1, 1, 4);
Заголовок.Объединить();
Заголовок.Текст = "Учебная ведомость — не документ продажи";
Заголовок.Шрифт = Новый Шрифт("Arial", 12, Истина);
Заголовок.ЦветФона = Новый Цвет(232, 240, 250);
Заголовок.ЦветТекста = Новый Цвет(25, 45, 70);
Заголовок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Заголовок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
Заголовок.ВысотаСтроки = 24;
ТабДок.Область(2, 1).Текст = "Товар";
ТабДок.Область(2, 2).Текст = "Количество";
ТабДок.Область(2, 3).Текст = "Цена";
ТабДок.Область(2, 4).Текст = "Сумма";
Товары = Новый Массив;
Товары.Добавить(Новый Структура("Имя,Количество,Цена", "Книга", 3, 250));
Товары.Добавить(Новый Структура("Имя,Количество,Цена", "Ручка", 1, 50));
СтрокаТаблицы = 3;
Итого = 0;
Для Каждого Товар Из Товары Цикл
Сумма = Товар.Количество * Товар.Цена;
ТабДок.Область(СтрокаТаблицы, 1).Текст = Товар.Имя;
ЯчейкаКоличества = ТабДок.Область(СтрокаТаблицы, 2);
ЯчейкаКоличества.СодержитЗначение = Истина;
ЯчейкаКоличества.ТипЗначения = Новый ОписаниеТипов("Число");
ЯчейкаКоличества.Значение = Товар.Количество;
ЯчейкаКоличества.Формат = "ЧДЦ=0; ЧГ=0";
ЯчейкаЦены = ТабДок.Область(СтрокаТаблицы, 3);
ЯчейкаЦены.СодержитЗначение = Истина;
ЯчейкаЦены.Значение = Товар.Цена;
ЯчейкаЦены.Формат = "ЧДЦ=2; ЧГ=0";
ЯчейкаСуммы = ТабДок.Область(СтрокаТаблицы, 4);
ЯчейкаСуммы.СодержитЗначение = Истина;
ЯчейкаСуммы.Значение = Сумма;
ЯчейкаСуммы.Формат = "ЧДЦ=2; ЧГ=0";
Итого = Итого + Сумма;
СтрокаТаблицы = СтрокаТаблицы + 1;
КонецЦикла;
ТабДок.Область(СтрокаТаблицы, 1).Текст = "Итого";
ИтоговаяЯчейка = ТабДок.Область(СтрокаТаблицы, 4);
ИтоговаяЯчейка.СодержитЗначение = Истина;
ИтоговаяЯчейка.Значение = Итого;
ИтоговаяЯчейка.Формат = "ЧДЦ=2; ЧГ=0";
ИтоговаяЯчейка.Шрифт = Новый Шрифт(Заголовок.Шрифт, , 11, Истина);
РамкаЯчеек = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
ОбластьИтога = ТабДок.Область(СтрокаТаблицы, 1, СтрокаТаблицы, 4);
ОбластьИтога.ГраницаСверху = РамкаЯчеек;
Сообщить(СтрШаблон("Строк: %1; колонок: %2; итог: %3", ТабДок.ВысотаТаблицы, ТабДок.ШиринаТаблицы, Итого));
ТабДок.Показать("Учебная ведомость");
КонецПроцедурыРазбор по шагам
Создаём самостоятельный табличный документ. Области адресуются строкой и колонкой с 1.
Объединяем четыре ячейки заголовка и задаём шрифт, цвет и выравнивание.
Числа помещаем в Значение с СодержитЗначение=Истина; Формат меняет только показ, не само число.
Суммы вычисляет код 1С, а не формулы Excel: 3 × 250 и 1 × 50.
Выводим итог, добавляем верхнюю линию и открываем окно просмотра без печати.
Как проверить результат
Две товарные строки: Книга — сумма 750, Ручка — 50; общий итог 800.
Измените количество книг на 2: итог должен стать 550.
ТипЗнч(ИтоговаяЯчейка.Значение) должен быть Число, а не Строка; формат с двумя знаками не меняет тип.
Ожидаемый результат
Показана оформленная ведомость из пяти строк и четырёх колонок с числовым итогом 800.
На что обратить внимание
Это не юридическая форма счёта и не документ конфигурации; НДС, скидки, валюта и округление бизнес-документов не реализованы.
Показать — клиентский вызов: его не следует переносить в серверный общий модуль.
Если Arial не установлен, платформа может заменить шрифт; проверяйте фактическое отображение на целевой машине.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Разъединить учебный заголовок и оформить длинную подпись
Работаем только с собственным заголовком. Перенос текста, авто-высота и отступы отвечают за читаемость, но не меняют содержание товаров.
Где и как запускать
Модуль новой управляемой формы учебной внешней обработки. Код содержит готовые процедуры с директивами; вставляйте на уровне модуля, не внутрь другого обработчика. Каждую задачу запускайте в отдельной копии формы.
Подготовка
Создайте новую внешнюю обработку с управляемой основной формой в учебной базе. Каждый урок — отдельная копия модуля.
На форме создайте команду УчебныйПример и перетащите её на форму как кнопку. В действии команды выберите процедуру УчебныйПример(Команда).
Вставьте весь приведённый модуль на уровне модуля формы: обработчик команды и функцию УчебнаяТаблица. Никакие макеты или реквизиты конфигурации не требуются.
Сохраните EPF и откройте в тонком клиенте Windows. Примеры показывают таблицу, но не вызывают принтер, не записывают файлы и не читают рабочие документы.
&НаКлиенте
Процедура УчебныйПример(Команда)
ТабДок = УчебнаяТаблица();
Заголовок = ТабДок.Область(1, 1, 1, 4);
СохраненныйТекст = Заголовок.Текст;
Заголовок.Разъединить();
ТабДок.Область(1, 1).Текст = СохраненныйТекст;
ТабДок.Область(1, 2).Текст = "";
ТабДок.Область(1, 3).Текст = "";
ТабДок.Область(1, 4).Текст = "";
Заголовок.Объединить();
Заголовок.Текст = СохраненныйТекст + Символы.ПС + "Книга — 3 шт., Ручка — 1 шт.; итог 800,00";
Заголовок.РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Переносить;
Заголовок.АвтоВысотаСтроки = Истина;
Заголовок.ОтступСверху = 4;
Заголовок.ОтступСнизу = 4;
Заголовок.ОтступСлева = 6;
Заголовок.ОтступСправа = 6;
Заголовок.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево;
Заголовок.ВертикальноеПоложение = ВертикальноеПоложение.Центр;
Сообщить(СтрНайти(Заголовок.Текст, "итог 800") > 0);
Сообщить(ТабДок.Область(5, 4).Значение = 800);
ТабДок.Показать("Учебная таблица — без печати и сохранения");
КонецПроцедуры
&НаКлиенте
Функция УчебнаяТаблица()
ТабДок = Новый ТабличныйДокумент;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Область(, 1, , 1).ШиринаКолонки = 35;
ТабДок.Область(, 2, , 2).ШиринаКолонки = 10;
ТабДок.Область(, 3, , 3).ШиринаКолонки = 14;
ТабДок.Область(, 4, , 4).ШиринаКолонки = 15;
Заголовок = ТабДок.Область(1, 1, 1, 4);
Заголовок.Объединить();
Заголовок.Текст = "Учебная таблица — данные только в памяти";
Заголовок.Шрифт = Новый Шрифт("Arial", 12, Истина);
Заголовок.ЦветФона = Новый Цвет(230, 242, 255);
Заголовок.ВысотаСтроки = 24;
ТабДок.Область(2, 1).Текст = "Товар";
ТабДок.Область(2, 2).Текст = "Количество";
ТабДок.Область(2, 3).Текст = "Цена";
ТабДок.Область(2, 4).Текст = "Сумма";
Товары = Новый Массив;
Товары.Добавить(Новый Структура("Название,Количество,Цена", "Книга", 3, 250));
Товары.Добавить(Новый Структура("Название,Количество,Цена", "Ручка", 1, 50));
НомерСтроки = 3;
Итого = 0;
Для Каждого Товар Из Товары Цикл
ТабДок.Область(НомерСтроки, 1).Текст = Товар.Название;
Значения = Новый Массив;
Значения.Добавить(Товар.Количество);
Значения.Добавить(Товар.Цена);
Значения.Добавить(Товар.Количество * Товар.Цена);
Для НомерКолонки = 2 По 4 Цикл
Ячейка = ТабДок.Область(НомерСтроки, НомерКолонки);
Ячейка.СодержитЗначение = Истина;
Ячейка.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
Ячейка.Значение = Значения.Получить(НомерКолонки - 2);
Ячейка.Формат = "ЧДЦ=2; ЧН=0";
КонецЦикла;
Итого = Итого + Товар.Количество * Товар.Цена;
НомерСтроки = НомерСтроки + 1;
КонецЦикла;
ПодписьИтога = ТабДок.Область(5, 1, 5, 3);
ПодписьИтога.Объединить();
ПодписьИтога.Текст = "Итого";
Итог = ТабДок.Область(5, 4);
Итог.СодержитЗначение = Истина;
Итог.ТипЗначения = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(12, 2));
Итог.Значение = Итого;
Итог.Формат = "ЧДЦ=2; ЧН=0";
Все = ТабДок.Область(2, 1, 5, 4);
Все.Шрифт = Новый Шрифт("Arial", 10);
Граница = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1, Ложь);
Все.Обвести(Граница, Граница, Граница, Граница);
Возврат ТабДок;
КонецФункции
Разбор по шагам
Сохраняем текст своей объединённой шапки до разъединения.
Разъединить не создаёт четыре смысловых части подписи. Поэтому явно задаём первую ячейку и очищаем остальные три перед объединением.
После повторного объединения вставляем вторую строку через Символы.ПС.
Переносить и АвтоВысотаСтроки подбирают высоту для текста. Отступы в пунктах, не в символах и не в миллиметрах.
Данные товаров и числовой итог проверяем отдельно от содержимого заголовка.
Как проверить результат
Обе проверки Истина.
Заголовок многострочный, с отступами, итог в последней ячейке 800.
При уменьшении ширины колонок текст переносится, а строки товаров не меняются.
Ожидаемый результат
Новичок видит безопасную работу с объединением и факторами читаемости текста.
На что обратить внимание
Объединение ячеек с разными непустыми значениями может потерять часть данных. Здесь три соседние ячейки очищены явно.
Разъединение не восстанавливает значения, утраченные при прежнем объединении.
Рабочие макеты не разъединяйте вслепую: сначала нужно понимать их параметры и данные.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.