Бұл мақалада мен Excel 2019, 2016, 2013 және басқа нұсқаларында валюта сандарын ағылшын сөздеріне түрлендірудің екі жылдам және тегін әдісін көрсетемін.

Microsoft Excel - тамаша. мынаны және мынаны есептейтін бағдарлама. Ол бастапқыда үлкен деректер массивтерін өңдеу үшін жасалған. Дегенмен, ол сонымен қатар шот-фактуралар, бағалау немесе баланстар сияқты бухгалтерлік жазбаларды тез және тиімді жасауға мүмкіндік береді.

Төлем құжаттарында сандық мәндерді сөздік пішінімен қайталау қажет. Қолмен жазылған сандарға қарағанда терілген сандарды бұрмалау әлдеқайда қиын. Кейбір алаяқтар 3000-нан 8000-ды жасауға тырысуы мүмкін, ал «үшті» «сегізге» жасырын түрде ауыстыру мүмкін емес.

Сондықтан сізге Excel бағдарламасындағы сандарды сөздерге түрлендіру ғана қажет емес (мысалы, 123,45 «жүз жиырма үш, қырық бес»), бірақ доллар мен центті (мысалы, «жиырма тоғыз доллар және тоқсан тоғыз цент» ретінде $29,95), GBP үшін фунт пен пенсті, еуро үшін еуро мен еуроцентті және т.б. көрсетіңіз.

Тіпті Excel бағдарламасының соңғы нұсқаларында бұрынғы нұсқаларды айтпағанда, сандарды жазуға арналған кірістірілген құрал жоқ. Бірақ Excel шынымен жақсы болған кезде. Оның функционалдығын барлық

комбинацияларындағы, VBA макростарындағы немесе үшінші тарап қондырмаларындағы формулаларды пайдаланып әрқашан жақсартуға болады.

Төменде сандарды түрлендірудің екі әдісін табасыз. сандардан сөздерге

және, мүмкін, сізге қажет болуы мүмкінExcel бағдарламасында сөздерді сандарға түрлендіру

Ескерту. Егер сіз санды мәтінге түрлендіру дегенді іздесеңіз, яғни Excel сіздің нөміріңізді мәтін ретінде көргіңіз келсе, бұл сәл басқаша. Ол үшін МӘТІН функциясын немесе Excel бағдарламасындағы сандарды мәтінге өзгерту жолы бөлімінде сипатталған бірнеше басқа жолдарды пайдалануға болады.

Сандарды сөзге түрлендіру үшін SpellNumber VBA макросы

Мен жоғарыда айтқанымдай , Microsoft бұл тапсырма үшін құралды қосқысы келмеді. Дегенмен, олар қанша пайдаланушыға қажет екенін көргенде, олар арнайы VBA макросын жасап, өз веб-сайтында жариялады. Макрос SpellNumber атауы ұсынған нәрсені жасайды. Мен кездестірген барлық басқа макростар Microsoft кодына негізделген.

Сіз «емле саны формуласы» ретінде аталған макросты таба аласыз. Дегенмен, бұл формула емес, макрофункция немесе дәлірек айтқанда Excel пайдаланушысы анықтаған функция (UDF).

Орфографиялық сан опциясы доллар мен цент жазуға қабілетті. Егер сізге басқа валюта қажет болса, " dollar " және " cent " валютасын валютаның атымен өзгертуге болады.

Егер сіз VBA-ны жақсы білетін жігіт болмасаңыз , төменде сіз кодтың көшірмесін таба аласыз. Егер мұны әлі де шешкіңіз келмесе немесе уақытыңыз болмаса, осы шешімді пайдаланыңыз.

