Преобразование чисел-как-текст в нормальные числа

187832 13.08.2016 Скачать пример

Если для каких-либо ячеек на листе был установлен текстовый формат (это мог сделать пользователь или программа при выгрузке данных в Excel), то введенные потом в эти ячейки числа Excel начинает считать текстом. Иногда такие ячейки помечаются зеленым индикатором, который вы, скорее всего, видели:

Число как текст в Excel

Причем иногда такой индикатор не появляется (что гораздо хуже).

В общем и целом, появление в ваших данных чисел-как-текст обычно приводит к большому количеству весьма печальных последствий:

перестает нормально работать сортировка - "псевдочисла" выдавливаются вниз, а не располагаются по-порядку как положено:
функции типа ВПР (VLOOKUP) не находят требуемые значения, потому как для них число и такое же число-как-текст различаются:
при фильтрации псевдочисла отбираются ошибочно
многие другие функции Excel также перестают нормально работать:
и т.д.

Особенно забавно, что естественное желание просто изменить формат ячейки на числовой - не помогает. Т.е. вы, буквально, выделяете ячейки, щелкаете по ним правой кнопкой мыши, выбираете Формат ячеек (Format Cells), меняете формат на Числовой (Number), жмете ОК - и ничего не происходит! Совсем!

Возможно, "это не баг, а фича", конечно, но нам от этого не легче. Так что давайте-к рассмотрим несколько способов исправить ситуацию - один из них вам обязательно поможет.

Способ 1. Зеленый уголок-индикатор

Если на ячейке с числом с текстовом формате вы видите зеленый уголок-индикатор, то считайте, что вам повезло. Можно просто выделить все ячейки с данными и нажать на всплывающий желтый значок с восклицательным знаком, а затем выбрать команду Преобразовать в число (Convert to number):

Преобразование в число

Все числа в выделенном диапазоне будут преобразованы в полноценные.

Если зеленых уголков нет совсем, то проверьте - не выключены ли они в настройках вашего Excel (Файл - Параметры - Формулы - Числа, отформатированные как текст или с предшествующим апострофом).

Способ 2. Повторный ввод

Если ячеек немного, то можно поменять их формат на числовой, а затем повторно ввести данные, чтобы изменение формата вступило-таки в силу. Проще всего это сделать, встав на ячейку и нажав последовательно клавиши F2 (вход в режим редактирования, в ячейке начинает мигаеть курсор) и затем Enter. Также вместо F2 можно просто делать двойной щелчок левой кнопкой мыши по ячейке.

Само-собой, что если ячеек много, то такой способ, конечно, не подойдет.

Способ 3. Формула

Можно быстро преобразовать псевдочисла в нормальные, если сделать рядом с данными дополнительный столбец с элементарной формулой:

Преобразование текста в число формулой

Двойной минус, в данном случае, означает, на самом деле, умножение на -1 два раза. Минус на минус даст плюс и значение в ячейке это не изменит, но сам факт выполнения математической операции переключает формат данных на нужный нам числовой.

Само-собой, вместо умножения на 1 можно использовать любую другую безобидную математическую операцию: деление на 1 или прибавление-вычитание нуля. Эффект будет тот же.

Способ 4. Специальная вставка

Этот способ использовали еще в старых версиях Excel, когда ~~современные эффективные менеджеры под стол ходили~~ зеленого уголка-индикатора еще не было в принципе (он появился только с 2003 года). Алгоритм такой:

в любую пустую ячейку введите 1
скопируйте ее
выделите ячейки с числами в текстовом формате и поменяйте у них формат на числовой (ничего не произойдет)
щелкните по ячейкам с псевдочислами правой кнопкой мыши и выберите команду Специальная вставка (Paste Special) или используйте сочетание клавиш Ctrl+Alt+V
в открывшемся окне выберите вариант Значения (Values) и Умножить (Multiply)

Преобразование текста в число специальной вставкой

По-сути, мы выполняем то же самое, что и в прошлом способе - умножение содержимого ячеек на единицу - но не формулами, а напрямую из буфера.

Способ 5. Текст по столбцам

Если псеводчисла, которые надо преобразовать, вдобавок еще и записаны с неправильными разделителями целой и дробной части или тысяч, то можно использовать другой подход. Выделите исходный диапазон с данными и нажмите кнопку Текст по столбцам (Text to columns) на вкладке Данные (Data). На самом деле этот инструмент предназначен для деления слипшегося текста по столбцам, но, в данном случае, мы используем его с другой целью.

Пропустите первых два шага нажатием на кнопку Далее (Next), а на третьем воспользуйтесь кнопкой Дополнительно (Advanced). Откроется диалоговое окно, где можно задать имеющиеся сейчас в нашем тексте символы-разделители:

Преобразование текста в число через инструмент Текст по столбцам

После нажатия на Готово Excel преобразует наш текст в нормальные числа.

Способ 6. Макрос

Если подобные преобразования вам приходится делать часто, то имеет смысл автоматизировать этот процесс при помощи несложного макроса. Нажмите сочетание клавиш Alt+F11 или откройте вкладку Разработчик (Developer) и нажмите кнопку Visual Basic. В появившемся окне редактора добавьте новый модуль через меню Insert - Module и скопируйте туда следующий код:

Sub Convert_Text_to_Numbers()
    Selection.NumberFormat = "General"
    Selection.Value = Selection.Value
End Sub

Теперь после выделения диапазона всегда можно открыть вкладку Разрабочик - Макросы (Developer - Macros), выбрать наш макрос в списке, нажать кнопку Выполнить (Run) - и моментально преобразовать псевдочисла в полноценные.

