ამ სტატიაში მე გაჩვენებთ ორ სწრაფ და უფასო გზას ვალუტის ნომრების ინგლისურ სიტყვებად გადაქცევისთვის Excel 2019, 2016, 2013 და სხვა ვერსიებში.

Microsoft Excel შესანიშნავია. პროგრამა ამა და ამის გამოსათვლელად. იგი თავდაპირველად შეიქმნა მონაცემთა დიდი მასივების დასამუშავებლად. თუმცა, ის ასევე საშუალებას გაძლევთ სწრაფად და ეფექტურად შექმნათ სააღრიცხვო ჩანაწერები, როგორიცაა ინვოისები, შეფასება ან ბალანსი.

მეტ-ნაკლებად მყარი გადახდის დოკუმენტებში აუცილებელია რიცხვითი მნიშვნელობების დუბლირება მათი სიტყვის ფორმით. გაცილებით რთულია აკრეფილი ნომრების გაყალბება, ვიდრე ხელით დაწერილი. ზოგიერთ თაღლითს შეუძლია სცადოს 3000-დან 8000-ის გაკეთება, მაშინ როცა "სამი" ფარულად ჩანაცვლება "რვათი" თითქმის შეუძლებელია.

ასე რომ, რაც თქვენ გჭირდებათ არ არის უბრალოდ რიცხვების სიტყვებად გადაქცევა Excel-ში (მაგ. 123.45 "ას ოცდასამი, ორმოცდახუთი"), მაგრამ დაწერე დოლარი და ცენტი (მაგ. $29,95 როგორც "ოცდაცხრა დოლარი და ოთხმოცდაცხრა ცენტი"), ფუნტი და პენსი GBP-სთვის, ევრო და ევროცენტი ევროსთვის და ა.შ.

Excel-ის უახლეს ვერსიებსაც კი არ აქვთ ჩაშენებული ხელსაწყო რიცხვების მართლწერისთვის, რომ აღარაფერი ვთქვათ ადრინდელ ვერსიებზე. მაგრამ ეს არის მაშინ, როდესაც Excel ნამდვილად კარგია. თქვენ ყოველთვის შეგიძლიათ გააუმჯობესოთ მისი ფუნქციონალობა ფორმულების გამოყენებით მათი ყველა

კომბინაციით, VBA მაკროებით ან მესამე მხარის დანამატებით.

ქვემოთ ნახავთ ნომრების კონვერტაციის ორ გზას. ფიგურები სიტყვებამდე

და, შესაძლოა, დაგჭირდეთგადაიყვანეთ სიტყვები რიცხვებად Excel-ში

შენიშვნა. თუ თქვენ ეძებთ ნომრის ტექსტში კონვერტაციას , რაც ნიშნავს, რომ გსურთ Excel-მა დაინახოს თქვენი ნომერი ტექსტად, ეს ცოტა განსხვავებულია. ამისთვის შეგიძლიათ გამოიყენოთ TEXT ფუნქცია ან რამდენიმე სხვა გზა აღწერილია როგორ შევცვალოთ ნომრები ტექსტად Excel-ში.

SpellNumber VBA მაკრო რიცხვების სიტყვებად გადასაყვანად

როგორც უკვე აღვნიშნე , Microsoft-ს არ სურდა ამ ამოცანისთვის ხელსაწყოს დამატება. თუმცა, როცა დაინახეს, რამდენ მომხმარებელს სჭირდებოდა ეს, შექმნეს და გამოაქვეყნეს სპეციალური VBA მაკრო მათ ვებგვერდზე. მაკრო აკეთებს იმას, რასაც მისი სახელი SpellNumber გვთავაზობს. ყველა სხვა მაკრო, რომელიც მე წავაწყდი, ეფუძნება Microsoft-ის კოდს.