1. Сандарды жазу керек жұмыс кітабын ашыңыз.
2. Alt пернесін басыңыз. Visual Basic редакторының терезесін ашу үшін +F11 пернесін басыңыз.
3. Егер сізде бірнеше кітап ашылған болса, қажетті жұмыс кітабының белсенді екенін тексеріңіз.редактордың жоғарғы сол жақ бұрышындағы жобалар тізімі (жұмыс кітабының элементтерінің бірі көк түспен белгіленген).
4. Редактор мәзірінде Кірістіру -> Модуль тармағына өтіңіз. .
5. Сізден YourBook - Module1 деп аталатын терезе пайда болуы керек. Төмендегі жақтаудағы барлық кодты таңдап, оны осы терезеге қойыңыз.

   Опция Ашық 'Негізгі функция Функция SpellNumber( ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Орын(4) = " Миллиард " Орын(5) = " Триллион " MyNumber = Трим(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) If DecimalPlace > 0 Содан кейін Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If count = 1 MyNumber "" Temp кезінде орындаңыз = GetHundreds(Right(MyNumber, 3)) Temp "" болса, онда доллар = Temp & Орын(санау) & Dollars If Len(MyNumber) > 3 Содан кейін MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 цикл Таңдау Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & AMP; " Dollars" End Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " және " & Cents & "Цент" End Таңдау SpellNumber = Dollars & Cents End функциясы 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" болса, Нәтиже = Нәтиже & GetTens(Mid(MyNumber, 2)) Басқа нәтиже = Нәтиже & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Нәтиже Соңы Функция Функция GetTens(TensText) Dim Нәтиже Жол нәтижесі ретінде = "" ' Уақытша функция мәнін нөл. Егер Val(Left(TensText, 1)) = 1 Содан кейін ' Егер мән 10-19 аралығында болса… Val(TensText) жағдайын таңдаңыз 10 жағдай: Нәтиже = "Он" жағдай 11: Нәтиже = "Он бір" жағдай 12: Нәтиже = "Он екі " 13-жағдай: Нәтиже = "Он үш" 14-жағдай: Нәтиже = "Он төрт" 15-жағдай: Нәтиже = "Он бес" жағдай 16: Нәтиже = "Он алты" жағдай 17: Нәтиже = "Он жеті" 18-жағдай: Нәтиже = "Он сегіз" жағдай 19: Нәтиже = "Он тоғыз" Case Else End Else таңдаңыз ' Егер мән 20-99 аралығында болса… Таңдаңыз Case Val(Left(TensText, 1)) 2-жағдай: Нәтиже = "Жиырма" жағдай 3: Нәтиже = "Отыз" 4-жағдай: Нәтиже = "Қырық" 5-жағдай: Нәтиже = "Елу" 6-жағдай: Нәтиже = "Алпыс" 7-жағдай: Нәтиже = "Жетпіс" 8-жағдай: Нәтиже = "Сексен" 9-жағдай: Нәтиже = "Тоқсан" жағдай Басқаша аяқталды Таңдау нәтижесі = Нәтиже & GetDigit _ (Оң жақ(TensText, 1)) ' Бір орынды шығарып алу. End If GetTens = Нәтиже Аяқтау функциясы Функция GetDigit(Digit) Регистрді таңдаңызVal(Digit) 1-жағдай: GetDigit = "Бір" жағдай 2: GetDigit = "Екі" 3-жағдай: GetDigit = "Үш" жағдай 4: GetDigit = "Төрт" жағдай 5: GetDigit = "Бес" жағдай 6: GetDigit = " Six" 7-жағдай: GetDigit = "Жеті" 8-жағдай: GetDigit = "Сегіз" 9-жағдай: GetDigit = "Тоғыз" Басқа жағдай : GetDigit = "" Аяқтау Таңдауды аяқтау функциясы

6. Ctrl+S пернелерін басыңыз. жаңартылған жұмыс кітабын сақтау үшін.

   Жұмыс кітабын қайта сақтау керек. Жұмыс кітабын макроспен сақтауға тырысқанда, сіз " Келесі мүмкіндіктерді макроссыз жұмыс кітабында сақтау мүмкін емес " хабарын аласыз

   

   Жоқ түймесін басыңыз. Көрген кезде жаңа тілқатысу терезесінде Басқаша сақтау опциясын таңдаңыз. " Түрі ретінде сақтау " өрісінде " Excel макростары қосылған жұмыс кітабы " опциясын таңдаңыз.

   

SpellNumber макросын пайдалану жұмыс парақтарыңыз

Енді Excel құжаттарында SpellNumber функциясын пайдалана аласыз. Сөзбен жазылған санды алу керек ұяшыққа =SpellNumber(A2) енгізіңіз. Мұнда A2 саны немесе сомасы көрсетілген ұяшықтың мекенжайы.

Нәтижені мына жерден көре аласыз:

Уа!

SpellNumber функциясын басқа ұяшықтарға жылдам көшіріңіз.

Егер тек 1 ұяшықты емес, бүкіл кестені түрлендіру қажет, тінтуір курсорын формуласы бар ұяшықтың төменгі оң жақ бұрышына кішкентай қара крестке айналғанша орналастырыңыз:

Тінтуірдің сол жақ түймешігімен басып, оны ұяшық бойымен сүйреңіз. формуланы толтыру үшін баған. Нәтижелерді көру үшін түймені босатыңыз:

Ескертпе. ӨтінемінSpellNumber функциясын басқа ұяшыққа сілтемемен пайдалансаңыз, бастапқы ұяшықтағы сан өзгерген сайын жазбаша қосынды жаңартылатынын есте сақтаңыз.

Сонымен қатар санды тікелей функцияға енгізуге болады. мысалы, =SpellNumber(29.95) (29,95 – тырнақшасыз және доллар белгісінсіз).

Excel бағдарламасында сандарды жазу үшін макросты пайдаланудың кемшіліктері

Ең алдымен кодты сіздің деректеріңізге сәйкес өзгерту үшін VBA білуіңіз керек. қажеттіліктер. Әр жұмыс кітабының кодын өзгертуді жоспарлаған жерге қою керек. Әйтпесе, макростары бар үлгі файлын жасап, Excel бағдарламасын осы файлды әр бастаған сайын жүктеп алу үшін конфигурациялау қажет болады.

Макросты пайдаланудың басты кемшілігі жұмыс кітабын басқа біреуге жіберсеңіз, бұл адам жібермейді. макрос жұмыс кітабына ендірілмеген болса, мәтінді қараңыз. Тіпті ол ендірілген болса да, олар жұмыс кітабында макростар бар екендігі туралы ескерту алады.

