මෙම ලිපියෙන් මම Excel 2019, 2016, 2013 සහ අනෙකුත් අනුවාද වල මුදල් අංක ඉංග්‍රීසි වචන බවට පරිවර්තනය කිරීමට ඉක්මන් සහ නොමිලේ ක්‍රම දෙකක් පෙන්වන්නම්.

Microsoft Excel විශිෂ්ටයි. මෙය සහ එය ගණනය කිරීමේ වැඩසටහන. එය මුලින් සංවර්ධනය කරන ලද්දේ විශාල දත්ත අරා සැකසීම සඳහා ය. කෙසේ වෙතත්, ඉන්වොයිසි, ඇගයීම හෝ ශේෂ පත්‍ර වැනි ගිණුම් වාර්තා ඉක්මනින් හා ඵලදායී ලෙස නිර්මාණය කිරීමට ද එය ඉඩ සලසයි.

වැඩි හෝ අඩු ඝන ගෙවීම් ලේඛනවල සංඛ්‍යාත්මක අගයන් ඒවායේ වචන ආකෘතිය සමඟ අනුපිටපත් කිරීම අවශ්‍ය වේ. අතින් ලියන ඒවාට වඩා ටයිප් කරන ලද අංක ව්‍යාජ ලෙස සකස් කිරීම අපහසුය. සමහර වංචාකාරයින්ට 3000න් 8000ක් සෑදීමට උත්සාහ කළ හැකිය, නමුත් රහසිගතව "තුන" වෙනුවට "අට" ආදේශ කිරීම පාහේ කළ නොහැක්කකි.

එබැවින් ඔබට අවශ්‍ය වන්නේ එක්සෙල් හි අංක වචන බවට පරිවර්තනය කිරීම පමණක් නොවේ (උදා. 123.45 සිට "එකසිය විසි තුන, හතළිස් පහ"), නමුත් ඩොලර් සහ ශත (උදා: $29.95 "ඩොලර් විසි නවයක් සහ ශත අනූනවයක්" ලෙස), GBP සඳහා පවුම් සහ පැන්ස, EUR සඳහා යුරෝ සහ යුරෝසෙන්ට් යනාදිය

Excel හි නවතම අනුවාදවල පවා පෙර අනුවාද ගැන සඳහන් නොකර අක්ෂර වින්‍යාස අංක සඳහා සවි කළ මෙවලමක් නොමැත. නමුත් Excel ඇත්තෙන්ම හොඳ වන්නේ එවිටය. ඔබට සෑම විටම එහි ක්‍රියාකාරීත්වය ඔවුන්ගේ සියලු

සංයෝජනවල, VBA මැක්‍රෝවල, හෝ තෙවන පාර්ශ්ව ඇඩෝනවල සූත්‍ර භාවිතයෙන් වැඩිදියුණු කළ හැක.

පහත ඔබට අංක පරිවර්තනය කිරීමට ක්‍රම දෙකක් සොයාගත හැකිය. වචන වලට ඉලක්කම්

සහ, සමහරවිට, ඔබට අවශ්‍ය විය හැකExcel හි වචන අංක බවට පරිවර්තනය කරන්න

සටහන. ඔබ සොයන්නේ නම් අංකය සිට පෙළ පරිවර්තනය , එනම් ඔබට Excel ඔබේ අංකය පෙළ ලෙස දැකීමට අවශ්‍ය නම්, එය ටිකක් වෙනස් දෙයකි. මේ සඳහා, ඔබට TEXT ශ්‍රිතය හෝ Excel හි සංඛ්‍යා පෙළට වෙනස් කරන්නේ කෙසේද යන්නෙහි විස්තර කර ඇති වෙනත් ක්‍රම කිහිපයක් භාවිතා කළ හැකිය.

SpellNumber VBA macro ඉලක්කම් වචන බවට පරිවර්තනය කිරීමට

මම දැනටමත් සඳහන් කර ඇති පරිදි , Microsoft හට මෙම කාර්යය සඳහා මෙවලමක් එක් කිරීමට අවශ්‍ය නොවීය. කෙසේ වෙතත්, පරිශීලකයින් කී දෙනෙකුට එය අවශ්‍යදැයි ඔවුන් දුටු විට, ඔවුන් ඔවුන්ගේ වෙබ් අඩවියේ විශේෂ VBA මැක්‍රෝ නිර්මාණය කර ප්‍රකාශයට පත් කළහ. මැක්‍රෝව එහි නම SpellNumber යෝජනා කරන දේ කරයි. මට හමු වූ අනෙකුත් සියලුම මැක්‍රෝ Microsoft කේතය මත පදනම් වේ.

