Украшение
Украшение
 

 

Как создать сайт в программе Frontpage -    Уроки Frontpage

    Начало  Создание сайта  О Школе  О Партнерке   Связь  

 

Как перевести формат word в эксель


Как перевести Ворд в Эксель

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

Основные способы конвертации

Можно выделить три основных способа конвертации файлов Word в Excel:

  • простое копирование данных;
  • использование сторонних специализированных приложений;
  • использование специализированных онлайн-сервисов.

Способ 1: копирование данных

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

  1. Выделяем нужный отрезок текста или текст целиком в Microsoft Word. Кликаем правой кнопкой мыши, чем вызываем контекстное меню. Выбираем пункт «Копировать». Можно вместо использования контекстного меню, после выделения текста, кликнуть по кнопке «Копировать», которая размещается во вкладке «Главная» в блоке инструментов «Буфер обмена». Ещё одним вариантом является после выделения текста нажатие комбинации клавиш на клавиатуре Ctrl+C.
  2. Открываем программу Microsoft Excel. Кликаем ориентировочно по тому месту на листе, куда собираемся вставить текст. Правым кликом мыши вызываем контекстное меню. В нём в блоке «Параметры вставки» выбираем значение «Сохранить исходное форматирование».

    Также, вместо этих действий, можно нажать на кнопку «Вставить», которая размещена на самом левом краю ленты. Ещё один вариант – это нажатие комбинации клавиш Ctrl+V.

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

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

Способ 2: продвинутое копирование данных

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

  1. Открываем файл в программе Word. Находясь во вкладке «Главная», кликаем по значку «Отобразить все знаки», который размещен на ленте в блоке инструментов «Абзац». Вместо данных действий можно просто нажать комбинацию клавиш Ctrl+*.
  2. Появится специальная разметка. В конце каждого абзаца стоит знак. Важно отследить, чтобы не было пустых абзацев, иначе конвертирование будет некорректным. Такие абзацы следует удалить.
  3. Переходим во вкладку «Файл».
  4. Выбираем пункт «Сохранить как».
  5. Открывается окно сохранения файла. В параметре «Тип файла» выбираем значение «Обычный текст». Жмем на кнопку «Сохранить».
  6. В открывшемся окне преобразования файла никаких изменений вносить не нужно. Просто жмем кнопку «OK».
  7. Открываем программу Эксель во вкладке «Файл». Выбираем пункт «Открыть».
  8. В окне «Открытие документа» в параметре открываемых файлов установите значение «Все файлы». Выберете тот файл, который до этого сохраняли в Ворде, как обычный текст. Жмем на кнопку «Открыть».
  9. Открывается Мастер импорта текстов. Указываем формат данных «С разделителями». Жмем на кнопку «Далее».
  10. В параметре «Символом-разделителем является» указываем значение «Запятая». Со всех остальных пунктов снимаем галочки при их наличии. Жмем на кнопку «Далее».
  11. В последнем окне выбираем формат данных. Если у вас обычный текст, то рекомендуется выбрать формат «Общий» (установлен по умолчанию) или «Текстовый». Жмем на кнопку «Готово».
  12. Как видим, сейчас каждый абзац вставлен не в отдельную ячейку, как при предыдущем способе, а в отдельную строку. Теперь нужно расширить эти строки, чтобы отдельные слова не терялись. После этого, можно отформатировать ячейки на ваше усмотрение.

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

Урок: как вставить таблицу из Word в Excel

Способ 3: применение приложений для конвертирования

Ещё одним способом преобразовать документы Ворд в Эксель является применение специализированных приложений для конвертирования данных. Одним из наиболее удобных из них является программа Abex Excel to Word Converter.

  1. Открываем утилиту. Жмем на кнопку «Add Files».
  2. В открывшемся окне, выбираем файл, который подлежит конвертации. Жмем на кнопку «Открыть».
  3. В блоке «Select output format» выбираем один из трёх форматов Excel:
  4. В блоке настроек «Output setting» выбираем место, куда будет конвертироваться файл.
  5. Когда все настройки указаны, жмем на кнопку «Convert».

