Избавляемся от латиницы

Избавляемся от латиницы

Уважаемая редакция! Помогите решить такую задачу. У меня есть база данных, в которой находится как числовая, так и текстовая информация. Причем в тексте местами встречаются латинские буквы. Отличить на глаз русскую «о» от английской «о» практически невозможно. Из-за такой неразберихи неправильно работает сортировка, ошибается автофильтр, а про консолидацию данных в данном случае вообще говорить не приходится! Как можно решить эту проблему? Заранее признателен.

В. Фирсов, г. Харьков

Отвечает Николай КАРПЕНКО, канд. техн. наук, доцент кафедры прикладной математики и информационных технологий Харьковской национальной академии городского хозяйства

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

1) открываем документ, например базу данных «

2) вызываем «

3) в левом верхнем углу окна редактора находим окошко с заголовком «

4) в этом окне подсвечиваем строку с надписью «

5) вызываем меню «

6) делаем двойной щелчок левой кнопкой мыши на «

7) в правой части окна редактора VBA печатаем такой текст:

Public Function IsLat(str As String)

str = LCase(str)

LatinAlphbet = "*[abcdefghijklmnopqrstuvwxyz]*"

If str Like LatinAlphbet Then

IsLat = True

Else

IsLat = False

End If

End Function

8) закрываем окно редактора VBA и возвращаемся к базе данных «

Мы создали пользовательскую функцию с именем «

Посмотрим, как воспользоваться нашей функцией. Делаем так:

1) открываем файл «

2) становимся на ячейку «

3) в списке «

4) в окошке «

5) в качестве параметра указываем ячейку «

6) в окне «

7) копируем созданную функцию на всю высоту таблицы. Результат показан на рис. 3 в колонке «

Остается перепечатать эти фамилии и скопировать их по всей базе с использованием автофильтра. Как видите, ничего сложного.

Теперь один технический момент. Сейчас функция «

1) закройте файл «

2) создайте новый документ;

3) выполните «

Проблему решить очень просто: нужно поместить функцию в автоматически загружаемую библиотеку, например в файл «

1) откройте документ;

2) выполните команду «

3) в поле «

4) нажмите «

5) щелкните на любой ячейке рабочего листа;

6) введите в эту ячейку любой символ или число;

7) выполните «

Теперь вы можете вызвать редактор VBA, в окошке «

1) открываем документ;

2) нажимаем «

3) в окне редактора VBA в окошке «

4) вызываем меню «

5) выбираем «

6) в правой части окна редактора VBA печатаем текст функции «

7) сохраняем файл из окна редактора VBA;

8) закрываем редактор и возвращаемся в Excel.

Теперь функция «

В принципе задачу мы решили. Но есть одно неудобство: мы видим строки, содержащие латинские символы, но не видим сами эти буквы. Нет ничего проще:

1) откройте уже знакомый редактор VBA («

2) выберите элемент «

3) в правой части окна редактора VBA перед функцией «

Sub ShowLat()

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

4) сохраните файл из окна VBA. Вернитесь в окно Excel;

5) в этом окне выделите колонку «

6) вызовите «

7) в этом окне выберите «

8) нажмите кнопку «

И последнее. Если вы пользуетесь макросом часто, имеет смысл организовать его вызов горячей клавишей. Для этого в окне «

Жду ваших вопросов, замечаний и предложений на