Оскару необходимо определить шрифт и размер шрифта, применяемые к тексту в ячейке. Например, если текст в ячейке A1 написан шрифтом Arial размером 12 пунктов, ему нужна функция, которая может использоваться для возврата «Arial» в ячейке B1 и 12 в ячейке C1.

В Excel нет ничего встроенного, что позволило бы получить эту информацию о форматировании. Однако вы можете создать очень простой макрос, который поможет. Следующий макрос принимает в качестве аргументов ссылку на ячейку и, возможно, индикатор того, какие данные вы хотите вернуть.

Function FontInfo1(Rn As Range, Optional iType As Integer)

If iType = 2 Then         FontInfo1 = Rn.Font.Size     Else         FontInfo1 = Rn.Font.Name     Endif End Function

Вы используете эту функцию, используя такую ​​формулу в ячейке:

=FontInfo1(A1,1)

Второй параметр (в данном случае 1) означает, что вам нужно название шрифта.

Если вы измените второй параметр на 2, то будет возвращен размер шрифта.

(На самом деле второй параметр может быть любым, кроме 2 — или полностью исключить его — и он возвращает имя шрифта.)

Если вы хотите вернуть оба значения одновременно, вы можете применить менее известный способ возврата массивов информации из пользовательской функции. Попробуйте следующее:

Function FontInfo2(c As Range) As Variant     FontInfo2 = Array(c.Font.Name, c.Font.Size)

End Function

Выделите две соседние по горизонтали ячейки (например, C7: D7) и введите следующую формулу:

=FontInfo(A1)

Поскольку функция возвращает массив, вам нужно завершить ввод формулы, нажав Shift + Ctrl + Enter. Имя шрифта отображается в первой ячейке (C7), а размер шрифта отображается во второй ячейке (D7).

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11358) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Determining_Font_Formatting [Определение форматирования шрифта].