Замена чисел словами в Excel

Содержание

Как прописать сумму, число, цифры прописью в Excel

Замена чисел словами в Excel

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

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

Как написать сумму прописью на украинском языке

Сумма в рублях, долларах или евро с копейками прописью

Допустим, мы делаем какие-то расчеты в таблице и получаем итоговую сумму в рублях 1526,23

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

Propis (Amount;Money;lang;Prec)

где

Amount — это ссылка на ячейку с числом

Money — тут указывается вид валюты, можно указать рубли, доллары и евро («RUB», «USD», «EUR») — валюта обязательно указывается в кавычках.

lang — это язык на котором необходимо вывести сумму, доступно два языка английский и русский («EN», «RU») — так же указываем в кавычках

Prec — показывать (1) или не показывать (0) дробную часть

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

Чтобы создать пользовательскую функцию Propis, необходимо скопировать код, указанный ниже, далее нажмите ALT+F11, чтобы открыть VBA,  добавьте новый пустой модуль через меню Insert — Module и вставьте туда скопированный код

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

Function Propis(Amount As String, Optional Money As String = “RUB”, Optional lang As String = “RU”, Optional Prec As Integer = 1) Dim whole As Double Amount = Replace(Amount, “-“, Application.International(xlDecimalSeparator)) Amount = Replace(Amount, “.”, Application.International(xlDecimalSeparator)) Amount = Replace(Amount, “,”, Application.

International(xlDecimalSeparator)) Sum = WorksheetFunction.