Также можно добавить этот макрос в личную книгу макросов, чтобы использовать позднее в любом файле.

P.S.

С датами бывает та же история. Некоторые даты тоже могут распознаваться Excel'ем как текст, поэтому не будет работать группировка и сортировка. Решения - те же самые, что и для чисел, только формат вместо числового нужно заменить на дату-время.

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

futurama3000

21.08.2016 21:04:06

что-то макрос не работает - ничего не происходит со числами-текстом

Ссылка

futurama3000

21.08.2016 21:12:54

Макрос работает, если разделитель - "точка". Если "запятая", то - не работает

Ссылка

Юлия Бордюгова

22.08.2016 11:48:48

Ещё способ, работающий при наличии одинаковых символов, например ",":
выделить столбец с данными, установить числовой формат и заменить (ctrl+h) запятую на запятую.

Ссылка

Зураб Зурабов

23.08.2016 09:16:03

Добрый день!
Еще как вариант для замены чисел из текстового формата в числовой использовать формулу =значен

Ссылка

Роман Емельянов

10.10.2016 13:15:30

Буквально только что столкнулись с вариантом данных в Екселе, где текст, судя по всему, был скопирован из Ворда или почты, когда не сработал ни один из способов выше. Всему виной символ в конце каждого числа, визуально похожий на пробел, но как пробел не определяющийся. Т.е. даже заменить пробел на пустоту не получалось ни через CTRL+H, ни через функцию =ПОДСТАВИТЬ(ячейка;" ";"").

Решили данную проблему тоже просто. Выделили саму эту "пустоту" мышкой, скопировали её и её же принудительно вставили в Заменить(CTRL+H) в поле "Найти:", а поле "Заменить на:" просто оставили пустым.

Ссылка

Надежда Клюева

05.03.2021 08:38:11

Гениально! Мне только этот способ и помог!

Родитель Ссылка

Alex_ST

04.11.2016 19:18:02

Много раз приходилось сталкиваться с кривым распознаванием чисел после экспорта из БД.
Испробовал много разных методов. Наилучший и самый быстрый результат дала процедура:

Sub Repair_Value()   ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа    
   Dim rArea As Range
   On Error Resume Next
   ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
   If Err Then Exit Sub
   With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
   For Each rArea In Selection.Areas
   rArea.FormulaLocal = rArea.FormulaLocal
   Next rArea
   With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub

Ссылка

chip2001

17.02.2017 15:16:51

Alex_ST

Очень нужная вещь на практике. Но ~~не совсем понимаю~~ совсем не понимаю как и что делает эта процедура. Был бы признателен за объяснение. Спасибо !

Родитель Ссылка

Alex_ST

17.02.2017 21:19:35

Ну, примерно так:

 Sub Repair_Value()   ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
   Dim rArea As Range
   On Error Resume Next ' обработчик ошибок
   'ActiveWindow.RangeSelection   ' диапазон выбранных ячеек листа даже если выбран графический объект
   ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select ' в выбранном диапазоне выделить ячейки с константами _
   так будет быстрее, чем обрабатывать все ячейки в Selection
   If Err Then Exit Sub ' если нужных ячек не оказалось, то их невозможно выбрать и будет ошибка
   With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With ' отключаем все замедляющие процедуры

   For Each rArea In Selection.Areas 'т.к. выбранными скорее всего окажутся не смежные ячейки, а области, то обрабатывать нужно каждую из областей
      rArea.FormulaLocal = rArea.FormulaLocal ' значения во всех ячейках области заменить на них же. При этом произойдёт обновление форматов (это такая не документированная особенность Excel)
   Next rArea
   With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With ' включаем все обратно в обычный режим.
End Sub

Родитель Ссылка

chip2001

18.02.2017 20:28:34

Что-то не работает. Можно ли файл с примером. Спасибо заранее.

Родитель Ссылка

Alex_ST

18.02.2017 22:17:34

Код процедуры ничем не отличается от того, что я приводил выше 04.11.2016 19:18:02 (если, конечно, не добавил опечаток, когда писал комментарии

)
Если тот работает, то им и пользуйтесь, а комментарии из "не работающего" читайте чтобы разобраться.

Родитель Ссылка

chip2001

19.02.2017 00:26:14

По-моему оба не работают. :oops:

Файл с примером все бы прояснил ....

Родитель Ссылка

Alex_ST

19.02.2017 16:22:45

Ну а что же Вы тогда ~~мозги пудрите~~ в заблуждение вводите? Я, думая, что код без комментариев нормально работает, пишу комментарии, а потом вдруг выясняется, что и тот, и тот не работают?
У всех работает, а у Вас нет? Мало вероятно. Вы нужный числовой формат перед применением макроса ячейкам придали?

Родитель Ссылка

Иван Манченко

09.12.2021 19:30:05

Ещё можно вот так.

Public Sub pChangeNumber()
    
    Dim r As Range
    
    With Application:
        .EnableEvents = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With
    
    Range(Selection, Selection.End(xlDown)).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    
    For Each r In Selection.Cells
        On Error GoTo ErrHandl
            r.Cells.Value2 = CLng(r.Cells.Value2)
    Next r
    
    Set r = Nothing
    
    With Application:
        .EnableEvents = True
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
    
ErrHandl:
    With Application:
        .EnableEvents = True
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
    Set r = Nothing
    Exit Sub
    
End Sub

Родитель Ссылка

Ярослав Чикал

15.06.2018 08:55:25

Переделал для себя, не обрабатывает скрытые строки:

