Відображення чисел у вигляді слів у Excel

Якщо вам коли-небудь потрібно було відобразити число, записане у вигляді тексту, ви, ймовірно, виявили, що Excel не пропонує такої функції. Якщо Excel не вдається доставити, часто можна виправити недолік за допомогою VBA. Ось функція VBA під назвою SPELLDOLLARS , яку можна використовувати у формулах робочого аркуша.

Приклади Excel

Ось кілька прикладів SPELLDOLLARS.

Код VBA

Щоб використати цей код, натисніть Alt+F11, щоб активувати редактор Visual Basic. Потім виберіть Вставити → Модуль, щоб вставити новий модуль VBA. Скопіюйте код і вставте його в новий модуль.

Функція SPELLDOLLARS(cell) як варіант
' Повертає значення, виписане словами
  Смутні долари як струна, центи як струна
  Dim TextLen As Long, Pos As Long
  Dim Temp як рядок
  Dim iHundreds As Long, iTens As Long, iOnes As Long
  Смутні як варіант, підлітки як варіант, десятки як варіант
  Одиниці яскравості (від 2 до 5) як рядок
  Dim bHit як Boolean, NegFlag як Boolean
' Це нечислова чи порожня клітинка?
  Якщо Not IsNumeric(cell) Or cell = ““ Тоді
    SPELLDOLLARS = CVERr(xlErrValue)
    Функція виходу
  Кінець Якщо
' Це негативно?
  Якщо клітинка < 0="" then="" negflag="True" cell="Abs(cell)" end="" if="" dollars="Format(cell," “###0.00”)="" textlen="Len(Dollars)" -="" 3="" '="" is="" it="" too="" large?="" if="" textlen=""> 15 Тоді
    SPELLDOLLARS = CVERr(xlErrNum)
    Функція виходу
  Кінець Якщо
' Зробіть частину центів
  Центи = Право (долари, 2) & «/100 доларів»
  Якщо клітинка < 1="" then="" spelldollars="Cents" exit="" function="" end="" if="" dollars="Left(Dollars," textlen)="" ones="Масив( ““,” “один”,="" "два",="" "три",="" "чотири",="" _="" "п'ять",="" "шість",="" «сім»,="" «вісім»,="" "дев'ять")="" teens="Масив("Десять"," "одинадцять",="" "дванадцять",="" "тринадцять",= "" "чотирнадцять",="" _="" "п'ятнадцять",="" "шістнадцять",="" "сімнадцять",="" "вісімнадцять",="" "дев'ятнадцять")="" десятки= "Масив(““," "„="" "двадцять",="" "тридцять",="" "сорок",="" "п'ятдесят",="" _=""“шістдесят”,="" "сімдесят",="" "вісімдесят",="" "дев'яносто")="" units(2)=""Thousand"" units(3)=""Million"" units( 4)="“Мільярд"" units(5)=""Трильйон"" temp="""" for="" pos="15" to="" 3="" step="" -3="" if="" textlen="">= Поз - 2 Тоді
      bHit = Неправда
      Якщо TextLen >= Поз Тоді
        iHundreds = Asc(Mid$(Долари, TextLen - Поз + 1, 1)) - 48
        Якщо iHundreds > 0 Тоді
          Temp = Temp & “ “ & Ones(iHundreds) & “ Hundred”
          bHit = правда
        Кінець Якщо
    Кінець Якщо
    iTens = 0
    iOnes = 0
    Якщо TextLen >= Поз - 1 Тоді
      iTens = Asc(Mid$(Долари, TextLen - Поз + 2, 1)) - 48
    Кінець Якщо
    Якщо TextLen >= Поз - 2 Тоді
      iOnes = Asc(Mid$(Долари, TextLen - Поз + 3, 1)) - 48
    Кінець Якщо
    Якщо iTens = 1, то
      Temp = Temp & “ “ & Teens (iOnes)
      bHit = правда
    Інакше
      Якщо iTens >= 2 Тоді
        Temp = Temp & “ “ & Tens(iTens)
        bHit = правда
      Кінець Якщо
      Якщо iOnes > 0 Тоді
        Якщо iTens >= 2 Тоді
          Temp = Temp & «-»
        Інакше
          Temp = Temp & “ “
        Кінець Якщо
        Temp = Temp & Ones (iOnes)
        bHit = правда
      Кінець Якщо
    Кінець Якщо
    Якщо bHit і Pos > 3 Тоді
      Temp = Temp & “ “ & Одиниці (поз. 3)
    Кінець Якщо
  Кінець Якщо
  Наступна поз
 SPELLDOLLARS = Trim(Temp) & “ та “ & Cents
 Якщо NegFlag, то SPELLDOLLARS = “(“ & SPELLDOLLARS & “)”
Кінцева функція