Round(CDbl(Amount), 2) Money = UCase(Money) lang = UCase(lang) whole = Int(Sum) fraq = Format(Round((Sum – whole) * 100), “00”) Select Case Class(whole, 1) + Class(whole, 2) * 10 Case 1, 21, 31, 41, 51, 61, 71, 81, 91 w_rus_r = “рубль” w_rus_d = “доллар” w_rus_e = “евро” w_en_r = “rubles” w_en_d = “dollars” w_en_e = “euro” Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 62, 63, 64, 72, 73, 74, 82, 83, 84, 92, 93, 94 w_rus_r = “рубля” w_rus_d = “доллара” w_rus_e = “евро” w_en_r = “rubles” w_en_d = “dollars” w_en_e = “euro” Case Else w_rus_r = “рублей” w_rus_d = “долларов” w_rus_e = “евро” w_en_r = “rubles” w_en_d = “dollars” w_en_e = “euro” End Select Select Case fraq Case 1, 21, 31, 41, 51, 61, 71, 81, 91 f_rus_r = “копейка” f_rus_d = “цент” f_rus_e = “цент” f_rus_p = “сотая” f_en_r = “kopecks” f_en_d = “cents” f_en_e = “cents” f_en_e = “cents” Case 2, 3, 4, 22, 23, 24, 32, 33, 34, 42, 43, 44, 52, 53, 54, 62, 63, 64, 72, 73, 74, 82, 83, 84, 92, 93, 94 f_rus_r = “копейки” f_rus_d = “цента” f_rus_e = “цента” f_en_r = “kopecks” f_en_d = “cents” f_en_e = “cents” Case Else f_rus_r = “копеек” f_rus_d = “центов” f_rus_e = “центов” f_en_r = “kopecks” f_en_d = “cents” f_en_e = “cents” End Select If Prec = 0 Then fraq = “” f_rus_r = “” f_rus_d = “” f_rus_e = “” f_en_r = “” f_en_d = “” f_en_e = “” End If If lang = “RU” Then Select Case Money Case “RUB” Out = ScriptRus(whole) & ” ” & w_rus_r & ” ” & fraq & ” ” & f_rus_r Case “USD” Out = ScriptRus(whole) & ” ” & w_rus_d & ” ” & fraq & ” ” & f_rus_d Case “EUR” Out = ScriptRus(whole) & ” ” & w_rus_e & ” ” & fraq & ” ” & f_rus_e End Select End If If lang = “EN” Then Select Case Money Case “RUB” Out = ScriptEng(whole) & ” ” & w_en_r & ” ” & fraq & ” ” & f_en_r Case “USD” Out = ScriptEng(whole) & ” ” & w_en_d & ” ” & fraq & ” ” & f_en_d Case “EUR” Out = ScriptEng(whole) & ” ” & w_en_e & ” ” & fraq & ” ” & f_en_e End Select End If Propis = WorksheetFunction.Trim(Out) End Function Private Function Class(m, i) Class = Int(Int(m – (10 i) * Int(m / (10 i))) / 10 (i – 1))End Function Private Function ScriptRus(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array(“”, “один “, “два “, “три “, “четыре “, “пять “, “шесть “, “семь “, “восемь “, “девять “) Nums2 = Array(“”, “десять “, “двадцать “, “тридцать “, “сорок “, “пятьдесят “, “шестьдесят “, “семьдесят “, “восемьдесят “, “девяносто “) Nums3 = Array(“”, “сто “, “двести “, “триста “, “четыреста “, “пятьсот “, “шестьсот “, “семьсот “, “восемьсот “, “девятьсот “) Nums4 = Array(“”, “одна “, “две “, “три “, “четыре “, “пять “, “шесть “, “семь “, “восемь “, “девять “) Nums5 = Array(“десять “, “одиннадцать “, “двенадцать “, “тринадцать “, “четырнадцать “, “пятнадцать “, “шестнадцать “, “семнадцать “, “восемнадцать “, “девятнадцать “) If n = 0 Then ScriptRus = “Ноль” Exit Function End If ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class(n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil = Class(n, 8) sotmil = Class(n, 9) mlrd = Class(n, 10) If mlrd > 0 Then Select Case mlrd Case 1 mlrd_txt = Nums1(mlrd) & “миллиард ” Case 2, 3, 4 mlrd_txt = Nums1(mlrd) & “миллиарда ” Case 5 To 20 mlrd_txt = Nums1(mlrd) & “миллиардов ” End Select End If If (sotmil + decmil + mil) > 0 Then sotmil_txt = Nums3(sotmil) Select Case decmil Case 1 mil_txt = Nums5(mil) & “миллионов ” GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Select Select Case mil Case 1 mil_txt = Nums1(mil) & “миллион ” Case 2, 3, 4 mil_txt = Nums1(mil) & “миллиона ” Case 0, 5 To 20 mil_txt = Nums1(mil) & “миллионов ” End Select End Ifwww: sottys_txt = Nums3(sottys) Select Case dectys Case 1 tys_txt = Nums5(tys) & “тысяч ” GoTo eee Case 2 To 9 dectys_txt = Nums2(dectys) End Select Select Case tys Case 0 If dectys > 0 Then tys_txt = Nums4(tys) & “тысяч ” Case 1 tys_txt = Nums4(tys) & “тысяча ” Case 2, 3, 4 tys_txt = Nums4(tys) & “тысячи ” Case 5 To 9 tys_txt = Nums4(tys) & “тысяч ” End Select If dectys = 0 And tys = 0 And sottys 0 Then sottys_txt = sottys_txt & ” тысяч “eee: sot_txt = Nums3(sot) Select Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1(ed)rrr: ScriptRus = mlrd_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt ScriptRus = UCase(Left(ScriptRus, 1)) & LCase(Mid(ScriptRus, 2, Len(ScriptRus) – 1)) End Function Private Function ScriptEng(ByVal Number As Double) Dim BigDenom As String, Temp As String Dim Count As Integer ReDim Place(9) As String Place(2) = ” Thousand ” Place(3) = ” Million ” Place(4) = ” Billion ” Place(5) = ” Trillion ” strAmount = Trim(Str(Int(Number))) Count = 1 Do While strAmount “” Temp = GetHundreds(Right(strAmount, 3)) If Temp “” Then BigDenom = Temp & Place(Count) & BigDenom If Len(strAmount) > 3 Then strAmount = Left(strAmount, Len(strAmount) – 3) Else strAmount = “” End If Count = Count + 1 Loop Select Case BigDenom Case “” BigDenom = “Zero ” Case “One” BigDenom = “One ” Case Else BigDenom = BigDenom & ” ” End Select ScriptEng = BigDenom End Function Private Function GetHundreds(ByVal MyNumber) Dim result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right(“000” & MyNumber, 3) If Mid(MyNumber, 1, 1) “0” Then result = GetDigit(Mid(MyNumber, 1, 1)) & ” Hundred ” End If If Mid(MyNumber, 1, 1) “0” And (Mid(MyNumber, 2, 1) “0” Or Mid(MyNumber, 3, 1) “0”) Then result = result & “And ” End If If Mid(MyNumber, 2, 1) “0” Then result = result & GetTens(Mid(MyNumber, 2)) Else result = result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = resultEnd FunctionPrivate Function GetTens(TensText) Dim result As String result = “” If Val(Left(TensText, 1)) = 1 Then Select Case Val(TensText) Case 10: result = “Ten” Case 11: result = “Eleven” Case 12: result = “Twelve” Case 13: result = “Thirteen” Case 14: result = “Fourteen” Case 15: result = “Fifteen” Case 16: result = “Sixteen” Case 17: result = “Seventeen” Case 18: result = “Eighteen” Case 19: result = “Nineteen” Case Else End Select Else Select Case Val(Left(TensText, 1)) Case 2: result = “Twenty ” Case 3: result = “Thirty ” Case 4: result = “Forty ” Case 5: result = “Fifty ” Case 6: result = “Sixty ” Case 7: result = “Seventy ” Case 8: result = “Eighty ” Case 9: result = “Ninety ” Case Else End Select result = result & GetDigit _ (Right(TensText, 1)) End If GetTens = resultEnd FunctionPrivate Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = “One” Case 2: GetDigit = “Two” Case 3: GetDigit = “Three” Case 4: GetDigit = “Four” Case 5: GetDigit = “Five” Case 6: GetDigit = “Six” Case 7: GetDigit = “Seven” Case 8: GetDigit = “Eight” Case 9: GetDigit = “Nine” Case Else: GetDigit = “” End SelectEnd Function

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

=Propis(B2;”RUB”;”RU”;1)

Числа прописью с копейками  заглавными или строчными буквами в Excel

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

Function РубПропись(Сумма As Double, Optional Без_копеек As Boolean = False, _ Optional КопПрописью As Boolean = False, Optional начинитьПрописной As Boolean = True) As String'Функция для написания суммы прописью Dim ed, des, sot, ten, razr, dec Dim i As Integer, str As String, s As String Dim intPart As String, frPart As String Dim mlnEnd, tscEnd, razrEnd, rub, cop dec = Array(“”, “одна “, “две “, “три “, “четыре “, “пять “, “шесть “, “семь “, “восемь “, “девять “) ed = Array(“”, “один “, “два “, “три “, “четыре “, “пять “, “шесть “, “семь “, “восемь “, “девять “) ten = Array(“десять “, “одиннадцать “, “двенадцать “, “тринадцать “, “четырнадцать “, “пятнадцать “, “шестнадцать “, “семнадцать “, “восемнадцать “, “девятнадцать “) des = Array(“”, “”, “двадцать “, “тридцать “, “сорок “, “пятьдесят “, “шестьдесят “, “семьдесят “, “восемьдесят “, “девяносто “) sot = Array(“”, “сто “, “двести “, “триста “, “четыреста “, “пятьсот “, “шестьсот “, “семьсот “, “восемьсот “, “девятьсот “) razr = Array(“”, “тысяч”, “миллион”, “миллиард”) mlnEnd = Array(“ов “, ” “, “а “, “а “, “а “, “ов “, “ов “, “ов “, “ов “, “ов “) tscEnd = Array(” “, “а “, “и “, “и “, “и “, ” “, ” “, ” “, ” “, ” “) razrEnd = Array(mlnEnd, mlnEnd, tscEnd, “”) rub = Array(“рублей”, “рубль”, “рубля”, “рубля”, “рубля”, “рублей”, “рублей”, “рублей”, “рублей”, “рублей”) cop = Array(“копеек”, “копейка”, “копейки”, “копейки”, “копейки”, “копеек”, “копеек”, “копеек”, “копеек”, “копеек”) If Сумма >= 1000000000000# Or Сумма < 0 Then РубПропись = CVErr(xlErrValue): Exit Function '&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 Then intPart = Left$(Format(Сумма, “000000000000.00”), 12) For i = 0 To 3 s = Mid$(intPart, i * 3 + 1, 3) If s “000” Then str = str & sot(CInt(Left$(s, 1))) If Mid$(s, 2, 1) = “1” Then str = str & ten(CInt(Right$(s, 1))) Else str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$(s, 1)))) End If On Error Resume Next str = str & IIf(Mid$(s, 2, 1) = “1”, razr(3 – i) & razrEnd(i)(0), _ razr(3 – i) & razrEnd(i)(CInt(Right$(s, 1)))) On Error GoTo 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = “1”, rub(0), rub(CInt(Right$(s, 1)))) End If РубПропись = str '''''''''''''''''' If Без_копеек = False Then frPart = Right$(Format(Сумма, “0.00”), 2) If frPart = “00” Then frPart = “” Else If КопПрописью Then frPart = IIf(Left$(frPart, 1) = “1”, ten(CInt(Right$(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(Right$(frPart, 1)))) Else frPart = IIf(Left$(frPart, 1) = “1”, frPart & ” ” & cop(0), frPart & ” ” & cop(CInt(Right$(frPart, 1)))) End If End If РубПропись = str & ” ” & frPart End If ''''''''''''''''''' РубПропись = str & frPart If начинитьПрописной Then Mid$(РубПропись, 1, 1) = UCase(Mid$(РубПропись, 1, 1))' If начинитьПрописной Then РубПропись = UCase(Left(РубПропись, 1)) & Mid(РубПропись, 2)End Function

  • Без копеек (1), с копейками (0)
  • Копейки прописью (1), числом (0)
  • Начинать прописью (0), заглавной (1)

Вот как используется функция

Примечание

  • Данная функция будет работать с числами от 0 до 99 999 999
  • Перед копирование кода переключите раскладку клавиатуры на русский язык (для корректного копирования русского текста)
  • Код VBA необходимо вставлять во все файлы (Книги Excel), где вы хотите, чтобы она работала
  • После вставки код, необходимо сохранить файл с поддержкой макросов xlsm (в Excel, начиная с 2007 версии)
  • Функцию можно либо набирать в ручную, либо, если вы забыли как она пишется, через мастер функций (кнопка fx в строке формул, категория Определенные пользователем)

60 Комментариев

Источник: https://sirexcel.ru/makrosi_vba/kak-propisat-summu-chislo-cifry-propisyu-v-excel/

Поиск и замена данных в Excel — команда Найти и заменить

Замена чисел словами в Excel

Поиск и замена данных – одна из часто применяемых операций в Excel. Используют даже новички. На ленте есть большая кнопка.

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

Далее вызываем → Редактирование → Найти и выделить → Найти (кнопка с рисунка выше). Поиск также можно включить с клавиатуры комбинацией клавиш Сtrl+F, что гораздо удобней. Перед нами открывается диалоговое окошко под названием Найти и заменить.

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

Для вывода результатов поиска предлагается два варианта: выводить все результаты сразу – кнопка Найти все; либо выводить по одному найденному значению – кнопка Найти далее.

На рисунке выше выделено красной рамкой.

После запуска поиска программа Excel быстро-быстро просматривает содержимое листа (или указанного диапазона) на предмет наличия искомой комбинации символов. Если такая комбинация обнаружена, то в случае нажатия кнопки Найти все Excel вываливает все найденные ячейки.

Если в нижней части окна выделить любое значение и затем нажать Ctrl+A, то в диапазоне поиска будут выделены все соответствующие ячейки.

Если же запуск поиска произведен кнопкой Найти далее, то Excel выделяет ближайшую ячейку, соответствующую поисковому запросу.

При повторном нажатии клавиши Найти далее (либо Enter с клавиатуры) выделяется следующая ближайшая ячейка (подходящая под параметры поиска) и т.д.

После выделения последней ячейки Excel перепрыгивает на самую верхнюю и начинается все заново. На этом познания о поиске данных в Excel у большинства пользователей заканчиваются.

Поиск нестрогого соответствия символов

Иногда пользователь не знает точного сочетания искомых символов что существенно затрудняет поиск. Данные также могут содержать различные опечатки, лишние пробелы, сокращения и пр.

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

А может случиться и обратная ситуация: заданной комбинации соответствует слишком много ячеек и цель поиска снова не достигается (кому нужны 100500+ найденных ячеек?).

Для решения этих проблем очень хорошо подходят джокеры (подстановочные символы), которые сообщают Excel о сомнительных местах.

Под джокерами могут скрываться различные символы, и Excel видит лишь их относительное расположение в поисковой фразе.

Таких джокеров два: звездочка «*» (любое количество неизвестных символов) и вопросительный знак «?» (один «?» – один неизвестный символ).

Так, если в большой базе клиентов нужно найти человека по фамилии Иванов, то поиск может выдать несколько десятков значений. Это явно не то, что вам нужно. К поиску можно добавить имя, но оно может быть внесено самым разным способом: И.Иванов, И. Иванов, Иван Иванов, И.И. Иванов и т.

д. Используя джокеры, можно задать известную последовательно символов независимо от того, что находится между. В нашем примере достаточно ввести и*иванов и Excel отыщет все выше перечисленные варианты записи имени данного человека, проигнорировав всех П. Ивановых, А. Ивановых и проч.

Секрет в том, что символ «*» сообщает Экселю, что под ним могут скрываться любые символы в любом количестве, но искать нужно то, что соответствует символам «и» + что-еще + «иванов». Этот прием значительно повышает эффективность поиска, т.к. позволяет оперировать не точными критериями.

Если с пониманием искомой информации совсем туго, то можно использовать сразу несколько звездочек. Так, в списке из 1000 позиций по поисковой фразе мол*с*м*уход я быстро нахожу позицию «Мол-ко д/сн мак. ГАРНЬЕР Осн.уход д/сух/чув.к.

200мл» (это сокращенное название от «Молочко для снятия макияжа Гараньер Основной уход….»). При этом очевидно, что по фразе «молочко» или «снятие макияжа» поиск ничего бы не дал.

Часто достаточно ввести первые буквы искомых слов (которые наверняка присутствуют), разделяя их звездочками, чтобы Excel показал чудеса поиска. Главное, чтобы последовательность символов была правильной.

Есть еще один джокер – знак «?». Под ним может скрываться только один неизвестный символ. К примеру, указав для поиска критерий 1?6, Excel найдет все ячейки содержащие последовательность 106, 116, 126, 136 и т.д.

А если указать 1??6, то будут найдены ячейки, содержащие 1006, 1016, 1106, 1236, 1486 и т.д.

Таким образом, джокер «?» накладывает более жесткие ограничения на поиск, который учитывает количество пропущенных знаков (равный количеству проставленных вопросиков «?»).

В случае неудачи можно попробовать изменить поисковую фразу, поменяв местами известные символы, сократив их, добавить новые подстановочные знаки и др.

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

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

Продвинутый поиск

Мало, кто обращается к кнопке Параметры в диалоговом окне Найти и заменить. А зря.

В ней скрыто много полезностей, которые помогают решить некоторые проблемы поиска.

После нажатия обозначенной кнопки в окошке Найти и заменить добавляются дополнительные поля, которые еще больше углубляют и расширяют условия поиска. Рассмотрим их по порядку.

С помощью дополнительных параметров поиск в Excel может заиграть новыми красками в прямом смысле слова. Так, искать можно не только заданное число или текст, но и формат ячейки (залитые определенным цветом, имеющие заданные границы и т.д.).

После нажатия кнопки Формат выскакивает знакомое диалоговое окно формата ячеек, только в этот раз мы не создаем, а ищем нужный формат. Формат также можно не задавать вручную, а выбрать из имеющегося, воспользовавшись специальной командой «Выбрать формат из ячейки»:

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

Поиск формата – это хорошо, но чаще искать приходится конкретные значения. И тут Excel предоставляет дополнительные возможности для расширения и уточнения параметров поиска.

Первый выпадающий список «Искать» предлагает ограничить поиск одним листом или расширить его до целой книги.

По умолчанию (если не лезть в параметры) поиск происходит только на активном листе. Для повторения поиска на другом листе все действия нужно проделать еще раз. А если таких листов много, то поиск данных может отнять немало времени. Однако если выбрать пункт «Книга», то поиск произойдет сразу по всем листам активной книги. Выгода очевидна.

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

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

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

Поэтому бывает смотришь в упор на ячейку, видишь искомое значение, а Excel его почему-то не видит. Это не глюк, это настройка поиска. Измените данный параметр на «Значения» и поиск будет осуществляться по тому, что отражено в ячейке, независимо от содержимого.

 Например, если в ячейке содержится результат вычисления 1/6 (как значение, а не формула) и при этом формат отражает только 3 знака после запятой (т.

е 0,167), то поиск символов «167» при выборе параметра «Формулы» эту ячейку не обнаружит (реальное содержимое ячейки — это 0,166666…), а при выборе «Значения» поиск увенчается успехом (искомые символы совпадают с тем, что отражается в ячейке). И последний пункт в данном списке – «Примечания». Поиск осуществляется только в примечаниях. Очень может помочь, т.к. примечания часто скрыты.

В диалоговом окне поиска есть еще две галочки «Учитывать регистр» и «Ячейка целиком». По умолчанию Excel игнорирует регистр, но можно сделать так, чтобы «иванов» и «Иванов» отличались.

Галочка «Ячейка целиком» также может оказаться весьма полезной, если ищется ячейка не с указанным фрагментом, а полностью состоящая из искомых символов. К примеру, как найти ячейки, содержащие только 0? Обычный поиск не подойдет, т.к. будут выдаваться и 10, и 100.

Зато, если установить галочку «Ячейка целиком», то все пойдет, как по маслу.

Поиск и замена данных

Понятное дело, что данные ищутся не просто так, а для каких-то целей. Такой целью часто является замена искомой комбинации (или формата) на другую. Чтобы найти и заменить данные, в окошке «Найти и заменить» необходимо выбрать закладку «Замена». Можно сразу выбрать на ленте соответствующую команду.

Либо нажать на горячую клавишу Ctrl+H.

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

По аналогии с простым поиском, менять можно и формат.

Кнопка «Заменить все» позволяет одним махом заменить одни символы на другие. После замены Excel показывается информационное окно с количеством произведенных замен. Кнопка «Заменить» позволяет производить замену по одной ячейке после каждого нажатия.

Напоследок рассмотрим один классный трюк с поиском и заменой. Многие знают, что в ячейку можно вставить разрыв строк с помощью комбинации Alt+Enter.

А как быстро удалить все разрывы строк? Обычно это делают вручную.

Однако ловкое использование поиска и замены сэкономит много времени. Вызываем команду поиска и замены с помощью комбинации Ctrl+H. Теперь в строке поиска нажимаем Ctrl+J — это символ разрыва строки — на экране появится точка.

В строке замены указываем, например, пробел.

Жмем Ok. Все переносы строк заменились пробелами.

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

Если что-то не ищется в ваших данных или наоборот, выдает слишком много лишних ячеек, то попробуйте уточнить поиск с помощью подстановочных символов «*» и «?» или настраиваемых параметров поиска.

Важно понимать, что если вы ничего не нашли, это еще не значит, что там этого нет.

Экономьте свое и чужое время.

Всех благ и до встречи на statanaliz.info.

в социальных сетях:

Источник: https://statanaliz.info/excel/upravlenie-dannymi/poisk-i-zamena-dannykh-v-excel/

Как заменить числа словами в экселе. Быстрый и эффективный поиск и замена символов в программе Excel

Замена чисел словами в Excel

Точка вместо запятой дробных чисел может привести к существенным последствиям при расчетах в программе Excel. Чаще всего такие ошибки случаются, когда импортируются данные в таблицу из других источников.

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

Как в Excel заменить точку, на запятую?

Выделите и скопируйте данные из ниже приведенной таблицы:

Теперь перейдите на рабочий лист и щелкните правой кнопкой мышки по ячейке A1. Из появившегося контекстного меню выберите опцию «Специальная вставка». В диалоговом окне выберите «Текст в кодировке Unicode» и нажмите ОК.

Как видно Excel распознает числа только в колонке C. Значения в этой колонке выровнены по правой стороне. В других колонках по левому краю.

Во всех ячейках формат по умолчанию «Общий», а в ячейках D3, D5, E3, E5 вообще отображается формат «Дата». Мы копировали данные через специальную вставку и все форматы исходной таблицы устранены.

Причина только одна – вместо запятой стоит точка. Такой тип данных не подготовлен и его нельзя использовать для вычислений.

Примечание. Если копировать данные из других источников без специальной вставки, то вместе с данными копируется и формат. В таком случаи формат ячеек «Общий» (по умолчанию) может быть изменен. Тогда нельзя визуально отличить, где распознано число, а где текст.

Все последующие действия необходимо выполнять с чистого листа. Удалите все, что есть на листе или откройте новый для дальнейшей работы.

Чтобы заменить точку, на запятую в импортированных данных можно использовать 4 способа:



Способ 1 замена точки на запятую в Excel через Блокнот

Программа Блокнот Windows не требует использования сложных настроек и функций, а лишь выступает посредником в копировании и предварительной подготовки данных.

Программа Блокнот заменила все точки, на запятые. Теперь данные готовы для копирования и вставки на лист.

Это весьма простой, но очень эффективный способ.

Способ 2 временно меняем настройки Excel

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

Для этого нужно открыть «Файл»-«Параметры»-«Дополнительно». В разделе «Параметры правки» следует временно убрать галочку «Использовать системные разделители». А в поле «Разделитель целой и дробной части» следует удалить запятую и ввести точку.

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

Внимание! Данный способ сработает, если сделать все изменения до импорта данных, а не после.

Способ 3 временно меняем системные настройки Windows

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

Открываем «Пуск»-«Панель управления»-«Языки и региональные стандарты». Нажимаем на кнопку «Дополнительно». В появившимся окне изменяем в первом поле «Разделитель целой и дробной части» – вводим нужное нам значение. Дальше ОК и ОК.

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

Способ 4 используем функцию найти и заменить в Excel

Данный способ похож на первый. Только здесь мы используем ту же функцию из Блокнота, но уже в самом Excel.

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

Важным недостатком данного способа является сложность его реализации, если некоторые дробные числа с точкой после вставки были распознаны как дата, а не как текст. Поэтому мы сначала избавимся от дат, а потом разберемся с текстом и точками.

Все точки сменились на запятые. А текст автоматически преобразился в число.

Вместо 4-го и 5-го пункта можно использовать в отдельной колонке формулу с функциями:

Например, выделите диапазон ячеек G2:I5, введите эту формулу и нажмите CTRL+Enter. А потом переместите значения ячеек диапазона G2:I5 в диапазон D2:F5.

Эта формула находит в тексте точку с помощью функции НАЙТИ. Потом вторая функция меняет ее на запятую. А функция ЗНАЧЕН преобразует полученный результат в число.

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

xsls, который в дальнейшем нужно было отредактировать и посчитать все нужные цифры с помощью формул.

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

Когда пришло время вбивать формулы для расчётов, ничего не получалось. Excel ничего считать не хотел, а в формулах при вводе ставились не те цифры которые были нужны.

Нажимая на столбик №5 в формуле показывалась цифра «–7», после чего вылетало сообщение о том, что в формулах нельзя использовать знак «-».

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

Поковырявшись в настройках я решил переустановить Excel, результатов это не принесло, хотя, возможно, причиной было то что, я не почистил папку Aplication Data\Microsoft в профиле пользователя.

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

И для того, что бы на все это потратить несколько минут, смотрите ниже где они находятся.

Меняем имена столбцов с цифр на буквы в Еxcel 2003 и 2007—2013

Для изменения в Microsoft Office 2003 нам нужно, открыв офис перейти на верхнюю панель окна и нажав «Сервис» выбрать «Параметры» после чего в открывшемся окне перейти на вкладку «Общие». Именно в этом меню снимаем галочку с пункта «Стиль ссылок R1C1».

В Excel начиная с 2007 по 2013, меню было немного изменено, но сам принцип замены цифр на буквы не был затронут. В общем нажав на «Файл» –> «Параметры» –> «Формулы» и перейдя к параметрам работы с формулами так же убираем галочку с «Стиль ссылок R1C1».

На самом деле все достаточно просто и делается в несколько кликов.

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

Для возвращения к цифровому виду набираем следующее: Application.ReferenceStyle=xlR1C1.

Источник: https://erfa.ru/kak-zamenit-chisla-slovami-v-eksele-bystryi-i-effektivnyi-poisk-i.html

Сумма прописью в Excel

Замена чисел словами в Excel

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

Как в Excel сделать сумму прописью

Скачать файл надстройки

Чтобы получить эту возможность, вы можете скачать надстройку «Сумма прописью» в Excel бесплатно на нашем сайте.

Разместите его в любом удобном каталоге и подключите. Для этого следует пройти следующие этапы:

  • Запустите Excel и нажмите «Файл».
  • Щелкните на параметры.
  • Далее переходите в надстройки. И кликайте по кнопке «Перейти».
  • Чтобы подгрузить скачанный файл жмите «Обзор».
  • И ищите его в папке, куда сохраняли. Вам предложат скопировать файл в папку надстроек, рекомендуем согласиться. Так Excel всегда будет видеть эту надстройку и вы легко найдете функцию для суммы прописью.
  • Нужная библиотека Excel подключена. Галочка означает, что ее можно использовать. Жмите ОК.
  • Нужные действия реализованы в виде функции СУММА_ПРОПИСЬЮ. Чтобы применить ее, введите в ячейку A1 число и установите указатель рядом, на B1. Нажмите значок Fx около строки формул.
  • И в полном алфавитном перечне найдите функцию СУММА_ПРОПИСЬЮ. Рекомендуем начать печатать название. В таком случае Excel сам перемотает ближе к нужному разделу.
  • Жмите ОК и в окне мастера укажите адрес A1. Можно просто мышкой кликнуть по ячейке.
  • После нажатия ОК вы увидите сумму прописью.

Эта функция «сумма_прописью» работает в Excel 2007, 2010, 2016

Данная надстройка работает только для рублей. Если вам нужна другая валюта, скачайте еще файл sumprop.xla. Действуя по аналогии подключите надстройку для получения суммы прописью в Excel.

Для проверки введем в ячейке A3 произвольное число. Пусть это будет десятичная дробь. Также вызовем окно вставки функций и найдем новые функции для вывода суммы прописью.

Как видите, нам стали доступны:

  • Сумма Прописью
  • Сумма Прописью Доллары
  • Сумма Прописью Евро
  • Сумма Прописью Евро

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

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

Формула суммы прописью в Excel – как написать число

Для вывода числа прописью в Excel можно создать формулу. Приведем пример:

ПОДСТАВИТЬ(ПРОПНАЧ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);1;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A3;n0);2;1)+1;ПСТР(ТЕКСТ(A3;n0);3;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);1;3);”миллиард”&ВПР(ПСТР(ТЕКСТ(A3;n0);3;1)*И(ПСТР(ТЕКСТ(A3;n0);2;1)-1);мил;2);””)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);4;1)+1)&ИНДЕКС(n0x;ПСТР(ТЕКСТ(A3;n0);5;1)+1;ПСТР(ТЕКСТ(A3;n0);6;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);4;3);”миллион”&ВПР(ПСТР(ТЕКСТ(A3;n0);6;1)*И(ПСТР(ТЕКСТ(A3;n0);5;1)-1);мил;2);””)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);7;1)+1)&ИНДЕКС(n1x;ПСТР(ТЕКСТ(A3;n0);8;1)+1;ПСТР(ТЕКСТ(A3;n0);9;1)+1)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);7;3);ВПР(ПСТР(ТЕКСТ(A3;n0);9;1)*И(ПСТР(ТЕКСТ(A3;n0);8;1)-1);тыс;2);””)&ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);10;1)+1)&ИНДЕКС(ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);14;6);n1x;n0x);ПСТР(ТЕКСТ(A3;n0);11;1)+1;ПСТР(ТЕКСТ(A3;n0);12;1)+1));”z”;” “)&ЕСЛИ(ОТБР(ТЕКСТ(A3;n0));;”Ноль “)&ЕСЛИ(-ПСТР(ТЕКСТ(A3;n0);14;6);ЕСЛИ(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);11;2)-11;100);9);10);”целых “;”целая “)&ПОДСТАВИТЬ(ИНДЕКС(n_4;ПСТР(ТЕКСТ(A3;n0);14;6)/105+1)&ИНДЕКС(n1x;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/104;10)+1;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000;10)+1)&ЕСЛИ(ЦЕЛОЕ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000);ВПР(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/1000;10)*(ОСТАТ(ЦЕЛОЕ(ПСТР(ТЕКСТ(A3;n0);14;6)/104);10)1);тыс;2);””)&ИНДЕКС(n_4;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/100;10)+1)&ИНДЕКС(n1x;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)/10;10)+1;ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6);10)+1);”z”;” “)&ИНДЕКС(доля;ДЛСТР(ПСТР(ТЕКСТ(A3;n0);14;6));(ОСТАТ(МАКС(ОСТАТ(ПСТР(ТЕКСТ(A3;n0);14;6)-11;100);9);10)>0)+1);)