Арнайы қондырманы пайдаланып сандарды сөзбен жазу

Қосындыларды жылдам жазуды қажет ететін, бірақ VBA-ны үйренуге немесе шешу жолдарын анықтауға уақыты жоқ Excel пайдаланушылары үшін біз арнайы құрал жасадық. ол бірнеше танымал валюталар үшін соманы сөзге түрлендіруді жылдам орындай алады. Excel үшін Ultimate Suite бағдарламасының соңғы шығарылымында қамтылған емле нөмірі қондырмасымен танысыңыз.

Қолдануға дайын болумен қатар, құрал сомаларды мәтінге түрлендіруде шынымен икемді:

• Сіз мыналардың бірін таңдай аласыз.келесі валюталар: USD, EUR, GBP, BIT, AUD.
• Бөлшек бөлігін центпен, пеннимен немесе битцентпен жазыңыз.
• Нәтиже үшін кез келген мәтін регистрін таңдаңыз: кіші әріп, БАС РЕГІП , Тақырып регистрі немесе Сөйлем регистрі.
• Ондық бөлшекті әртүрлі тәсілдермен жазыңыз.
• Нөл центтерді қосыңыз немесе өткізіп жіберіңіз.

Қондырма барлық заманауи нұсқаларды қолдайды. нұсқалары, соның ішінде Excel 365, Excel 2029, Excel 2016, Excel 2013 және Excel 2010. Жоғарыда сілтеме жасалған өнімнің басты бетінде басқа мүмкіндіктерді зерттеңіз.

Ал енді осы санның емле утилитасының жұмыс істеп тұрғанын көрейік. :

1. Нәтиже үшін бос ұяшықты таңдаңыз.
2. Ablebits қойындысындағы Утилиталар тобындағы түймесін басыңыз. Емле нөмірі .
3. Пайдаланатын Төгілген нөмір диалогтық терезесінде келесі әрекеттерді конфигурациялаңыз:
   • Нөмірді таңдаңыз өрісі үшін , мәтін ретінде жазылатын соманы қамтитын ұяшықты таңдаңыз.
   • Қажетті қазір , әріп регистрін және ондық санның жолын көрсетіңіз. санның бөлігі жазылуы керек.
   • Нөл центті қосу керек пе, жоқ па анықтаңыз.
   • Нәтижені мән немесе формула ретінде енгізуді таңдаңыз.
4. Диалогтық терезенің төменгі жағында нәтижені алдын ала қарау . Егер нөміріңіздің жазылу жолына риза болсаңыз, Емле түймесін басыңыз. Әйтпесе, басқа параметрлерді қолданып көріңіз.

Төмендегі скриншот әдепкі параметрді көрсетедітаңдаулар және B2-де жазылған сан. Формула жолағындағы формулаға (дәлірек айтқанда, пайдаланушы анықтайтын функция) назар аударыңыз:

Және бұл басқа валюталарды қалай жазуға болатынын жылдам демонстрациялау:

Кеңестер мен ескертулер:

• Емле нөмірі қондырмасы шот-фактуралар және басқа қаржылық құжаттар сияқты нақты пайдалану жағдайларын өңдеуге арналғандықтан, ол тек бір санды <6 түрлендіре алады>бір уақытта.
• сандар бағанасын жазу үшін бірінші ұяшыққа формуланы енгізіп, формуланы төменге көшіріңіз.
• Егер мүмкіндік болса. бастапқы деректеріңіз болашақта өзгеруі мүмкін, нәтижені формула ретінде енгізген дұрыс, сондықтан бастапқы сан өзгерген сайын ол автоматты түрде жаңартылады.
• Формула ретінде нәтижені таңдағанда опция, теңшелетін пайдаланушы анықтайтын функция (UDF) енгізіледі. Егер сіз жұмыс кітабыңызды Ultimate Suite орнатылмаған адаммен бөлісуді жоспарласаңыз, ортақ пайдалану алдында формулаларды мәндермен ауыстыруды ұмытпаңыз.

Кері түрлендіру - ағылшын сөздерін сандарға

Ашығын айтқанда , Сізге не үшін қажет болуы мүмкін екенін елестете алмаймын. Тек жағдайда… :)

Excel MVP, Джерри Лэтхэм WordsToDigits сияқты Excel пайдаланушысы анықтайтын функцияны (UDF) жасаған сияқты. Ол ағылшын сөздерін қайтадан санға түрлендіреді.

UDF кодын көру үшін Джерридің WordsToDigits жұмыс кітабын жүктеп алуға болады. Мұнда сіз оның қалай пайдалану керектігі туралы мысалдарды таба аласызфункциясы.

Функцияның қалай жұмыс істейтінін " Жазба үлгілері " парағында көре аласыз, мұнда сіз өз мысалдарыңызды да енгізе аласыз. Құжаттарыңызда WordsToDigits қолдануды жоспарласаңыз, бұл функцияның шектеулері бар екенін ескертіңіз. Мысалы, ол сөздерге енгізілген бөлшектерді танымайды. Барлық мәліметтерді « Ақпарат » парағында табасыз.