Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Установить единый шрифт для всего документа

Автор Александр Ионов, 09.01.2013, 17:11

« назад - далее »

Александр Ионов

Здравствуйте! Необходимо, чтобы в документе .xls был только один шрифт и один размер, любой текст, копируемый из других документом (в том числе .xls) должен автоматически подгоняться под единый шрифт и размер. Как это сделать? Заранее спасибо за ответ.

NooBasTiK

а что вам мешает выделить лист и поставить один шрифт и один размер?

Alex_ST

Или в модуль "Эта_Книга" поместить код:Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh.Cells.Font
        .Name = "Calibri"
        .Size = 10
        .Bold = False
        .ColorIndex = xlAutomatic
    End With
End Sub

С уважением, Алексей

Александр Ионов

Спасибо за ответ! В файл постоянно вносятся изменения разными людьми, которым, как оказалось, бесполезно объяснять, что шрифт и размер должны быть одинаковыми всегда. Поэтому если я сегодня поставлю для всего листа один шрифт, то завтра мне придется делать то же самое, поскольку кто-то уже внесет новые записи с неверным шрифтом. Хотелось бы, чтобы когда кто-то вносит неправильный шрифт, он автоматически приводился к заданному.

Alex_ST

А что, Вы хотите чтобы операции по форматированию вводимых значений производились автоматически, но без использования макросов? Это - фантастика.
Или приведенный мною код не работает?
С уважением, Алексей