Позбавляємося латиниці

Позбавляємося латиниці

Шановна редакціє! Допоможіть вирішити таке завдання. У мене є база даних. У ній знаходиться як числова, так і текстова інформація. Причому в тексті іноді трапляються латинські літери. Відрізнити «на око» російську «о» від англійської «о» практично неможливо. А через таку плутанину неправильно працює сортування. Помиляється автофільтр. Про консолідацію даних у цьому випадку взагалі говорити не можна! Як можна вирішити цю проблему? Наперед завдячую.

В. Фірсов, м. Харків

Відповідає Микола КАРПЕНКО, канд. техн. наук, доцент кафедри прикладної математики та інформаційних технологій Харківської національної академії міського господарства

Переглянувши список стандартних функцій для роботи з текстом в 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) натисніть кнопку «

І останнє. Якщо ви користуєтеся макросом часто, має сенс організувати його виклик за гарячою клавішею. Для цього у вікні «

Чекаю на ваші запитання, зауваження та пропозиції на