Для ее использования вам необходимо указать несколько массивов Excel:

  • n_1 ={“”;”одинz”;”дваz”;”триz”;”четыреz”;”пятьz”;”шестьz”;”семьz”;”восемьz”;”девятьz”}
  • n_2 ={“десятьz”;”одиннадцатьz”;”двенадцатьz”;”тринадцатьz”;”четырнадцатьz”;”пятнадцатьz”;”шестнадцатьz”;”семнадцатьz”;”восемнадцатьz”;”девятнадцатьz”}
  • n_3 ={“”:1:”двадцатьz”:”тридцатьz”:”сорокz”:”пятьдесятz”:”шестьдесятz”:”семьдесятz”:”восемьдесятz”:”девяностоz”}
  • n_4 ={“”;”стоz”;”двестиz”;”тристаz”;”четырестаz”;”пятьсотz”;”шестьсотz”;”семьсотz”;”восемьсотz”;”девятьсотz”}
  • n_5 ={“”;”однаz”;”двеz”;”триz”;”четыреz”;”пятьz”;”шестьz”;”семьz”;”восемьz”;”девятьz”}
  • n0 =”000000000000″&ПСТР(1/2;2;1)&”0#####”
  • n0x =ЕСЛИ(n_3=1;n_2;n_3&n_1)
  • n1x =ЕСЛИ(n_3=1;n_2;n_3&n_5)
  • доля ={“десятая”;”десятых”:”сотая”;”сотых”:”тысячная”;”тысячных”:”десятитысячная”;”десятитысячных”:”стотысячная”;”стотысячных”:”миллионная “;”миллионных”}
  • мил ={0;”овz”:1;”z”:2;”аz”:5;”овz”}
  • тыс ={0;”тысячz”:1;”тысячаz”:2;”тысячиz”:5;”тысячz”}

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

