Note: The other languages of the website are Google-translated. Back to English

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

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

номер валюты документа к слову 1

Преобразование номеров валют в слова с длинным VBA

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


Преобразование номеров валют в слова с длинным VBA

В Excel вы не можете быстро преобразовать числа в английские слова, кроме VBA.

1. Нажмите Alt + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули и вставьте ниже VBA в новый Модули окно.

VBA: преобразование чисел валюты в английские слова.

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        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(pTens, 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(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    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 Select
End Function

3. Затем сохраните этот код и закройте окно, чтобы вернуться на рабочий лист, и выберите пустую ячейку, введите эту формулу. = SpellNumberToEnglish (A2) (A2 - это номера валюты) и нажмите Enter , затем перетащите маркер заполнения вниз, чтобы применить эту формулу к нужным ячейкам. Смотрите скриншоты:

номер валюты документа к слову 2
стрелка вниз
номер валюты документа к слову 1

Преобразуйте числа валюты в слова с помощью удобной функции Spell Out Numbers.

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите номера валют и нажмите Кутулс > Содержание > Числа в слова. Смотрите скриншот:

номер валюты документа к слову 7

2. в Числа в денежные слова диалог, проверьте Английский or Китайский вариант как вам нужно. Смотрите скриншот:

номер документа к мирам 2

3. Нажмите Ok or Применить. Затем выбранные вами числа валют были преобразованы в слова.

Цифры валют в английские слова

номер документа к мирам 3

Цифры валют в китайские слова

номер документа к мирам 4

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Хай, Ким Морс, pemberi pinjaman wang persendirian. (Код 360)
Kami menyediakan pinjaman dengan kadar faedah 2% setahun dan dalam jumlah 10,000.00 500,000.00 долларов США 10,000.00 500,000.00 долларов США и 100 2 евро XNUMX XNUMX евро sebagai tawaran pinjaman. Projek XNUMX% ян dibiayai dengan pinjaman bercagar дан tidak bercagar boleh didapati. Ками dijamin menyediakan perkhidmatan kewangan kepada pelanggan ками ди seluruh dunia. Dengan pakej кредит янь flexibel, pinjaman boleh diproses дан дана dipindahkan kepada peminjam Dalam XNUMX хари. Ками bekerja dalam терма янг jelas дан мудах difahami дан menawarkan pelbagai jenis pinjaman kepada pelanggan, syarikat, individu swasta дан pelabur hartanah янь berminat. Cukup lengkapkan borang di bawah dan kembali kepada kami melalui E-mel.
Бутиран пенггуна:
Нама-нама:
Тарих лахир:
Янтина.
Статус perkahwinan говорит:
Адрес:
Бандар:
дан Негери / Вилайя:
Код поз /
страна:
телефон:
Электронная почта:
Дэнган Туджуан Пиньяман:
Джумла пинджаман:
Темпо пинджаман:
Пендапатан буланан анда:
Hubungi pegawai pinjaman По электронной почте: (Code360optionsloancompany@gmail.com) Дэн Унтук Маклумат, Hubungi alamat Веб-сайт: Code360optionsloancompany.com

Салам Седжахтера,
Пуан Ким
Этот комментарий был сведен к минимуму модератором на сайте
Просмотрите мою статью «Преобразование миллионов миллиардов триллионов», базовую статью по изучению чисел, которая также помогает изучить систему счисления и преобразование чисел.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL