Как в excel определить шрифт

В вашей системе, скорее всего, установлены десятки шрифтов. Рассмотрим быстрый способ просмотра символов, доступных в любом из этих шрифтов.

Начните с создания нового листа, а затем выполните следующие действия.

1. Введите эту формулу в ячейку А1: =СИМВОЛ(СТРОКА())
2. Скопируйте ячейку А1 вниз по столбцу до ячейки А255.
3. Щелкните на заголовке столбца А, чтобы выбрать весь столбец.
4. Выберите шрифт в раскрывающемся списке Шрифт в группе Главная ► Шрифт.
5. Прокрутите лист, чтобы увидеть различные символы в выбранном шрифте.
6. Повторяйте шаги 3 и 4 столько, сколько вам нужно.

На рис. 65.1 показан частичный вид символов шрифта Webdings. Номер строки соответствует номеру символа. Вы можете ввести эти символы, используя цифровую клавиатуру, но убедитесь, что режим Num Lock включен. Например, для ввода символа, показанного в строке 120, удерживайте нажатой клавишу Alt при вводе 120 на цифровой клавиатуре. Для кодов, меньших 100, вводите ведущий нуль. Убедитесь, что ячейка (или символ) отформатированы с использованием корректного шрифта.

Если вы планируете делиться книгой Excel с другими людьми, будьте внимательны при использовании нестандартных шрифтов (шрифтов, которые не поставляются вместе с Windows или Microsoft Office). Если шрифт, который вы указали, отсутствует в системе вашего коллеги, Excel попытается заменить его ближайшим подобным. Но это не всегда получается успешно.

Функция СИМВОЛ работает только с первыми 255 символами шрифта. Шрифты Unicode содержат много дополнительных символов, которые не могут быть отображены с помощью функции СИМВОЛ. Тем не менее вы можете создать простую процедуру VBA, которая имитирует функцию СИМВОЛ, но работает с символами, значения которых больше 255.

1. Нажмите Alt+F11, чтобы открыть окно редактора Visual Basic.
2. В окне Project выберите пункт, который соответствует вашей книге.
3. Выберите Insert ► Module для вставки модуля VBA.
4. Введите следующие строки кода в модуль VBA:

1
2
3

Function СИМВОЛ2(соdе)
	СИМВОЛ2 = ChrW(code)
End Function

После выполнения этих шагов вы можете использовать функцию CHAR2 в формуле. Например, следующая формула показывает верхний индекс, равный 5: =СИМВОЛ2(8309).

Вы также можете получить доступ к этим символам (и определить их значение), используя диалоговое окно Символ (см. статью Как в Excel вводить специальные символы получения более подробной информации об использовании специальных символов). Это окно отображает код в шестнадцатеричном виде. Поскольку используемая нами функция принимает только десятичный аргумент, вы можете преобразовать его с помощью функции ШЕСТН.В.ДЕС. Например, из диалогового окна Символ я узнал, что шестнадцатеричный код для символа шахматной пешки равен 265F. Для отображения этого символа используйте следующую формулу: =СИМВОЛ2( ШЕСТИ.В.ДЕС("265F"))

Символ отображается корректно в большинстве шрифтов, но не во всех.

Поиск символов латиницы в русском тексте

Одна из типовых ситуаций, с которой все мы однажды сталкиваемся: кто-то (возможно даже мы сами) при наборе текстовой информации в ячейку, случайно использовал английские буквы (латиницу) вместо русских (кириллицы). Допустить такую ошибку достаточно легко, особенно если учесть изощренное расположение некоторых символов в стандартной раскладке клавиатуры. Ну какому идиоту, скажите мне, пришло в голову помещать на одну клавишу две одинаковых по написанию буквы (английская «си» и русская «эс»)? Да и с другими символами не лучше. Но, как говорится, «фарш невозможно провернуть назад» — текущая раскладка давно стала стандартом и никуда от этого не деться.

Использование символов латиницы в русском тексте порождает огромное количество проблем. От путаницы при банальной сортировке по алфавиту до некорректной консолидации данных при автоматическом объединении нескольких таблиц в одну.

Выискивать похожие по виду символы и проверять не являются ли они символами английской раскладки крайне муторно. Поэтому поищем более изящные варианты…

Способ 1. Шрифт без кириллицы

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

Способ 2. Функция IsLatin на VBA

Создадим пользовательскую функцию (назовем ее, например, IsLatin), которая будет проверять — присутствуют ли в заданной ячейке символы английского алфавита и выдавать в качестве результата логическое значение ИСТИНА или ЛОЖЬ.

Откройте редактор Visual Basic сочетанием клавиш ALT+F11 или в старых версиях Excel — через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor), вставьте новый модуль (меню Insert — Module) и скопируйте туда текст этой функции:

Public Function IsLatin(str As String)
    str = LCase(str)
    LatinAlphbet = "*[abcdefghijklmnopqrstuvwxyz]*"
    If str Like LatinAlphbet Then
        IsLatin = True
    Else
        IsLatin = False
    End If
End Function

Закройте редактор Visual Basic и вернитесь в Excel.

Теперь в Мастере функций в категории Определенные пользователем (User Defined) можно найти нашу функцию IsLatin и воспользоваться ей. Синтаксис функции следующий:

=IsLatin(A2)

где для примера А2 — это адрес ячейки, содержащей текст

Функция выдаст значение ИСТИНА (TRUE), если найдет в тексте А2 хотя бы один символ латиницы. В противном случае функция вернет значение ЛОЖЬ (FALSE):

Способ 3. Подсветка символов латиницы красным цветом шрифта

Откройте редактор Visual Basic сочетанием клавиш ALT+F11 или в старых версиях Excel — через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor), вставьте новый модуль (меню Insert — Module) и скопируйте туда текст этого макроса:

Sub ShowLatin()    
For Each c In Selection        
    For i = 1 To Len(c)            
        If (Asc(Mid(c, i, 1)) >= 65 And Asc(Mid(c, i, 1)) <= 90) Or _
               (Asc(Mid(c, i, 1)) >= 97 And Asc(Mid(c, i, 1)) <= 122) Then
                c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3            
        End If        
    Next i
Next c
End Sub

Закройте редактор Visual Basic и вернитесь в Excel. Если теперь выделить интересующий диапазон ячеек (только не весь столбец или лист — а то считать до конца дня будет!) и запустить наш макрос с помощью сочетания клавиш ALT+F8 или через меню Сервис — Макрос — Макросы (Tools — Macro — Macros), то символы латиницы выделятся красным цветом шрифта:

Ссылки по теме

• Подсветка латиницы с помощью надстройки PLEX
• Что такое макросы, куда вставлять код макроса, как их использовать