После этого происходит процедура конвертации. Теперь вы можете открыть файл в программе Excel, и продолжить работу с ним.

Способ 4: конвертация с помощью онлайн-сервисов

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

Онлайн-конвертер Convertio

  1. Переходим на сайт Convertio и выбираем файлы для конвертации. Это можно сделать следующими способами:
    • Выбрать с компьютера;
    • Перетянуть с открытого окна Проводника Windows;
    • Загрузить из сервиса Dropbox;
    • Загрузить из сервиса Google Drive;
    • Загрузить по ссылке.
  2. После того, как исходный файл загружен на сайт, выбираем формат сохранения. Для этого, кликаем по выпадающему списку слева от надписи «Подготовлено». Переходим в пункт «Документ», а затем выбираем формат xls или xlsx.
  3. Жмем на кнопку «Преобразовать».
  4. После того, как преобразование завершено, жмем на кнопку «Скачать».

После этого документ в формате Excel будет загружен на ваш компьютер.

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

Мы рады, что смогли помочь Вам в решении проблемы.
Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.
Помогла ли вам эта статья?
ДА НЕТ

Как преобразовать файлы Word в файлы Excel

Выполните действия, указанные в мастере импорта текста. Выберите один из вариантов в группе «Исходный тип данных». Например, если вы не подготовили свой документ к преобразованию с помощью разделителей записей, выберите «Фиксированная ширина», а затем нажмите кнопку «Готово», чтобы импортировать документ. Если вы подготовили свой документ к преобразованию с использованием разделителей записей, таких как тильда ~, тогда вам следует выбрать «с разделителями» и нажать «Далее». Введите разделитель записи в поле рядом с надписью «Другое» в группе Разделители.Например, введите тильду. Нажмите «Готово», чтобы завершить импорт текста в документ.

Подсказка

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

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

Предупреждение

Информация в этой статье относится к Microsoft Word 2013 и Microsoft Excel 2013. Действия могут отличаться для других версий или продуктов.

.

Как преобразовать число в текст в Excel

В этом руководстве показано, как преобразовать число в текст в Excel 2016, 2013 и 2010. Узнайте, как выполнить задачу с помощью функции ТЕКСТ Excel и используйте число в строку, чтобы указать форматирование. Узнайте, как изменить числовой формат на текст с помощью параметров «Форматировать ячейки…» и «Текст в столбцы».

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

  • Искать по части, а не по всему номеру. Например, вам может потребоваться найти все числа, содержащие 50, например, 501, 1500, 1950 и т. Д.)
  • Может потребоваться сопоставить две ячейки с помощью функции ВПР или ПОИСКПОЗ. Однако, если эти ячейки отформатированы по-разному, Excel не будет рассматривать идентичные значения как совпадающие. Например, A1 отформатирован как текст, а B1 - число с форматом 0.Начальный ноль в B2 - это настраиваемый формат. При сопоставлении этих 2 ячеек Excel проигнорирует начальный 0 и не будет показывать две ячейки как идентичные. Поэтому их формат должен быть единым.

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

В этой статье я покажу вам, как преобразовать числа в текст с помощью функции ТЕКСТ Excel. Если вы не так ориентированы на формулы, взгляните на ту часть, где я объясняю, как преобразовать цифры в текстовый формат с помощью стандартного окна Excel Format Cells, добавив апостроф и используя мастер Text to Columns.

функция преобразования числа в текст Excel

Преобразование числа в текст с помощью функции ТЕКСТ Excel

Самый мощный и гибкий способ преобразования чисел в текст - использование функции ТЕКСТ. Он превращает числовое значение в текст и позволяет указать способ отображения этого значения. Это полезно, когда вам нужно показать числа в более удобочитаемом формате или если вы хотите соединить цифры с текстом или символами. Функция ТЕКСТ преобразует числовое значение в форматированный текст, поэтому результат не может быть вычислен.