შეგიძლიათ იპოვოთ მაკრო, რომელიც მოხსენიებულია, როგორც "მართლწერის ნომრის ფორმულა". თუმცა, ეს არ არის ფორმულა, არამედ მაკრო ფუნქცია, ან უფრო ზუსტად Excel მომხმარებლის განსაზღვრული ფუნქცია (UDF).

მართლწერის ნომრის ვარიანტს შეუძლია დაწეროს დოლარი და ცენტი. თუ სხვა ვალუტა გჭირდებათ, შეგიძლიათ შეცვალოთ " დოლარი " და " ცენტი " თქვენი ვალუტის სახელით.

თუ არ ხართ VBA-ს მცოდნე ბიჭი. , ქვემოთ ნახავთ კოდის ასლს. თუ ჯერ კიდევ არ გსურთ ან არ გაქვთ დრო ამის გამოსასწორებლად, გთხოვთ, გამოიყენოთ ეს გამოსავალი.

1. გახსენით სამუშაო წიგნი, სადაც უნდა დაწეროთ რიცხვები.
2. დააჭირეთ Alt-ს. +F11 Visual Basic რედაქტორის ფანჯრის გასახსნელად.
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" Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) თუ DecimalPlace > 0 შემდეგ ცენტი = GetTens(მარცხნივ(შუა (ჩემი რიცხვი, ათწილადი ადგილი + 1) & _ "00" , 2)) MyNumber = მორთვა(მარცხნივ(MyNumber, ათობითი ადგილი - 1)) დასასრული, თუ რაოდენობა = 1 გააკეთე სანამ ჩემი ნომერი "" Temp = GetHundreds(Right(MyNumber, 3)) თუ Temp "" მაშინ დოლარი = Temp & amp; ადგილი(თვლა) & დოლარი If Len(MyNumber) > 3 მაშინ MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" ბოლოს აირჩიეთ აირჩიეთ Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & ცენტი & amp; "ცენტი" ბოლოს აირჩიეთ SpellNumber = დოლარი & amp; ცენტის ბოლო ფუნქციის ფუნქცია GetHundreds(ByVal MyNumber) მბზინავი შედეგი, როგორც სტრიქონი, თუ Val(MyNumber) = 0, შემდეგ გამოდით ფუნქციიდან MyNumber = Right( "000" & amp; MyNumber, 3) ' გადაიყვანეთ ასობით ადგილი. თუ Mid(MyNumber, 1, 1) "0" მაშინ შედეგი = GetDigit(Mid(MyNumber, 1, 1)) & "ასი" დასასრული თუ" გადააქციეთ ათეულებისა და ერთეულების ადგილი. თუ Mid(MyNumber, 2, 1) "0" მაშინ შედეგი = შედეგი & amp; GetTens(Mid(MyNumber, 2)) სხვა შედეგი = შედეგი & amp; GetDigit(Mid(MyNumber, 3)) End If GetHundreds = შედეგი დასრულება ფუნქცია GetTens(TensText) Dim Result As String Result = "" ' გააუქმეთ დროებითი ფუნქციის მნიშვნელობა. თუ Val(Left(TensText, 1)) = 1 მაშინ ' თუ მნიშვნელობა 10-19 შორის… აირჩიეთ Case Val(TensText) შემთხვევა 10: შედეგი = "ათი" შემთხვევა 11: შედეგი = "თერთმეტი" შემთხვევა 12: შედეგი = "თორმეტი" " შემთხვევა 13: შედეგი = "ცამეტი" შემთხვევა 14: შედეგი = "თოთხმეტი" შემთხვევა 15: შედეგი = "თხუთმეტი" შემთხვევა 16: შედეგი = "თექვსმეტი" შემთხვევა 17: შედეგი = "ჩვიდმეტი" შემთხვევა 18: შედეგი = "თვრამეტი" შემთხვევა 19: შედეგი = "ცხრამეტი" შემთხვევა სხვა ბოლოს აირჩიეთ სხვა "თუ მნიშვნელობა 20-99-ს შორის... აირჩიეთ Case Val(Left(TensText, 1)) შემთხვევა 2: შედეგი = "ოცდაათი" შემთხვევა 3: შედეგი = "ოცდაათი" შემთხვევა 4: შედეგი = "ორმოცი" შემთხვევა 5: შედეგი = "ორმოცდაათი" შემთხვევა 6: შედეგი = "სამოცი" შემთხვევა 7: შედეგი = "სამოცდაათი" შემთხვევა 8: შედეგი = "ორმოცი" შემთხვევა 9: შედეგი = "ოთხმოცდაათი" შემთხვევა სხვა დასასრული აირჩიეთ შედეგი = შედეგი & amp; GetDigit _ (მარჯვნივ(TensText, 1)) ' ამოიღეთ ადგილები. End If GetTens = შედეგი End Function ფუნქცია GetDigit(Digit) აირჩიეთ საქმეVal(ციფრი) შემთხვევა 1: GetDigit = "ერთი" შემთხვევა 2: GetDigit = "ორი" შემთხვევა 3: GetDigit = "სამი" შემთხვევა 4: GetDigit = "ოთხი" შემთხვევა 5: GetDigit = "ხუთი" შემთხვევა 6: GetDigit = " ექვსი" შემთხვევა 7: GetDigit = "შვიდი" შემთხვევა 8: GetDigit = "რვა" შემთხვევა 9: GetDigit = "ცხრა" სხვა შემთხვევა: GetDigit = "" დასრულების არჩევის დასრულების ფუნქცია