Sub Fix_Format()
    Dim rng As Range
    With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
    For Each rng In Selection
        If Rows(rng.row).Hidden = False Then
            rng.FormulaLocal = rng.FormulaLocal
            rng.NumberFormat = "DD.MM.YYYY"
        End If
    Next
    With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub

Родитель Ссылка

Владимир К

24.04.2017 11:35:30

В моём случае было записано так 1 131 823,90 помогло только удаление пробелов. Функция в надстройке Plex (в значения) тоже не помогла.

Ссылка

Виктория

01.11.2017 17:00:30

Спасибо,помог только ваш совет.Но не знаю,как в большой таблице,выгруженной из 1С,убрать сразу везде пробелы-разделители разрядов чисел...

Родитель Ссылка

Ирина

11.08.2017 11:59:17

помогла формула =сжпробелы, ни один из указанных способов не срабатывал

Ссылка

Николай Павлов

11.08.2017 12:28:51

Видимо, перед или после чисел были пробелы - бывает.

Родитель Ссылка

Николай

03.10.2017 16:38:10

как вариант:

Sub Conv()
    With ActiveSheet.UsedRange
        .Replace ",","."        
        arr = .Value
        .NumberFormat = "General"
        .Value = arr
    End With
End Sub

Ссылка

Алеся

06.11.2017 20:35:31

Доброе время суток!
Приведенные примеры просто супер! Но если в значении идет первым 0, то при преобразовании он удаляется, например при значение 0123 после преобразования останется 123, при этом ты можешь не знать сколько нулей должно было быть в начале и длина номера тоже может быть различной, т.е. просто посчитать недостающие символы и дополнить их нулями не получится....
Ребята, кто-нибудь знает как решить эту головоломку? :oops:

Ссылка

wowick

09.11.2017 10:24:39

А какое отношение имеет ваш вопрос к теме преобразования в числа, текстовых значений, похожих на числа? В математике ни одно число не начинается с нуля, чтоб за ним были значащие цифры. Вы хочете работать как раз с текстовыми значениями, которые похожи на числа и вам, если вы хочете нулей сначала, и не надо их преобразовывать в числа... Так что пользуйтесь текстовыми функциями, которые в екселе как раз таки есть.

Родитель Ссылка

InExSu

22.11.2017 05:54:13

Доброе время суток!
Не решили?

Родитель Ссылка

Николай Павлов

22.11.2017 15:58:57

А что решать-то?
Если вам нужно, чтобы перед числом стояли нули, то это не число, а текст.
Ставьте текстовый формат для ячейки и вводите туда 0123 - и все будет ОК.

Родитель Ссылка

Алеся

13.12.2017 22:10:53

Доброе время суток! Спасибо всем за комментарии, была проблема, что при выгрузки данных из одной системы реквизиты выгружались в числовом формате, терялись первые нолики... похоже нужно просто из системы данные поля выгружать в тестовом формате

Ссылка

p_a_vl

09.10.2018 22:36:59

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

Ссылка

Николай

21.10.2018 19:39:45

Selection.Value = Selection.Value

Этот код обновляет данные, но текст в число не превращает. При этом, что формат - общий, запятые вместо точек, убраны пробелы и тд

Ссылка

Анастасия Ли

14.11.2018 08:34:09

Наконец-то научилась преобразовывать числа с неправильными разделителями, спасибо!

Ссылка

Jevgenijs

03.04.2019 09:04:31

Добрый день.
Подскажите пожалуйста по чему не работает в обратную сторону, с выделенными ячейками, а только если выделить одну.

Sub Convert_Numbers_to_Text()
    Selection.NumberFormat = "@"
    Selection.Value = CStr(Selection.Value)
End Sub

Ссылка

iii p

30.04.2019 07:52:08

а как преобразовать в числа если формат Дата? а видимость как число с десят знаками. через зелененький треугольничек доступно только Преобразовать в дату типа и т д ...... помогите плиз, объем ячеек неимоверный

Ссылка

Дмитрий Шаталов

05.11.2019 11:03:20

Способ 6. Макрос - прекрасно помог!!!
Включил в свой код. Огромное спасибо!

Ссылка

Игорь Скворцов

19.04.2021 15:56:28

текст: 1111.50 руб.
должно быть число 1111,50
С точкой всё понятно, а вот как убрать руб.?

Ссылка

Петр Семенов

28.01.2022 18:52:59

Sub Convert_Text_to_Numbers()
    Selection = CDbl(Selection)
End Sub

Ссылка

Alexey D-FF

23.12.2022 16:36:31

А если у меня таблицы по 10 000 ячеек числами в виде текста и листов в книге около 1000? Как одной командой преобразовать в числа все эти ячейки? Везде зеленые уголки-индикаторы...

Ссылка

Александр Батуев

17.04.2024 17:52:10

Добрый день. У меня из СРМ в таком формате выгружается.
83 333.33 ₽
Попробовал вариант с "Текст по столбцам", но это не дало результат. Можете подсказать решение?