Если вы знакомы с использованием формул в Excel, для вас не составит труда использовать функцию ТЕКСТ.

  1. Добавьте вспомогательный столбец рядом со столбцом с номерами для форматирования. В моем примере это столбец D.
  2. Введите формулу = ТЕКСТ (C2, «0») в ячейку D2 . В формуле C2 - это адрес первой ячейки с числами, которые нужно преобразовать.
  3. Скопируйте формулу через столбец, используя маркер заполнения .
  4. После применения формулы вы увидите изменение выравнивания влево в вспомогательном столбце.
  5. Теперь вам нужно преобразовать формулы в значения вспомогательного столбца. Начните с выбора столбца.
  6. Используйте Ctrl + C для копирования. Затем нажмите сочетание клавиш Ctrl + Alt + V, чтобы открыть диалоговое окно Специальная вставка .
  7. В диалоговом окне Специальная вставка выберите переключатель Значения в группе Вставить .

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

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

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

    Результат = ТЕКСТ (123,25, "0") будет 123.

    Результат = ТЕКСТ (123,25; "0,0") будет 123,3.

    Результат = ТЕКСТ (123.25, «0,00») будет 123,25.

    Чтобы сохранить только десятичные дроби, используйте = ТЕКСТ (A2, «Общие») .

    Наконечник. Допустим, вам нужно отформатировать денежную сумму, но этот формат недоступен. Например, вы не можете отобразить число в британских фунтах (£), поскольку вы используете встроенное форматирование в английской версии Excel для США. Функция ТЕКСТ поможет вам преобразовать это число в фунты, если вы введете его так: = ТЕКСТ (A12, "£ #, ###, ###. ##") . Просто введите формат для использования в кавычках -> вставьте символ £, удерживая Alt и нажав 0163 на цифровой клавиатуре -> введите #, ###.## после символа £, чтобы разделить группы запятыми и использовать точку в качестве десятичной точки. Результат - текст!

Используйте параметр «Формат ячеек» для преобразования числа в текст в Excel

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

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

    Наконечник. Вы можете отобразить окно Формат ячеек… , нажав сочетание клавиш Ctrl + 1.

  3. В окне Формат ячеек выберите Текст на вкладке Число и нажмите ОК .

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

Добавьте апостроф, чтобы преобразовать число в текстовый формат

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

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

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

Преобразование чисел в текст в Excel с помощью мастера текста в столбцы

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

  1. Выберите столбец, в котором вы хотите преобразовать числа в строку в Excel.
  2. Перейдите на вкладку Data и щелкните значок Text to Columns .
  3. Просто щелкните шаги 1 и 2. На третьем шаге мастера убедитесь, что вы выбрали переключатель Text .
  4. Нажмите Finish , чтобы ваши числа сразу же превратились в текст.

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

Вас также может заинтересовать:

.

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

Excel не имеет функции по умолчанию, которая отображает числа в виде английских слов на листе, но вы можете добавить эту возможность, вставив следующий код функции SpellNumber в модуль VBA (Visual Basic для приложений) . Эта функция позволяет преобразовывать суммы в долларах и центах в слова с помощью формулы, поэтому 22,50 будет читаться как двадцать два доллара и пятьдесят центов. Это может быть очень полезно, если вы используете Excel в качестве шаблона для печати чеков.

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

Примечание. Microsoft предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает в себя, но не ограничивается, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В этой статье предполагается, что вы знакомы с языком программирования VBA и инструментами, которые используются для создания и отладки процедур. Инженеры службы поддержки Microsoft могут помочь объяснить функциональность той или иной процедуры.Однако они не будут изменять эти примеры для предоставления дополнительных функций или создавать процедуры для удовлетворения ваших конкретных требований.