6. დააჭირეთ Ctrl+S განახლებული სამუშაო წიგნის შესანახად.

   თქვენ დაგჭირდებათ თქვენი სამუშაო წიგნის ხელახლა შენახვა. როდესაც ცდილობთ სამუშაო წიგნის შენახვას მაკროთი, თქვენ მიიღებთ შეტყობინებას " შემდეგი ფუნქციების შენახვა შეუძლებელია მაკრო-უფასო სამუშაო წიგნში "

   

   დააწკაპუნეთ No. როდესაც დაინახავთ ახალი დიალოგი, აირჩიეთ Save as option. ველში " შენახვა როგორც ტიპი " აირჩიეთ ვარიანტი " Excel-ის მაკრო ჩართული სამუშაო წიგნი ".

   

გამოიყენეთ SpellNumber მაკრო თქვენი სამუშაო ფურცლები

ახლა შეგიძლიათ გამოიყენოთ ფუნქცია SpellNumber თქვენს Excel დოკუმენტებში. შეიყვანეთ =SpellNumber(A2) უჯრედში, სადაც უნდა მიიღოთ სიტყვებით დაწერილი რიცხვი. აქ A2 არის უჯრედის მისამართი ნომრით ან ოდენობით.

აქ შეგიძლიათ ნახოთ შედეგი:

Voila!

სწრაფად დააკოპირეთ SpellNumber ფუნქცია სხვა უჯრედებში.

თუ თქვენ უნდა გადაიყვანოთ მთელი ცხრილი და არა მხოლოდ 1 უჯრედი, მოათავსეთ მაუსის კურსორი უჯრედის ქვედა მარჯვენა კუთხეში ფორმულით, სანამ ის არ გადაიქცევა პატარა შავ ჯვარზე:

დააწკაპუნეთ მარცხნივ და გადაიტანეთ იგი სვეტი ფორმულის შესავსებად. გაათავისუფლეთ ღილაკი შედეგების სანახავად:

შენიშვნა. გთხოვთგაითვალისწინეთ, რომ თუ იყენებთ SpellNumber-ს სხვა უჯრედის ბმულით, დაწერილი ჯამი განახლდება ყოველ ჯერზე, როდესაც შეიცვლება წყაროს უჯრედში არსებული ნომერი.

ასევე შეგიძლიათ შეიყვანოთ რიცხვი პირდაპირ ფუნქციაში, მაგალითად, =SpellNumber(29.95) (29.95 - ბრჭყალებისა და დოლარის ნიშნის გარეშე).

Excel-ში რიცხვების მართლწერისთვის მაკროს გამოყენების უარყოფითი მხარეები

პირველ რიგში, თქვენ უნდა იცოდეთ VBA, რომ შეცვალოთ კოდი თქვენი მიხედვით. საჭიროებებს. აუცილებელია თითოეული სამუშაო წიგნის კოდის ჩასმა, სადაც აპირებთ მის შეცვლას. წინააღმდეგ შემთხვევაში, თქვენ მოგიწევთ შექმნათ შაბლონის ფაილი მაკროებით და დააკონფიგურიროთ Excel, რომ ჩაიტვირთოს ეს ფაილი ყოველი დაწყებისას.

მაკროს გამოყენების მთავარი მინუსი არის თუ სამუშაო წიგნს სხვას გაუგზავნით, ეს ადამიანი არ გააკეთებს იხილეთ ტექსტი, თუ მაკრო არ არის ჩაშენებული სამუშაო წიგნში. და თუნდაც ჩაშენებული იყოს, ისინი მიიღებენ გაფრთხილებას სამუშაო წიგნში მაკროების შესახებ.

აღწერე რიცხვები სიტყვებად სპეციალური დანამატის გამოყენებით

Excel-ის მომხმარებლებისთვის, რომლებსაც სჭირდებათ თანხების სწრაფად მართლწერა, მაგრამ არ აქვთ დრო, რომ ისწავლონ VBA ან გაერკვნენ, ჩვენ შევქმენით სპეციალური ინსტრუმენტი რომელსაც შეუძლია სწრაფად შეასრულოს თანხის სიტყვებად კონვერტაცია რამდენიმე პოპულარული ვალუტისთვის. გთხოვთ, გაეცნოთ Spell Number-ის დანამატს, რომელიც შედის ჩვენი Ultimate Suite-ის უახლეს გამოშვებაში Excel-ისთვის.

გარდა იმისა, რომ ის მზადაა გამოსაყენებლად, ინსტრუმენტი ნამდვილად მოქნილია თანხების ტექსტად გადაქცევაში:

• შეგიძლიათ აირჩიოთ ერთ-ერთიშემდეგი ვალუტები: USD, EUR, GBP, BIT, AUD.
• დაწერეთ წილადი ნაწილი ცენტში, პენიში ან ბიტცენტში.
• აირჩიეთ ნებისმიერი ტექსტური რეგისტრი შედეგისთვის: პატარა, დიდი რეგისტრი. , სათაურის რეზერვები ან წინადადების რეზერვები.
• ათწილადის მართლწერა სხვადასხვა გზით.
• ჩართეთ ან გამოტოვეთ ნულოვანი ცენტი.

დამატება მხარს უჭერს ყველა თანამედროვეს. ვერსიები, მათ შორის Excel 365, Excel 2029, Excel 2016, Excel 2013 და Excel 2010. გთხოვთ, თავისუფლად შეისწავლოთ სხვა შესაძლებლობები პროდუქტის მთავარ გვერდზე, ზემოთ მითითებულ ბმულზე.

და ახლა, ვნახოთ რიცხვების მართლწერის პროგრამა მოქმედებაში. :

1. შედეგისთვის აირჩიეთ ცარიელი უჯრედი.
2. Ablebits ჩანართზე, Utilities ჯგუფში დააწკაპუნეთ Spell Number .
3. Spill Number დიალოგური ფანჯარაში, რომელიც გამოჩნდება, დააკონფიგურირეთ შემდეგი პარამეტრები:
   • Select your number ველში , აირჩიეთ უჯრედი, რომელიც შეიცავს იმ რაოდენობას, რომელიც გსურთ ტექსტის სახით ჩაწეროთ.
   • მიუთითეთ სასურველი ამჟამად , ასო ასო და გზა ათწილადი რიცხვის ნაწილი უნდა იყოს ჩაწერილი.
   • განსაზღვრეთ, შეიცავდეს თუ არა ნულ ცენტს.
   • აირჩიეთ ჩასვათ შედეგი მნიშვნელობად ან ფორმულად.
4. დიალოგური ფანჯრის ბოლოში გადახედეთ შედეგს. თუ კმაყოფილი ხართ თქვენი ნომრის დაწერით, დააწკაპუნეთ მართლწერა . წინააღმდეგ შემთხვევაში, სცადეთ სხვადასხვა პარამეტრები.

ქვემოთ სკრინშოტი აჩვენებს ნაგულისხმევსარჩევანი და ჩაწერილი რიცხვი B2-ში. გთხოვთ, შენიშნოთ ფორმულა (უფრო ზუსტად, მომხმარებლის მიერ განსაზღვრული ფუნქცია) ფორმულების ზოლში:

და ეს არის სწრაფი დემონსტრირება იმისა, თუ როგორ შეიძლება სხვა ვალუტების დაწერა:

რჩევები და შენიშვნები:

• რადგან Spell Number დანამატი შექმნილია რეალურ ცხოვრებაში გამოყენების შემთხვევებზე, როგორიცაა ინვოისები და სხვა ფინანსური დოკუმენტები, მას შეუძლია მხოლოდ ერთი ნომრის გადაქცევა ერთჯერადად.
• ციფრების სვეტის დასაწერად ჩადეთ ფორმულა პირველ უჯრედში და შემდეგ დააკოპირეთ ფორმულა ქვემოთ.
• თუ არის შანსი, რომ თქვენი წყაროს მონაცემები შეიძლება შეიცვალოს მომავალში, უმჯობესია ჩასვათ შედეგი როგორც ფორმულა , ასე რომ ის ავტომატურად განახლდება ორიგინალური რიცხვის ცვლილებისას.
• როდესაც არჩევთ შედეგს ფორმულად ოპციით, ჩასმულია მორგებული მომხმარებლის მიერ განსაზღვრული ფუნქცია (UDF). თუ გეგმავთ თქვენი სამუშაო წიგნის გაზიარებას ვინმესთან, რომელსაც არ აქვს დაინსტალირებული Ultimate Suite, გახსოვდეთ, რომ გაზიარებამდე შეცვალოთ ფორმულები მნიშვნელობებით.

უკუ კონვერტაცია - ინგლისური სიტყვები რიცხვებად

გულწრფელად. , ვერ წარმომიდგენია, რატომ შეიძლება დაგჭირდეთ. ყოველი შემთხვევისთვის… :)

როგორც ჩანს, Excel MVP-მა, ჯერი ლატამმა შექმნა Excel მომხმარებლის განსაზღვრული ფუნქცია (UDF), როგორც WordsToDigits . ის გარდაქმნის ინგლისურ სიტყვებს რიცხვად.

შეგიძლიათ ჩამოტვირთოთ ჯერის WordsToDigits სამუშაო წიგნი UDF კოდის სანახავად. აქ ასევე ნახავთ მის მაგალითებს, თუ როგორ გამოიყენოთ იგიფუნქცია.

როგორ მუშაობს ფუნქცია ხედავთ ფურცელზე " Sample Entries ", სადაც ასევე შეძლებთ შეიყვანოთ თქვენი საკუთარი მაგალითები. თუ თქვენ აპირებთ WordsToDigits-ის გამოყენებას თქვენს დოკუმენტებში, გთხოვთ, გაცნობოთ, რომ ამ ფუნქციას აქვს შეზღუდვები. მაგალითად, ის არ ცნობს სიტყვებში შეყვანილ წილადებს. ყველა დეტალს ნახავთ " ინფორმაცია " ფურცელზე.