[img]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAQoAAAGPCAYAAACktp6iAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAACSeSURBVHhe7d3BiyPLneDxX/nPeNiHN1NqTFEHHwyDpZMHdoaqBvNgoU4Pei5PYheWEnjazKHB86APy9bMIl0WqgzLNrxTwcLDQ0nM7DA+lTwDPnigKUxLM+9gb7P/hK2NyAhJmZGRGZGqUEklfT+Q3apUZKQiFflTRKSUcfTx48e5OH7729/Kd77zHfvXYfj1r38t3/72t+1fwP773e9+J9/73vfsX/W+Zf8v+P3vf28fHY75vBQvgb3WpM57A8Uf/vAH++hwEChwaB4dKLbSovjmZ/KjTz6RTwrLT+Sf7NPYH//3n9/K2dX/lH+xf6/8q/z3q578l3/+f/Zv7IqdaFH8009UUOj8VL771Uf5+HG13H/5G/n8Rz+Tb2y6TaJFgUPzrFoU3/zsR/L5V9+XL+8/yn/7U7vS+vSLn8vHn38hn9q/AWzHllsU38g//t2vRD7vyxdbjga0KHBonk+L4pt/FB0nvt/afpuBQIFD86y6Htp3/3gVKHRXpDCg+URjFHhq/yJ/fdWTs8LyP+T/2GexW3ZiMPM3/7YKBdm4hB3M/Opzu/IJ0KJ4an8if/36WsaF5T/Lf7DPYvOeT4vi0z+W76r/fjWlzQDssi23KP5U/tOX3xf5aiA/23KsoEWBQ/Osxig+/WIoX37/V/LTzifyk8K3q76Rf/uNfQhgq3ZgjOJT+eLnH+XjV5/LV5/nBjE/6chP5Uu5f6LvUdCiwKFpUue9vx79xS9+IT/84Q/tX4fhl7/8pbRaLfsXsP+m06n84Ac/sH/V24mrHgB229bHKHYFXQ8cmkcPZtKiAJDnHaO4u7uTly9f2r8OQ+dv/8I+Ag7H/Y//l31U7+j6+po2t/JfP/xv+wg4HH/14j/aR/WOVD+lFCiOjo4Ors9+iGXGYWtS571jFACQR6AAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoEDBbDaW4bAnvU5HOp0jOTrqydg+t99mMszK25HhzK5qYKeO22wonSP1GjpDVapE9I1rXBWrrel81G3P2yqNTqeXdnek1j5vdWUedVdllfbAW1Z9TEJpdtt0Pmjnypkry8imSGu1v/bAOVqj7nLfxWdG827+teWWUh5qy0b1dDowaRu/d0993GIsXlN7XjosOfp1xmoYKNQb5Tsoaim/Uc+LLoOfWxF8B9+pwM8wUEwHNtC1u/PBaDqfbrwAawSKxcnsWYp5NK+ni/I3rcdPf9zixJRHPx+rUddj3DuXm4l+1BZ1UPRe1DIVFbmz5/ddu63LOZH+VbFRORu+lRv1v3n+OZrJ3a1+Y9X7+u5aLs+O5fjYPLNTpg/q6GtdUZ/WWf1Trb2S5vV0UX6R0xdNCr67x+34xWn2/+T2Lkn3o0GgGMvX+mxQuqP77KAYx3J2fS/3l/rvsfR032jZP1v0+46kk3X83Oc13zpl3Mu2cxeTT5YgsC+VYqj6i7ltjzq9tfqfC6cXF6pKKDdf517rqrJcXJg3J6/+Ndgy6L6kKu8yXT7Nor+ZOz4zladOVz4Wq/51o7LP7sQUQb3+u+LrGDvbzFQ/PJ9vpzdeVcTSe9aRXuVOm5t9eG8etE+kek63mHrqmsqDDSwnhYxnpePY6eX6/VHHrVy/xz2TTh26TPn9jHj/Zirfjtlutaz2Ia0TU1cnD6p0Cehmhcu7etns69b0vRZNcJumtI3zvF6z7P8X81026Zxl1ZSK3ZezVHQL9HN+qyZyVzUtV48XT+f6tqUmc+g1VDyfLYtylJvopWZl4/06Ftt7l9X7UvWeqDPSJPDmU9VPdrt0nsV5vcv9Lw++3qVJuzwWUfXUUbFNYWwqvyxeV9Rxc+qpXmPzXRSj3E1Yt97kX/8iTfU4hd4mVnyLYtnsize+6pttup/JWbamSEfScxv9XVMT4tWxMU1HXxMzr7yvM3k9Gok6Rtn26t1QDVblURH2WF5eqCql3HxtYvfs7jbbb/vipXrWFf8a2gObTqWxexCzi2O5fGMKP+lflT7hs0+st+Ygdt9c2tewbtnb6hy0TfXS6xjLVT8rqaiKZ9OMJGvNL1pYZ9dmfbbY5xJa1onix37RGvV0Kd9SUS05c1hz3ZfFMZn0pdj7rDtu6wi8f+Ovs66utBddMHWs9d8FLTlJePw3dHn0Rs5VUygLArow154wod6IV7riqX59uTwzWbQyw33Gun19La9sd+So1TcH95GOX+a7H6uT5+Jl1euMeQ16+zNzkh+/FBuLVtQJaPrXqqytI2ll+9T1taXyNf3xdnckxcO8RtnbF/J60VQ/vhQbn4xF5VSnYV+9BpPvYizgvXywAWzRjF6+rsE78bb2cxYfBsvF+6mw6FLUHeuEFgFHHZOXnmPyflFgre64ra3m/Vt0K55QfKBYvriGkXKyqkQr7+XtK90C0INAb6TUs1/0/VSc/MzXFKmS35cORCp6TLJ8ElqeyDfytmMGMdVHuf9kSPYadOCsz2Ty/kOu79xwv96KtwrWjzHpv6oeG2liGahOpfazY916qjVtbW7quIXev0UdnJgPySwom2c2Jj5Q5D7pbs47Mly2gfWATy8b1FoxTSLV91KP1SfQK/eLH5PsIFR92iy6Ee3Ba9uNqOPf16JLoNqExebbo+W6Avad7FZEs/jXMJHbOzsouAySq4G12fCVmIbLIGuOmrLqP/Un8VRM0fvyyp6Rjct+/MIE66xJbfMYO69jeVJ0V12P5XKfvY96oPOVvLFNZvW6sp3qshXf/XWM7QhlsE40qqc1FuWd3Mry5asTeNEdyVo1McdtDeH3T9fBRRenymKANhH1QkoqVucGfTxLNjLjDty4Ayq5QZjlgFR+m4gBLr3E7KtyoCk/4LOin/PzDGAu9+Xk5w4qBl9DPh9n8QxcVQ5+uYNxDcuuVQ3c6S8pLYQG9xavy11yWeSUB2mXCsex5hi5y+oABeqpy6k7mZq6GHFMVsetwevXi96uQb3RA+yrv3Pvb8Sgrt4+VrMxCtX/up+O1CdFPpa1Vf9YfdL5xiFU7P9MlUB/qhS/e1AxbvEozr6W/XpDv0bzCZfCYl9KxUBtJvo1tKWrnlim1GMt92ZgcvEdDXXSqH6wfuCR7w7pVsUaZT+7dr9noF/TVO5z79MiTT5V3vHlu1Ld0IN8yd/qkMb1dDHwN5GHZd9DfWrf61aRm8eokEfMcWss8P4t64R6LdfLy7+O5RhL3aXkBmzAKKhY/QQWUbwiCi6ipPdT4XG2U2bfJxmKPJ+WrgT1otRKe2qJ63ZMeZrU+Q1d9QCel8XVrFTfZNyu3JcAE10hIlAA2vJKQm7w8rlafmP0QlJdST7SzQr7eElfu/Ws3muHWGYctiZ1nhYFgCACBYAgAgWAIAIFgCACBYAgAgWAIAIFgCACBYAgAgWAIAIFgCACBYAgAgWAIH4UpvzRX/65fQQcnn//m7+3j6p9SwcFd9F86/d1AQ6Z75woLbQoVi2KmMgK7Ism9Z4xCgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBAoAQQQKAEEECgBBBIqAcc+Z1bkzlJl9zhhLL/+8Wnpj+1SlmG1SpXFtJt/ZsFNIny3hF4Md430f1UKgqKGDxPlNV0bzeTa7+3w+ku6kL63lCTCTYedcVAL7/Fymg7bcnHdkWIwmOTHbpErj2lS+C86xujn3BFbsvvz7aBb9T4lKaR8dhk9//GfZUjSdq/Nj3h5M7d+GOmnm0h6oZ6uM5l11/LrqSMeL2SZVGleafLPjIl2VMmfUVevac+cQYkf46r33fVRoUVQ6lhenIpPbu9wn4kzubicipy/UsxVmH+S9fRgtZptUaVybyhf7xQaMgorVe8vfotDMJ6n5VLSPa1sTphVSn8YVs02qNK50+ZY/iWKOF7apSYuCQKFUBwptESz04mtG55+PPTFitkmVxpU+X1O5cukXS7emr4KtaxIo6HrUMCPAq4G96UCk33JH88/k2gRcs7x5kNbRkXRqR/5itkmVxpU+3+PL+2zAU1Ww4iDY9ZlJgGePQFFlNpRX/Yn+UJRFfdcnxHykPmtv3lZfATi7Fp2kOLYRELNNqjSuTeWLvUKgqNWWk5Z9uNA6UWvrtU5CKcpitkmVxvXYfHXLq6WCqoqgcq5aHubae0/4FsX+IFBUOX4hpzKR/lWxuo+v+mrtqbzQlz1Uq6PjnhC2JdK+eOm/MhKzTao0ivnCmE2XMN88f9fjWnVgsDfUm1pSsXpvVQ9mOoN6enEG9nwDeaq7Uitmm1RpVJdBrV8NTqXK12W2KQ+CYXc1Gcw80v+oilCgm46e1Xvrj/7yz7P///1v/j77HzgETeo9XQ8AQQQK4EDplkRsK5quh0LXA4dkUd/zQnWfFgWAoCO1HE7TocKnP/4z+wjYb7rl4GtRfPO3/2Af+X1LdzHcRfOt39cFOHS+8yK/MEZhHWKZcZjWGaMgUFgEChyaJnWewUwAQQQKAEEECgBBBAoAQQSKCKW5PTzzVYTSlOZLiJjzImabVGlcm8i3lD5iGzwt73ukFj3qWaLS20eHw1/mNDefNT/dzd9v0/58vea32zHbpErj2my++Z8w220C9+TEZvjqfPk9MggUVuVBi7mxbG0aczK484PUz3kRs02qNK5N5VtRCQPbYHOaBAq6HpXMHB5Vd3UyItJkc2K05eKlkyK7pd5EHqb277yYbVKlcW0qXzxrBIpKU3nQt4F8uJJOob+Wv01cRJrpgzp1PLJb7VWI2SZVGtem8vUaS+/8RjUoLsSNOdgtBIqAyfsTeWe6aGqZyqCtbyBbvKdkTJoq7z80v691zDap0rjWzVcPkpVvwHsuN92RzO8va1pt2AUEioBit+JYLt+o3rlqeOfPhZg0VU6zu/Q2E7NNqjSudfNl7o/njUDRVEw/PJ8me+yR9fMrxGyTKo1rU/niWSNQVGqJnspi4kaErH/elc+yD8KINFm/fSK3d8XmxezuNpePI2abVGlcG8rX3/WI655hB6jmX0nF6r3mLXN26S5/q3pzWbDwXYGINO4t8+fTwVzFl/LlxZyYbTaVJlW+rqpLb9gOX52veo8IFFZVmc2B0yeFWXwnQkwac2LVp3HFbJMiTemkV1LtO49AsVv0e+aqeo+4H4V1iGXGYWtS5xmjABBEoAAQRKAAEESgABDEvB4AgrjqYXHVA4eGqx4AkiJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQAAgiUAAIIlAACCJQxJgNpXN0JEe9sV1RNBt2sglfl4snXUwaV6p8t7nvvFL6iG3wtLzvkVr0bMYlKr19dDiqyjwdtLPnsqU7smtXzPPt+WBqV8xH866TNiaNK1W+29y3y2zTVSkX7DbtwXyZDZ6Mr86X3yODQGF5yzzqZut13R91fSeBqejt1dliZNstTqKYNK5U+W5z32XeShjYBpvTJFDQ9ahzdq2PpFyf2b9dsw/yXtpy8fLYrrBaJ2rtRB6m6nFMGleqfLe5b+wVAsVjTB/UaeFx/EJO7cOoNK5U+W5z31HG0ju/UQ2KC3FjDnYLgWKD3n+Y2UfVYtK4UuX7lPvWg2Stvg4vN3K+HCQ7l5vuSOb3l0Kc2G0Eig06fRGu/jFpXKnyfcp9H1/ei+r/qkddUf3frEuXLZX9OuwSAsVjZH1yj6wPb8WkcaXKd5v7xl4hUDxG1iefyO1dsak9u7tVa7vymf6wjEnjSpXvNvft8Hc9esK3KJ4JfenDVbF6r4XK7L88atfnLydNB3P1aVu4dBiTxpUq33XSpMrXVXXpDdvhq/N8jyLAW+bsGr8+IdyleCDNSbNafCdLTBpXqnxDaczzmy8TgWK36PfMVfUeHel/1AYFulnoWb3XDrHMOGxN6jxjFACCCBQAgggUAIIIFACCjtTCCB6AWlz1sLjqgUPDVQ8ASREoAAQRKAAEESgABBEoAAQRKAAEEShiBOb1yKuaF6Fy03HPpinfm6GU1zr792yTKo1rE/mW0kdsg/V5j7da9HXUEpXePjocVWU2P7u1P6WumbNiIUsfPU+Fve19u/zTXrPf/G3sTdrwvBn126RK49psvvljY7dhLpBH89X58vE2CBSWt8z2fhS6Hmf3Xqip0AvZgY6sxIs8q06G0v0daufAiNkmVRrXpvKtqLiBbRCnSaCg61EnNK/HY6juzNubtgxe++4bp+89uaX5OLa5b+wsAsUmTPrSyvXvOsPivSXVWSPDV32RwTu5dM6bzDbn49jmvqMwF8g2ECgS07el162Q5aL6F5N+qxgsxlfSn3TljTdKhD3lfByup9y3HlhjLpDdQKDYNNV9UbFCJrd3qh2hmU/E7uha1u3RPOV8HK6n3DdzgewOAsUTaJ2oyj55kKwbPv5afT6qz8jzVdck/6mZtTyyfrtH1s+vELNNqjSuTeWLnUGgeALTBxUI2ifS0n/YAdL8kv/UvNfdkazfvqX5OLa5b4e/68FcIFuhKmpJxeq9Fipz3OXR6XzQdi7bZZfyzCXWKr5LUtn+8usi5s2I2WZTaVLl66q6XIfH89X5quNNoLC8ZbYneXmprrjmQOfThq/3V7055sRaLXUn1ELMNinSlE56JdW+8wgUm6OPv6vqeHOHK+sQy4zD1qTOM0YBIIhAASCIQAEgiEABIIh5PQAEcdXD4qoHDg1XPQAkRaAAEESgABBEoAAQRKAAEESgABBEoIjRYF6PgkfO2THu5Z7XS2do75JVLSbfVGlcm8i3lD5iGzyeW/f0ddQSlc4+OhxVZS78bDzidv0r9vb0a87ZUf4ZdzmNKybfVGlcm83XcxyY1+PR/HXef3wJFJa3zLmbzmQnbk2Fdi3SV1X00n0YCnNV6BvglNNkeVWeIDH5pkrj2lS+vkChBLZBHF+dz+qtp47R9aiz7rwej56z41henOZvyKvN5O52ou9C67/7dEy+qdK4NpUvnthYvs5mQnhZqmMEiuTSzNlxdj2SbjY/SEeGs7H0jlrSl4FMq6JWqrk11pl/Y1P5ejGvx8Zkwdx/R3QCRWrJ5uw4k+u5Chbq9Oq3zuVGfe4O3q0/l0WqOTti0rjWzVcPZDKvx24gUCSVbs4OM9p/LjJa3KlbVMBQJ8qaI/7rzq3hiknjWjdf5vXYHQSKlFLN2TEbyiu1XVcFicU5kc1ANuqqrN6qrohZVxCTb6o0rk3li6dlu4G+1h2BIqWkc3a05SSbCCSn6mTTYvJNlca1oXz9XQ/m9dicM/lMfRYVB9EtVZlLKlbvtVCZm14eXfBd3svyyq8rzW9hLiW6+ytt5wjnu7k0qfJ1eS+PIglvnbfvSbHuTbNPvRIChZVdr9eV213iK25VRTcnzWopnyw2WOSXiC8ZhfNNk6Z00iup9p1HoNgcffz9ynWPO1xZh1hmHLYmdZ4xCgBBBAoAQQQKAEEECgBBzOsBIIirHhZXPXBouOoBICkCBYAgAgWAIAIFgCACBYAgAgWAIAJFlcVcHr4lYn6N0pwchTtT6XtgFp93b1zlnc/Ck86rah6S6DK5r0/ft9M+VaP0mj0vNiZNnvc4RB0ErKOq3unrqCUqvX10OOLKXHHL+QJzq/3qn4Sb5/M/9zc/pS7efj5bF/GzcpfJy/48OOr+GW6Z3NdnyxP4qXe5DOV7asSkcZlt8vu226xxbFDkq/Pl420QKKyoMkfMJ5Ed6MaV2FT+UvBomo+9f4bOJ7vvQ80JuBQzR0YuXz832FiFvGPSlHkrbsxrRlCTQEHXI9pMhm9v1DF8478Nf8bMveGbF6FWqvtGNp6HJKZMSnYLPs+t+Ray18+8HvuMQBFrdid6/p2u96aRC1N50Ld4fLhyxgLq7vNo5gGZtAdSmi8om9djlU92c96Uosqkk+n7Wp5K5c20mddj7xEoIo2vKk5mj8n7E3lnunVqmcqgrW8Omw8W+cFCO7GPM09FdtftZR5qUX2JSb+VNFjElWksV33VShq8XnsKAub1eP4IFFGqp1rzKaY7lss3qneuGt6rc0FP7pMLAm8espZDbRBQ3QoVK/x3SF5LTJlUa6ejTkwVTN6tOaGRxrwezx+BIsJs+FZ9pq0/+1ewHx4ZBFon6qSZPKgOzuPFlGncU62diTpJQ5/eVdMIMK/H3iBQBNnJgbufRTS9W2LOZedUzvrnFXNiWFkQCJjqAZD2idrLY4XLpJv953qi5WnErGfM67H/VFOupGL1Xqssc9NLcaVLic53BbJ5E5zLT6X5LfR3F5x9lvKtV3t5NOqSZH2Zs/xz5XD/LpcpLo2r6nIdHs9X56uON4HC8pc59OUpP3Ow9UlhFvdEcJ/Xi3tOl9NEBCsbTMpL/o0PlckGNt+S26Z00itm3WrxBYCYNHkEis3Rx99Vdby5w5V1iGXGYWtS5xmjABBEoAAQRKAAEESgABDEvB4AgrjqYXHVA4eGqx4AkiJQAAgiUAAIIlAACCJQAAgiUAAIIlDEqJono0JpboQ157eISePah33nldJHbIPHc+el0ddRS1Q6++hwVJW58HPviJtBmPT5n4Q796NQUqVx7cO+XWab/M+e7TaNp0SAy1/n/ceXQGF5y5y7WUx2H4WaCm2Yg1y6x0LhRjGp0rj2Yd9l5UChBLZBHF+dz+q5JwjT9ajTdJ6MVPNbrDMHxj7sG1tWfcNlAkVKqea3WGcOjH3YdxTm9diYLJj774hOoHhC685v4YpJ43qO+9YDmczrsRsIFE9o3fktXDFpXM9x38zrsTsIFCll/W0P26TLpErj2od9Y7tsN9DbAtQjmq6K1XstVObHXPUojtynSuPah30XmefUcS8sVa8BTfnqfNVVDwKFFSpzXKCw6fKVec35LWLSuJ5y326aVPm66gMUHsNb5+17UqzrUwLFgrfM2fV6Xbndpb7imhNitfhOhFRpXE+1b/N88Tik2ncegWJz9PH3M62//PvEHa6sQywzDluTOs9gJoAgAgWAIAIFgCACBYAg5vUAEMRVD4urHjg0XPUAkBSBAkAQgQJAEIECQBCBAkAQgQJAEIGiymIuD9/SGUro5m7uvAjFuSjG0ss/pxZ3qgrvfBaedF5V85BEl8l9fR0Zhu9mV37NnhfLvB67rare6euoJSq9fXQ44srsv/lK0XQ+aEvNvBPm+fzP/c1PqYu3n8/WrTF3ReFmLxH3zyiXyX19tjyBn3qXy2B/qpx7DTFpXGab/L7tNmscGxT56nz5eBsECiuqzBHzSWQHunElNpW/FDya5mPvn6Hzye77UHMCLsXMkZHL188NNlYh75g0Zd6KG/OaEdQkUND1iDaT4dsbdQzfyGXlvWJncnc78c6LUCvVfSObzkMSVSYlu99lW05a9m9X9vqZ12OfEShize5ExQDpflZ3Fk7lQd9d/uHKGQvoqV5/FXWyvurLpD2Q127Wk760cvl0YgYKmogqk052q07lU6m8mTbzeuw9AkWk8VXFyewxeX8i70y3Ti1TGbT1vBT5YJEfLGxJXwYydeap0LeqN9vbRfUlJv1W0mARV6axXPVVK2nwWiKK7sW8Hs8fgSJK9VRrPsV0x3L5RvXOVcN7dS6cyXU+CLx5yFoOtUFAdStUrJDJ7V3u6sRjxJRJtXY66sRUweRdbd+kHvN6PH8Eigiz4Vv1mdaVN+ueLKF+eGQQaJ2ok2byoDo4jxdTpnFPtXYm6iQNfXrHzNkRkwY7i0ARZAYoVUc+oundEnMuO6dy1j/vSt1QQBYEAqZ6AKR9ovbyWOEy6Wb/+U1bBtPrcLmzcYaJ3N4Vw5wZ27Dljknj8Hc96sZ7sDGqKVdSsXqvVZa56aW40qVE57sC2bwJzuWn0vwW+rsLzj5L+darvTwadUmyvsxZ/rlyuH+XyxSXxlV1uQ6P56vzVcebQGH5yxz68pSfOdj6pDCLeyK4z+vFPafLaSKClQ0m5SX/xofKZAObb8ltUzrpFbNutfgCQEyaPALF5ujj76o63tzhyjrEMuOwNanzjFEACCJQAAgiUAAIIlAACGJeDwBBXPWwuOqBQ8NVDwBJESgABBEoAAQRKAAEESgABBEoAAQRKGJUzZNRoTQ3wprzW8Skce3DvvNK6SO2weO589Lo66glKp19dDiqylz4uXfEzSBM+vxPwp37USip0rj2Yd8us03+Z892m8ZTIsDlr/P+40ugsLxlzt0sJruPQk2FNsxBLt1joXCjmFRpXPuw77JyoFAC2yCOr85n9dwThOl61Gk6T0aq+S3WmQNjH/aNLau+4TKBIqVU81usMwfGPuw7CvN6bEwWzP13RCdQPKF157dwxaRxPcd964FM5vXYDQSKJ7Tu/BaumDSu57hv5vXYHQSKlLL+todt0mVSpXHtw76xXbYb6G0B6hFNV8XqvRYq82OuehRH7lOlce3DvovMc+q4F5aq14CmfHW+6qoHgcIKlTkuUNh0+cq85vwWMWlcT7lvN02qfF31AQqP4a3z9j0p1vUpgWLBW+bser2u3O5SX3HNCbFafCdCqjSup9q3eb54HFLtO49AsTn6+PuZ1l/+feIOV9YhlhmHrUmdZzATQBCBAkAQgQJAEIECQBDzegAI4qqHxVUPHBquegBIikABIIhAASCIQAEgiEABIIhAASCIQBFr3MsuJx0d9cSdVcKdA+GoM5TQzd9SzYHRdJ4MbRP5ltJHbIPdxbweFerLbG+60i7/5Ln8c2v7E92ae1eYn07nbzdf3iZVGtdm8/UcB+bf2Fn+Ou9/3wgUVl2Zs2CgTpLyyTCdD9rleypk6SpPEPNGlO7D0HgOjJg0rk3l6wsUSmAbbJevznvfR4WuR8hsKG9v2jJ47buh67G8OBWZ3N7luhozubud6LvF+u8Snd0jkvk3sIvGctWfqM+41+LWdgJFrZkMX/VFBu/k0jlvFs6uR9Kd9KV11JHhbCy9o5b0ZSDTqjtFM/8GdlX2IeG/IzqBos74SvqTrrypihKZM7meq2ChTq9+61xu1Ofu4N36c06kmlsjJo1r3Xz1QCbzb+w3AkUl84nYHV2XmmF5ZrT/XGRk5pyYDkQFDHWirDnin2pujZg0rnXzZf6N/UegqDL+Wn0+qs/I89UlovynZmeoPllnQ3ml1nVVkFicE/qkmY+6Ktlb1RUx6wqyvr6HbfZlUqVxbSpf7AfbvfS2LPWIpqti9V6LKXNpRDi7tblnVL9qfcZ/VaGYd6o0rs3ka54TZ6l6DdgVvjqfXeFjXo9qMWUunyzmpHK/X1D+bkVR6fk158BYJ02qfF31AQq7yF/nbZ3mexR+6wUKzR7Y/BLxJSNzMq4W30mYIk3ppFdS7TuPQPH86PfVz3w/KP/+c4cr6xDLjMPWpM4zmAkgiEABIIhAASCIQAEgiHk9AARx1cPiqgcODVc9ACRFoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAAQRKAAEESgABBEoAgY946yyVwXS2c4s8+szIadQpqj3tg+sxKTxpUq323uO6+UPmIbPC3ve6QWPZtxiUpvHx0OX5lHXVHru/OR/VutyNJ1lyvm8+mgrda154OpXaFSd1UaySWKSeNKle829+0y2+SO52Kb9mC+zAZPxlfny++RQaCwSmWeDuZttc6t91nwWFZsU9Hbq7PFyALK4iSKSeNKle82913mrYSBbbA5TQIFXY9abTlp2YdW60SFj8mDTPUfsw/yXqW5eHmcPbfUOlFrJ/KgE8WkcaXKd5v7xl4hUNQKVPrpg0rhcfxCTu3DqDSuVPluc99RxtI7v1Hx+ELcmIPdQqCocvxSLlTj4ebtUFbDlzO5u/WeIl7vP5QHPl0xaVyp8n3KfetBslZfH7sbOV8Okp3LTXck8/tLIU7sNgJFpWO5vB9Jd9KX1rJit+ThVPXOI52+CFf/mDSuVPk+5b6PL+9F9X/Vo66o/q/uHJvl+swkwE4jUNQ6k+t8pVbL65P3qql8ItnQRdYn98j68FZMGleqfLe5b+wVAkUjpuvRvnhpmspZn3wit3fFpvbs7lat7cpn+sMyJo0rVb7b3LfD3/XoCd+ieCbUp2RJxeq9Fi7zdK5azqVr/qXvWtjLqvlLhzFpXKnyXSdNqnxdVZfesB2+Os/3KALKZbaBQa1fLhVfJjInzWrxnSwxaVyp8g2lMc8XK0eqfecRKHaLfs9cVe/Rkf5HbVCgm4We1XvtEMuMw9akzjNGASCIQAEgiEABIIhAASDoSC2M4AGoxVUPi6seODRc9QCQFIECQIDI/wcwLvuB1HXylwAAAABJRU5ErkJggg==[/img]

Ссылка