Создайте функцию SpellNumber для преобразования чисел в слова

  1. Используйте сочетание клавиш Alt + F11 , чтобы открыть редактор Visual Basic (VBE).

  2. Щелкните вкладку Insert и щелкните Module .

  3. Скопируйте следующие строки кода.

     Вариант Явный 'Основная функция Функция SpellNumber (ByVal MyNumber) Тусклые доллары, центы, температура Dim DecimalPlace, Count ReDim Place (9) как строка Место (2) = "Тысяча" Место (3) = "Миллион" Место (4) = "Миллиард" Место (5) = "Триллион" 'Строковое представление суммы.MyNumber = Обрезать (Str (MyNumber)) 'Позиция десятичного знака 0, если его нет. DecimalPlace = InStr (MyNumber, ".") 'Преобразуйте центы и установите MyNumber в доллары. Если DecimalPlace> 0, то Центы = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) Конец, если Счетчик = 1 Сделать пока MyNumber <> "" Temp = GetHundreds (Right (MyNumber, 3)) Если Temp <> "" Then Dollars = Temp & Place (Count) & Dollars Если Len (MyNumber)> 3, то MyNumber = Left (MyNumber, Len (MyNumber) - 3) Еще MyNumber = "" Конец, если Счетчик = Счетчик + 1 Петля Выберите Case Dollars Случай "" Доллары = "Нет долларов" Кейс "Один" Доллары = "Один доллар" Case Else Доллары = Доллары и "Доллары" Конец Выбрать Выберите центы за дело Случай "" Центы = "и без центов" Кейс "Один" Центы = "и один цент" Case Else Центы = "и" & Центы & "Центы" Конец Выбрать SpellNumber = Доллары и центы Конечная функция 'Преобразует число от 100 до 999 в текст. Функция GetHundreds (ByVal MyNumber) Тусклый результат в виде строки Если Val (MyNumber) = 0, то выйти из функции MyNumber = Right («000» & MyNumber, 3) 'Преобразуйте сотни разрядов.Если Mid (MyNumber, 1, 1) <> "0", то Результат = GetDigit (Mid (MyNumber, 1, 1)) & "Сотня" Конец, если 'Преобразуйте десятки и единицы в разряд. Если Mid (MyNumber, 2, 1) <> "0", то Result = Result & GetTens (Mid (MyNumber, 2)) Еще Результат = Результат и GetDigit (Mid (MyNumber, 3)) Конец, если GetHundreds = Результат Конечная функция 'Преобразует число от 10 до 99 в текст.Функция GetTens (TensText) Тусклый результат в виде строки Result = "" 'Обнулить временное значение функции. If Val (Left (TensText, 1)) = 1 Then 'Если значение между 10-19 ... Выбрать регистр Val (TensText) Случай 10: Результат = «Десять» Случай 11: Результат = "Одиннадцать" Случай 12: Результат = «Двенадцать» Случай 13: Результат = «Тринадцать» Случай 14: Результат = «Четырнадцать» Случай 15: Результат = «Пятнадцать» Случай 16: Результат = «Шестнадцать» Случай 17: Результат = «Семнадцать» Случай 18: Результат = «Восемнадцать» Случай 19: Результат = «Девятнадцать» Case Else Конец Выбрать Else 'Если значение от 20 до 99... Выбрать регистр Val (Left (TensText, 1)) Случай 2: Результат = «Двадцать» Случай 3: Результат = "Тридцать" Случай 4: Результат = «Сорок» Случай 5: Результат = «Пятьдесят» Случай 6: Результат = «Шестьдесят» Случай 7: Результат = «Семьдесят» Случай 8: Результат = «Восемьдесят» Случай 9: Результат = "Девяносто" Case Else Конец Выбрать Результат = Результат & GetDigit _ (Right (TensText, 1)) 'Получить одно место. Конец, если GetTens = Результат Конечная функция 'Преобразует число от 1 до 9 в текст.Функция GetDigit (цифра) Выберите регистр Val (цифра) Случай 1: GetDigit = "One" Случай 2: GetDigit = "Два" Случай 3: GetDigit = "Три" Случай 4: GetDigit = "Четыре" Случай 5: GetDigit = "Five" Случай 6: GetDigit = "Six" Случай 7: GetDigit = "Seven" Случай 8: GetDigit = "Eight" Случай 9: GetDigit = "Девять" Иначе: GetDigit = "" Конец Выбрать Конечная функция 
  4. Вставьте строки кода в поле Module1 (Code) .

  5. Нажмите Alt + Q , чтобы вернуться в Excel. Теперь функция SpellNumber готова к использованию.

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

