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

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

Здравствуйте! Необходимо, чтобы в документе .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]

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