В англоязычном Excel формула суммы прописью будет выглядеть следующим образом:

SUBSTITUTE(PROPER(INDEX(n_4,MID(TEXT(A1,n0),1,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),2,1)+1,MID(TEXT(A1,n0),3,1)+1)&IF(-MID(TEXT(A1,n0),1,3),”миллиард”&VLOOKUP(MID(TEXT(A1,n0),3,1)*AND(MID(TEXT(A1,n0),2,1)-1),мил,2),””)&INDEX(n_4,MID(TEXT(A1,n0),4,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),5,1)+1,MID(TEXT(A1,n0),6,1)+1)&IF(-MID(TEXT(A1,n0),4,3),”миллион”&VLOOKUP(MID(TEXT(A1,n0),6,1)*AND(MID(TEXT(A1,n0),5,1)-1),мил,2),””)&INDEX(n_4,MID(TEXT(A1,n0),7,1)+1)&INDEX(n1x,MID(TEXT(A1,n0),8,1)+1,MID(TEXT(A1,n0),9,1)+1)&IF(-MID(TEXT(A1,n0),7,3),VLOOKUP(MID(TEXT(A1,n0),9,1)*AND(MID(TEXT(A1,n0),8,1)-1),тыс,2),””)&INDEX(n_4,MID(TEXT(A1,n0),10,1)+1)&INDEX(n0x,MID(TEXT(A1,n0),11,1)+1,MID(TEXT(A1,n0),12,1)+1)),”z”,” “)&IF(TRUNC(TEXT(A1,n0)),””,”Ноль “)&”рубл”&VLOOKUP(MOD(MAX(MOD(MID(TEXT(A1,n0),11,2)-11,100),9),10),{0,”ь “;1,”я “;4,”ей “},2)&RIGHT(TEXT(A1,n0),2)&” копе”&VLOOKUP(MOD(MAX(MOD(RIGHT(TEXT(A1,n0),2)-11,100),9),10),{0,”йка”;1,”йки”;4,”ек”},2)

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