Верх страницы

Используйте функцию SpellNumber в отдельных ячейках

  1. Введите формулу = SpellNumber ( A1 ) в ячейку, в которой вы хотите отобразить записанное число, где A1 - это ячейка, содержащая число, которое вы хотите преобразовать.Вы также можете вручную ввести значение, например = SpellNumber (22,50).

  2. Нажмите Введите , чтобы подтвердить формулу.

Верх страницы

Сохраните книгу функций SpellNumber

Excel не может сохранить книгу с функциями макросов в стандартном формате книги без макросов (.xlsx). Если вы нажмете File > Save .Откроется диалоговое окно проекта VB . Щелкните .

Вы можете сохранить свой файл как книгу Excel с поддержкой макросов (.xlsm) , чтобы сохранить файл в его текущем формате.

  1. Щелкните Файл > Сохранить как .

  2. Щелкните раскрывающееся меню Сохранить как тип и выберите Excel Macro-Enabled Workbook .

  3. Нажмите Сохранить .

Верх страницы

См. Также

ТЕКСТ функция

.

Как преобразовать числа в слова в Excel

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

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

В более-менее солидных платежных документах необходимо дублировать числовые значения с их словоформой.Набранные числа гораздо сложнее подделать, чем написанные от руки. Какой-нибудь аферист может попробовать сделать из 3000 8000, а тайно заменить «тройку» на «восьмерку» практически невозможно.

Итак, вам нужно не просто преобразовать числа в слова в Excel (например, 123,45 в «сто двадцать три, сорок пять»), но и записать доллары и центы (например, 29,95 доллара как «двадцать девять долларов»). и девяносто девять центов »), фунты и пенсы за фунты стерлингов, евро и евроценты за евро и т. д.

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

Ниже вы найдете два способа преобразования чисел из цифр в слова

И, возможно, вам может потребоваться преобразовать слова в числа в Excel

Примечание. Если вы ищете преобразование числа в текст , что означает, что вы хотите, чтобы Excel видел ваш номер в виде текста, это немного другое.Обычно вам просто нужно изменить формат ячейки в Excel (выберите диапазон с числами, нажмите Ctrl + 1 на вкладке Number и выберите « Text » в поле Category ). Вы также можете использовать формулу = текст () .

Подробнее читайте в статье Способы преобразования чисел в текст в Excel.

SpellNumber Макрос VBA для преобразования чисел в слова

Как я уже упоминал, Microsoft не хотела добавлять инструмент для этой задачи.Однако, когда они увидели, скольким пользователям это нужно, они создали и опубликовали специальный макрос VBA на своем веб-сайте. Макрос делает то, что предлагает его название SpellNumber. Все остальные макросы, с которыми я столкнулся, основаны на коде Microsoft.

Вы можете найти макрос, указанный как «формула числа заклинаний». Однако это не формула, а функция макроса, а точнее Excel Пользовательская функция (UDF).