ඔබට "අක්ෂර අංක සූත්‍රය" ලෙස සඳහන් කළ මැක්‍රෝ සොයා ගත හැක. කෙසේ වෙතත්, එය සූත්‍රයක් නොව සාර්ව ශ්‍රිතයක් හෝ වඩාත් නිවැරදිව කිවහොත් Excel පරිශීලක නිර්වචනය කළ ශ්‍රිතය (UDF).

spellnumber විකල්පයට ඩොලර් සහ ශත ලිවීමට හැකියාව ඇත. ඔබට වෙනත් මුදල් වර්ගයක් අවශ්‍ය නම්, ඔබට ඔබේ නම සමඟ " ඩොලර් " සහ " ශත " වෙනස් කළ හැක.

ඔබ VBA දැනුමැති පුද්ගලයෙක් නොවේ නම් , පහත ඔබට කේතයේ පිටපතක් හමුවනු ඇත. ඔබට තවමත් මෙය නිරාකරණය කිරීමට අවශ්‍ය නැතිනම් හෝ කාලය නොමැති නම්, කරුණාකර මෙම විසඳුම භාවිතා කරන්න.

1. ඔබට අංක ලිවීමට අවශ්‍ය වැඩපොත විවෘත කරන්න.
2. Alt ඔබන්න. දෘශ්‍ය මූලික සංස්කාරක කවුළුව විවෘත කිරීමට +F11.
3. ඔබට පොත් කිහිපයක් විවෘත කර ඇත්නම්, අවශ්‍ය වැඩපොත භාවිතා කර සක්‍රිය දැයි පරීක්ෂා කරන්න.සංස්කාරකයේ ඉහළ වම් කෙළවරේ ඇති ව්‍යාපෘති ලැයිස්තුව (වැඩපොත මූලද්‍රව්‍යවලින් එකක් නිල් පැහැයෙන් උද්දීපනය කර ඇත).
4. සංස්කාරක මෙනුවෙහි ඇතුළු කරන්න -> මොඩියුලයට යන්න. .
5. ඔබට YourBook - Module1 නමින් කවුළුවක් දැකිය යුතුය. පහත රාමුවේ ඇති සියලුම කේතයන් තෝරා එය මෙම කවුළුවට අලවන්න.

   විකල්පය පැහැදිලි 'ප්‍රධාන ක්‍රියාකාරී කාර්යය SpellNumber( ByVal MyNumber) ඩිම් ඩොලර්, ශත, ටෙම්ප් ඩිම් දශමස්ථානය, ReDim ස්ථානය ගණන් කරන්න(9) String Place(2) = "දහස්" ස්ථානය(3) = "මිලියන" ස්ථානය(4) = "බිලියන" ස්ථානය(5) = "ට්‍රිලියන" MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, "." ) දශමස්ථානය නම් > 0 එවිට ශත = GetTens(වමේ(මධ්‍යම(MyNumber, DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(වමේ(MyNumber, DecimalPlace - 1)) End නම් ගණන් = 1 MyNumber අතරතුර කරන්න "" Temp = GetHundreds(Right(MyNumber, 3)) Temp "" නම් ඩොලර් = Temp & ස්ථානය(ගණන්) & ඩොලර් නම් ලෙන්(MyNumber) > 3 එවිට MyNumber = වම්(MyNumber, Len(MyNumber) - 3) වෙනත් MyNumber = "" End If Count = Count + 1 Loop තෝරන්න සිද්ධි ඩොලර් නඩුව "" ඩොලර් = "ඩොලර් නැත" නඩුව "එක" ඩොලර් = "එක් ඩොලර්" නඩුව වෙනත් ඩොලර් = ඩොලර් සහ amp; "ඩොලර්" අවසානය තෝරන්න සිද්ධි ශත නඩුව "" ශත = " සහ ශත නැත" නඩුව "එක" ශත = "සහ එක සත" නඩුව වෙනත් ශත = " සහ " & ශත සහ amp; "ශත" අවසානය තෝරන්න SpellNumber = ඩොලර් & ශත අවසන් කාර්යය කාර්යය GetHundreds(ByVal MyNumber) Val(MyNumber) = 0 නම් ශ්‍රිතය ලෙස අඳුරු ප්‍රතිඵලය MyNumber = දකුණෙන් පිටවන්න ( "000" & MyNumber, 3) ' සිය ගණන් ස්ථාන පරිවර්තනය කරන්න. Mid(MyNumber, 1, 1) "0" නම් ප්‍රතිඵලය = GetDigit(Mid(MyNumber, 1, 1)) & "සියය" අවසානය නම් 'දස සහ එක තැන පරිවර්තනය කරන්න. මැද (MyNumber, 2, 1) "0" නම් ප්‍රතිඵලය = ප්‍රතිඵලය & GetTens(Mid(MyNumber, 2)) වෙනත් ප්‍රතිඵලය = ප්‍රතිඵලය & GetDigit(Mid(MyNumber, 3)) End නම් GetHundreds = ප්‍රතිඵල අවසන් ශ්‍රිතය GetTens(TensText) Dim Result ලෙස 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 (වමේ(TensText, 1)) 2 වන අවස්ථාව තෝරන්න: ප්‍රතිඵලය = "විසි" අවස්ථාව 3: ප්‍රතිඵලය = "තිස්" නඩුව 4: ප්‍රතිඵලය = "හතළිස්" නඩුව 5: ප්‍රතිඵලය = "පනස්" නඩුව 6: ප්‍රතිඵලය = "හැට" නඩුව 7: ප්‍රතිඵලය = "සැත්තෑ" නඩුව 8: ප්‍රතිඵලය = "අසූ" නඩුව 9: ප්‍රතිඵලය = "අනූ" නඩුව වෙනත් අවසානයක් ප්‍රතිඵලය තෝරන්න = ප්‍රතිඵලය & GetDigit _ (දකුණට(TensText, 1)) 'එක් ස්ථානයක් ලබාගන්න. End If GetTens = ප්‍රතිඵල අවසන් ශ්‍රිත කාර්යය 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 ඔබන්න යාවත්කාලීන වැඩපොත සුරැකීමට.

   ඔබගේ වැඩපොත නැවත සුරැකීමට ඔබට අවශ්‍ය වනු ඇත. ඔබ වැඩපොත මැක්‍රෝ එකක් සමඟ සුරැකීමට උත්සාහ කරන විට ඔබට පණිවිඩය ලැබෙනු ඇත " පහත විශේෂාංග සාර්ව-නිදහස් වැඩපොතෙහි සුරැකිය නොහැක "

   

   ඔබ දකින විට අංක ක්ලික් කරන්න. නව සංවාදයක්, විකල්පය ලෙස සුරකින්න තෝරන්න. " Save as type " යන ක්ෂේත්‍රයේ " Excel macro-Enabled Workbook " විකල්පය තෝරන්න.

   

SpellNumber macro භාවිතා කරන්න ඔබගේ වැඩ පත්‍රිකා

දැන් ඔබට ඔබගේ Excel ලේඛනවල SpellNumber ශ්‍රිතය භාවිතා කළ හැක. ඔබට වචන වලින් ලියා ඇති අංකය ලබා ගැනීමට අවශ්‍ය කොටුවට =SpellNumber(A2) ඇතුළත් කරන්න. මෙහි A2 යනු අංකය හෝ මුදල සහිත කොටුවේ ලිපිනයයි.

මෙහි ඔබට ප්‍රතිඵලය දැකිය හැක:

Voila!

SellNumber ශ්‍රිතය ඉක්මනින් අනෙකුත් කොටු වලට පිටපත් කරන්න.

ඔබ නම් කොටු 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 ටැබය මත, Utilities group එකේ, ක්ලික් කරන්න. අක්ෂර වින්‍යාස අංකය .
3. පෙනෙන ස්පිල් අංකය සංවාද කවුළුව තුළ, පහත දේවල් වින්‍යාස කරන්න:
   • ඔබගේ අංකය තෝරන්න කොටුව , ඔබට පෙළ ලෙස ලිවීමට අවශ්‍ය ප්‍රමාණය අඩංගු කොටුව තෝරන්න.
   • අවශ්‍ය දැනට , අකුරු නඩුව සහ දශම ආකාරය සඳහන් කරන්න. අංකයේ කොටස අක්ෂර වින්‍යාසය දැක්විය යුතුය.
   • ශත බිංදු ඇතුළත් කළ යුතුද නැද්ද යන්න නිර්වචනය කරන්න.
   • ප්‍රතිඵලය අගයක් හෝ සූත්‍රයක් ලෙස ඇතුළත් කළ යුතුද යන්න තෝරන්න.
4. සංවාද කවුළුවේ පහළින්, ප්‍රතිඵලය පෙරදසුන් කරන්න. ඔබගේ අංකය ලියා ඇති ආකාරය ගැන ඔබ සතුටු වන්නේ නම්, අකුරු කරන්න ක්ලික් කරන්න. එසේ නොමැතිනම්, විවිධ සැකසුම් උත්සාහ කරන්න.

පහත තිර රුවක් පෙරනිමිය පෙන්නුම් කරයි.තේරීම් සහ B2 හි අක්ෂර වින්‍යාස අංකය. කරුණාකර සූත්‍ර තීරුවේ ඇති සූත්‍රයක් (වඩාත් නිවැරදිව, පරිශීලක-නිර්වචනය කරන ලද ශ්‍රිතයක්) සටහන් කරන්න:

මෙය අනෙකුත් මුදල් වර්ග උච්චාරණය කළ හැකි ආකාරය පිළිබඳ ඉක්මන් නිරූපණයකි:

ඉඟි සහ සටහන්:

• අක්ෂර වින්‍යාස අංකය ඇඩෝනය නිර්මාණය කර ඇත්තේ ඉන්වොයිසි සහ අනෙකුත් මූල්‍ය ලේඛන වැනි සැබෑ ජීවිත පරිහරණ අවස්ථා හැසිරවීමට නිර්මාණය කර ඇති නිසා, එයට පරිවර්තනය කළ හැක්කේ එක් අංකයක් පමණි වරකට.
• සංඛ්‍යා තීරුවක් අක්ෂර වින්‍යාස කිරීමට, පළමු කොටුවට සූත්‍රයක් ඇතුළු කරන්න, ඉන්පසු සූත්‍රය පහළට පිටපත් කරන්න.
• අවස්ථාවක් තිබේ නම් ඔබේ මූලාශ්‍ර දත්ත අනාගතයේදී වෙනස් විය හැක, ප්‍රතිඵලය සූත්‍රය ලෙස ඇතුළත් කිරීම වඩාත් සුදුසුය, එබැවින් මුල් අංකය වෙනස් වන විට එය ස්වයංක්‍රීයව යාවත්කාලීන වේ.
• ප්‍රතිඵලය සූත්‍රය ලෙස තේරීමේදී විකල්පය, අභිරුචි පරිශීලක-නිර්වචනය කරන ලද ශ්‍රිතයක් (UDF) ඇතුළත් කර ඇත. ඔබ Ultimate Suite ස්ථාපනය කර නොමැති කෙනෙකු සමඟ ඔබේ වැඩපොත බෙදා ගැනීමට අදහස් කරන්නේ නම්, බෙදා ගැනීමට පෙර සූත්‍ර අගයන් සමඟ ප්‍රතිස්ථාපනය කිරීමට මතක තබා ගන්න.

ප්‍රතිලෝම පරිවර්තනය - ඉංග්‍රීසි වචන අංක බවට

අවංකවම , ඔබට එය අවශ්‍ය විය හැක්කේ මන්දැයි මට සිතාගත නොහැක. යම් අවස්ථාවකදී... :)

එක්සෙල් MVP, Jerry Latham, WordsToDigits වැනි Excel පරිශීලක නිර්වචනය කළ ශ්‍රිතය (UDF) නිර්මාණය කළ බව පෙනේ. එය ඉංග්‍රීසි වචන නැවත අංකයට පරිවර්තනය කරයි.

ඔබට UDF කේතය බැලීමට Jerry's WordsToDigits වැඩපොත බාගත කළ හැක. භාවිතා කරන ආකාරය පිළිබඳ ඔහුගේ උදාහරණ ද මෙහිදී ඔබට සොයාගත හැකියකාර්යය.

ඔබට " නියැදි ඇතුළත් කිරීම් " පත්‍රයේ ශ්‍රිතය ක්‍රියා කරන ආකාරය දැක ගත හැක, එහිදී ඔබට ඔබේම උදාහරණ ඇතුලත් කිරීමටද හැකි වනු ඇත. ඔබ ඔබේ ලේඛනවල WordsToDigits භාවිතා කිරීමට අදහස් කරන්නේ නම්, මෙම කාර්යයට සීමාවන් ඇති බව කරුණාකර දන්වන්න. උදාහරණයක් ලෙස, එය වචනවල ඇතුළත් කළ කොටස් හඳුනා නොගනී. " තොරතුරු " පත්‍රිකාවේ ඔබට සියලු විස්තර සොයා ගත හැක. 3>