Преобразование с помощью макросов Excel

Можно написать собственную функцию, которая произведет конвертацию суммы прописью. Нажмите сочетание ALT+F11 и в открывшемся разработчике Excel VBA вставьте новый модуль.

В него добавьте следующий код.

Function SUMMPROPIS(n As Double) As String Dim Chis1, Chis2, Chis3, Chis4, Chis5 As Variant Chis1 = Array(“”, “один “, “два “, “три “, “четыре “, “пять “, “шесть “, “семь “, “восемь “, “девять “) Chis2 = Array(“”, “десять “, “двадцать “, “тридцать “, “сорок “, “пятьдесят “, “шестьдесят “, “семьдесят “, “восемьдесят”, “девяносто “) Chis3 = Array(“”, “сто “, “двести “, “триста “, “четыреста “, “пятьсот “, “шестьсот “, “семьсот “, “восемьсот “, “девятьсот “) Chis4 = Array(“”, “одна “, “две “, “три “, “четыре “, “пять “, “шесть “, “семь “, “восемь “, “девять “) Chis5 = Array(“десять “, “одиннадцать “, “двенадцать “, “тринадцать “, “четырнадцать “, “пятнадцать “, “шестнадцать “, “семнадцать “, “восемнадцать “, “девятнадцать “) If n 0 Then thous_txt = Chis4(thous) & “тысяч ” Case 1 thous_txt = Chis4(thous) & “тысяча ” Case 2, 3, 4 thous_txt = Chis4(thous) & “тысячи ” Case 5 To 9 thous_txt = Chis4(thous) & “тысяч ” End Select If desthous = 0 And thous = 0 And hundthous 0 Then hundthous_txt = hundthous_txt & ” тысяч ” eee: hund_txt = Chis3(hund) Select Case des Case 1 cifr_txt = Chis5(cifr) GoTo rrr Case 2 To 9 des_txt = Chis2(des) End Select cifr_txt = Chis1(cifr) rrr: SUMMPROPIS = desmil_txt & mil_txt & hundthous_txt & desthous_txt & thous_txt & hund_txt & des_txt & cifr_txt End Function Private Function Retclass(M, I) Retclass = Int(Int(M – (10 I) * Int(M / (10 I))) / 10 (I – 1)) End Function

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

Перевод в сумму прописью осуществляется только для целых чисел.
Дробное число требует дополнительной формулы: =SUMMPROPIS(A7)&” руб. “&ТЕКСТ((A7-ЦЕЛОЕ(A7))*100;”00″)&” коп.”

Вместо ячейки A7 подставляйте свой адрес. Копейки в таком исполнении будут выводиться в виде числа.

Мы рассмотрели все способы представления суммы прописью в Excel. Выбирайте для себя самый удобный и пользуйтесь с удовольствием!

Источник: https://WindowsTips.ru/summa-propisyu-v-excel

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

Замена чисел словами в Excel
54701 13.08.2016 Скачать пример

Если для каких-либо ячеек на листе был установлен текстовый формат (это мог сделать пользователь или программа при выгрузке данных в 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'ем как текст, поэтому не будет работать группировка и сортировка. Решения – те же самые, что и для чисел, только формат вместо числового нужно заменить на дату-время.

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

Источник: https://www.planetaexcel.ru/techniques/7/1091/

Поделиться:
Нет комментариев

    Добавить комментарий

    Ваш e-mail не будет опубликован. Все поля обязательны для заполнения.