Параметр "Число заклинаний" позволяет писать доллары и центы. Если вам нужна другая валюта, вы можете поменять " долларов " и " центов " на название вашей валюты.

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

  1. Откройте книгу, в которой вам нужно написать числа.
  2. Нажмите Alt + F11, чтобы открыть окно редактора Visual Basic.
  3. Если у вас открыто несколько книг, проверьте, активна ли нужная книга, используя список проектов в верхнем левом углу редактора (один из элементов книги выделен синим).
  4. В меню редактора перейдите к Insert -> Module .
  5. Вы должны увидеть окно с именем YourBook - Module1. Выделите весь код во фрейме ниже и вставьте его в это окно.
     Option Explicit 'Основная функция Функция SpellNumber (ByVal MyNumber) Тусклые доллары, центы, температура Dim DecimalPlace, Count ReDim Place (9) как строка Место (2) = "Тысяча" Место (3) = "Миллион" Место (4) = "Миллиард" Место (5) = "Триллион" MyNumber = Обрезать (Str (MyNumber)) DecimalPlace = InStr (MyNumber, ".") Если DecimalPlace> 0, то Центы = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & _ «00», 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) Конец, если Счетчик = 1 Сделать пока MyNumber "" Temp = GetHundreds (Right (MyNumber, 3)) Если Temp "", то доллары = временная температура и место (количество) и доллары Если Len (MyNumber)> 3, то MyNumber = Left (MyNumber, Len (MyNumber) - 3) Еще MyNumber = "" Конец, если Счетчик = Счетчик + 1 Петля Выберите Case Dollars Случай "" Доллары = "Нет долларов" Кейс "Один" Доллары = "Один доллар" Case Else Доллары = Доллары и "Доллары" Конец Выбрать Выберите центы за дело Случай "" Центы = "и без центов" Кейс "Один" Центы = "и один цент" Case Else Центы = "и" & Центы & "Центы" Конец Выбрать SpellNumber = Доллары и центы Конечная функция Функция GetHundreds (ByVal MyNumber) Тусклый результат в виде строки Если Val (MyNumber) = 0, то выйти из функции MyNumber = Right («000» & MyNumber, 3) 'Преобразуйте сотни разрядов.Если Mid (MyNumber, 1, 1) "0", то Результат = GetDigit (Mid (MyNumber, 1, 1)) & "Сотня" Конец, если 'Преобразуйте десятки и единицы в разряд. Если Mid (MyNumber, 2, 1) "0", то Result = Result & GetTens (Mid (MyNumber, 2)) Еще Результат = Результат и GetDigit (Mid (MyNumber, 3)) Конец, если GetHundreds = Результат Конечная функция Функция GetTens (TensText) Тусклый результат в виде строки Result = "" 'Обнулить временное значение функции.If Val (Left (TensText, 1)) = 1 Then 'Если значение между 10-19 ... Выбрать регистр Val (TensText) Случай 10: Результат = «Десять» Случай 11: Результат = "Одиннадцать" Случай 12: Результат = «Двенадцать» Случай 13: Результат = «Тринадцать» Случай 14: Результат = «Четырнадцать» Случай 15: Результат = «Пятнадцать» Случай 16: Результат = «Шестнадцать» Случай 17: Результат = «Семнадцать» Случай 18: Результат = «Восемнадцать» Случай 19: Результат = «Девятнадцать» Case Else Конец Выбрать Else 'Если значение от 20 до 99... Выбрать регистр Val (Left (TensText, 1)) Случай 2: Результат = «Двадцать» Случай 3: Результат = "Тридцать" Случай 4: Результат = «Сорок» Случай 5: Результат = «Пятьдесят» Случай 6: Результат = «Шестьдесят» Случай 7: Результат = «Семьдесят» Случай 8: Результат = «Восемьдесят» Случай 9: Результат = "Девяносто" Case Else Конец Выбрать Результат = Результат & GetDigit _ (Right (TensText, 1)) 'Получить одно место.Конец, если GetTens = Результат Конечная функция Функция GetDigit (цифра) Выберите регистр Val (цифра) Случай 1: GetDigit = "One" Случай 2: GetDigit = "Два" Случай 3: GetDigit = "Три" Случай 4: GetDigit = "Четыре" Случай 5: GetDigit = "Five" Случай 6: GetDigit = "Six" Случай 7: GetDigit = "Seven" Случай 8: GetDigit = "Eight" Случай 9: GetDigit = "Девять" Иначе: GetDigit = "" Конец Выбрать Конечная функция 
  6. Нажмите Ctrl + S, чтобы сохранить обновленную книгу.

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

    Щелкните Нет. Когда вы увидите новое диалоговое окно, выберите опцию Сохранить как. В поле « Сохранить как тип » выберите вариант « Книга с поддержкой макросов Excel ».

Используйте макрос SpellNumber на листах

Теперь вы можете использовать функцию SpellNumber в своих документах Excel.Введите = SpellNumber (A2) в ячейку, где вам нужно получить число, написанное словами. Здесь A2 - адрес ячейки с числом или суммой.

Вот результат:

Вуаля!

Быстро скопируйте функцию SpellNumber в другие ячейки.

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

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

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

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

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

Главный недостаток использования макроса заключается в том, что если вы отправляете книгу кому-то другому, этот человек не увидит текст, если макрос не встроен в книгу. И даже если он встроен, они получат предупреждение о том, что в книге есть макросы.

Бесплатная готовая к использованию надстройка для преобразования чисел в слова

Для активных пользователей Excel, которым нужно быстро записывать суммы, но не хотят изучать VBA или другие обходные пути, один из разработчиков создал бесплатную надстройку - POPUP SPELL NUMBER для Microsoft Excel

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

  • Указывает дробь в центах / центах, или пенни / пенни, или пенни / пенни или сентаво / сентаво
  • Указывает десятичную точку, каждый ноль и оставшуюся часть числа как целое число.
  • Не записывает дробь, а записывает ее как дробь со знаминателем 100, 1000, 1000000

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

Автор заявляет, что он протестирован и работает в Excel для Windows 2000, 2002 (XP), 2003, 2007, 2010 (32-разрядная версия) и 2013 (32-разрядная версия) в установках MSI и Click-To-Run. Облачные сервисы Office 365.

И все в POPUP SPELL NUMBER замечательно, но ...

Мне неприятно говорить, что надстройка не работает с 64-разрядными версиями Excel 2010, 2013, 2007. И это серьезное препятствие, поскольку эти версии становятся все более популярными. Вам повезло, если у вас 32-разрядная версия Excel :) Не стесняйтесь скачать надстройку и проверить ее.

Если вы, как и я, пользуетесь 64-битной версией Excel, напишите автору и попросите у него специальную версию.

Обратное преобразование - английские слова в числа

Честно говоря, не представляю, зачем тебе это может понадобиться. На всякий случай ... :)

Похоже, что MVP Excel, Джерри Лэтэм, создал такую ​​пользовательскую функцию Excel (UDF) как WordsToDigits . Он преобразует английские слова обратно в числа.

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

Вы можете увидеть, как работает функция, на листе « Sample Entries », где вы также сможете ввести свои собственные примеры. Если вы планируете использовать WordsToDigits в своих документах, имейте в виду, что эта функция имеет ограничения. Например, он не распознает дроби, введенные в слова. Вы найдете все подробности на листе « Информация ».

См. Также

.

Смотрите также

 
Поиск по сайту

 

Популярные уроки

Бесплатная программа Frontpage для создания сайтов  

Структура страницы сайта  

Как создать главную страницу сайта 

Как установить язык сайта  

Как создать макет веб-страницы в программе Frontpage

Как создать шапку для сайта

Просмотр сайта в разных браузерах

Как разместить текст на сайте

Возможности Frontpage

Как задать фон страницы сайта в Frontpage

Как вставить видео на сайт

Как создать новые страницы сайта в Frontpage

Как сделать бегущую строку в html

Как разместить сайт в интернете

 Наверх >>  

         

Школа Продающих Сайтов Андрея Громова © 2012-г.

Копирование материалов сайта запрещено.

Написать письмо

Карта сайта, XML.