در این مقاله دو راه سریع و رایگان برای تبدیل اعداد ارز به کلمات انگلیسی در اکسل 2019، 2016، 2013 و نسخه های دیگر را به شما نشان می دهم.

Microsoft Excel یک ابزار عالی است. برنامه ای برای محاسبه این و آن. در ابتدا برای پردازش آرایه های داده بزرگ توسعه داده شد. با این حال، همچنین اجازه می دهد تا سوابق حسابداری مانند صورتحساب ها، ارزیابی ها یا ترازنامه ها را به سرعت و به طور موثر ایجاد کنید.

در اسناد پرداخت کم و بیش مستحکم، لازم است مقادیر عددی را با فرم کلمه آنها تکرار کنید. جعل اعداد تایپ شده بسیار سخت تر از آنهایی است که با دست نوشته شده اند. برخی از کلاهبرداران می توانند سعی کنند از 3000 8000 بسازند، در حالی که تقریبا غیرممکن است که مخفیانه "سه" را با "هشت" جایگزین کند.

بنابراین آنچه شما نیاز دارید فقط تبدیل اعداد به کلمات در اکسل نیست (مثلاً 123.45 به "یکصد و بیست و سه، چهل و پنج")، اما دلار و سنت (به عنوان مثال 29.95 دلار به عنوان "بیست و نه دلار و نود و نه سنت")، پوند و پنس برای پوند انگلیس، یورو و یورو سنت برای یورو، و غیره.

حتی آخرین نسخه‌های اکسل نیز ابزار داخلی برای املای اعداد ندارند، به غیر از نسخه‌های قبلی. اما این زمانی است که اکسل واقعا خوب است. همیشه می‌توانید عملکرد آن را با استفاده از فرمول‌ها در همه

ترکیب‌ها، ماکروهای VBA یا افزونه‌های شخص ثالث بهبود ببخشید.

در زیر دو روش برای تبدیل اعداد از ارقام به کلمات

و احتمالاً ممکن است لازم باشدتبدیل کلمات به اعداد در اکسل

توجه داشته باشید. اگر به دنبال تبدیل عدد به متن هستید، به این معنی که می خواهید اکسل شماره شما را به صورت متن ببیند، کمی متفاوت است. برای این کار، می توانید از تابع TEXT یا چند روش دیگر که در نحوه تغییر اعداد به متن در اکسل توضیح داده شده است استفاده کنید.

ماکروی SpellNumber VBA برای تبدیل اعداد به کلمات

همانطور که قبلاً اشاره کردم ، مایکروسافت نمی خواست ابزاری برای این کار اضافه کند. با این حال، زمانی که دیدند چند کاربر به آن نیاز دارند، ماکرو VBA ویژه را ایجاد و در وب سایت خود منتشر کردند. ماکرو کاری را انجام می دهد که نام SpellNumber نشان می دهد. همه ماکروهای دیگری که من با آنها برخورد کردم بر اساس کد مایکروسافت هستند.

شما می توانید ماکرویی که به عنوان "فرمول شماره املا" ذکر شده است را پیدا کنید. با این حال، این یک فرمول نیست، بلکه یک تابع ماکرو است، یا به عبارت دقیق تر عملکرد تعریف شده توسط کاربر اکسل (UDF).

گزینه spellnumber قادر به نوشتن دلار و سنت است. اگر به ارز دیگری نیاز دارید، می‌توانید « دلار » و « سنت » را با نام واحد خود تغییر دهید.

اگر فرد باهوش VBA نیستید. ، در زیر یک کپی از کد را مشاهده خواهید کرد. اگر هنوز نمی‌خواهید یا زمانی برای حل این مشکل ندارید، لطفاً از این راه‌حل استفاده کنید.

1. کتاب کار را در جایی که باید اعداد را املا کنید باز کنید.
2. Alt را فشار دهید. +F11 برای باز کردن پنجره ویرایشگر ویژوال بیسیک.
3. اگر چندین کتاب باز کرده اید، بررسی کنید که کتاب کار مورد نیاز با استفاده از آن فعال باشد.لیست پروژه ها در گوشه سمت چپ بالای ویرایشگر (یکی از عناصر کتاب کار با آبی مشخص شده است).
4. در منوی ویرایشگر به Insert -> Module بروید. .
5. شما باید پنجره ای به نام YourBook - Module1 را ببینید. تمام کدهای موجود در کادر زیر را انتخاب کرده و در این پنجره قرار دهید.

   گزینه صریح 'تابع اصلی تابع SpellNumber( ByVal MyNumber) Dim Dollars, Cent, 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, "." ) If DecimalPlace > 0 سپس Cents = GetTens (چپ(Mid(MyNumber، DecimalPlace + 1) & _ "00" , 2)) MyNumber = Trim(Left(MyNumber، DecimalPlace - 1)) End If Count = 1 Do while MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) اگر Temp "" سپس Dollars = Temp & مکان (شمار) & Dollars 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" End Select Select Case Cents Case "" Cents = " and No Cent" Case "One" Cents = " and One Cent" Case Else Cents = " and " & سنت و آمپر; "Cents" End Select SpellNumber = Dollars & تابع پایان سنت ها GetHundreds(ByVal MyNumber) کم نور نتیجه به عنوان رشته اگر Val(MyNumber) = 0 سپس از تابع MyNumber خارج شوید = Right( "000" & amp; MyNumber, 3) ' مکان صدها را تبدیل کنید. اگر Mid(MyNumber, 1, 1) "0" سپس Result = GetDigit(Mid(MyNumber, 1, 1)) & "صد" پایان اگر" مکان ده ها و یک ها را تبدیل کنید. اگر Mid(MyNumber, 2, 1) "0" سپس Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = نتیجه تابع پایان تابع GetTens(TensText) کم نور نتیجه به عنوان نتیجه رشته = "" ' مقدار تابع موقت را حذف کنید. اگر Val(Left(TensText, 1)) = 1 سپس ' اگر مقدار بین 10-19… Case Val(TensText) را انتخاب کنید مورد 10: Result = "Ten" مورد 11: Result = "Eleven" مورد 12: Result = "Twelve" " مورد 13: نتیجه = "سیزده" مورد 14: نتیجه = "چهارده" مورد 15: نتیجه = "پانزده" مورد 16: نتیجه = "شانزده" مورد 17: نتیجه = "هفده" مورد 18: نتیجه = مورد "هجده" 19: Result = "Ninete" Case Else End Select Else ' اگر مقدار بین 20-99… Case Val(Left(TensText, 1)) را انتخاب کنید مورد 2: Result = "Twenty" مورد 3: Result = "Thirty" مورد 4: نتیجه = "چهل" مورد 5: نتیجه = "پنجاه" مورد 6: نتیجه = "شصت" مورد 7: نتیجه = "هفتاد" مورد 8: نتیجه = "هشتاد" مورد 9: نتیجه = "نود" مورد دیگر انتخاب نتیجه = نتیجه & GetDigit _ (راست(TensText, 1)) "مکان افراد را بازیابی کنید. End If GetTens = نتیجه تابع پایان تابع GetDigit(Digit) Case را انتخاب کنیدVal(Digit) مورد 1: GetDigit = "یک" مورد 2: GetDigit = "دو" مورد 3: GetDigit = "سه" مورد 4: GetDigit = "چهار" مورد 5: GetDigit = "پنج" مورد 6: GetDigit = " Six" مورد 7: GetDigit = "Seven" مورد 8: GetDigit = "هشت" مورد 9: GetDigit = "Nine" مورد دیگر: GetDigit = "" پایان دادن به تابع انتخاب پایان

6. Ctrl+S را فشار دهید برای ذخیره کتاب کار به روز شده

   شما باید کتاب کار خود را دوباره ذخیره کنید. وقتی می‌خواهید کتاب کار را با ماکرو ذخیره کنید، پیام « ویژگی‌های زیر را نمی‌توان در workbook بدون ماکرو ذخیره کرد »

   

   روی No کلیک کنید. یک گفتگوی جدید، گزینه Save as را انتخاب کنید. در قسمت " ذخیره به عنوان نوع " گزینه " Excel-enabled macro-enabled workbook " را انتخاب کنید.

   

استفاده از ماکرو SpellNumber در کاربرگ های خود

اکنون می توانید از تابع SpellNumber در اسناد اکسل خود استفاده کنید. =SpellNumber(A2) را در سلولی وارد کنید که باید عدد را به صورت کلمه ای دریافت کنید. در اینجا A2 آدرس سلول با تعداد یا مقدار است.

در اینجا می‌توانید نتیجه را ببینید:

Voila!

به سرعت تابع SpellNumber را در سلول‌های دیگر کپی کنید.

اگر می‌خواهید باید کل جدول را تبدیل کنید، نه فقط 1 سلول، نشانگر ماوس خود را در گوشه سمت راست پایین سلول با فرمول قرار دهید تا به یک ضربدر سیاه کوچک تبدیل شود:

کلیک چپ کرده و آن را در سراسر صفحه بکشید. ستون برای پر کردن فرمول برای مشاهده نتایج، دکمه را رها کنید:

توجه داشته باشید. لطفابه خاطر داشته باشید که اگر از SpellNumber با پیوند به سلولی دیگر استفاده می کنید، مجموع نوشته شده هر بار که عدد در سلول مبدأ تغییر می کند به روز می شود.

همچنین می توانید عدد را مستقیماً در تابع وارد کنید. به عنوان مثال، =SpellNumber(29.95) (29.95 - بدون علامت نقل قول و علامت دلار).

معایب استفاده از ماکرو برای املای اعداد در اکسل

ابتدا، شما باید VBA را بدانید تا کد را مطابق با خود تغییر دهید. نیاز دارد. لازم است کد را برای هر کتاب کار جایگذاری کنید، جایی که قصد دارید آن را تغییر دهید. در غیر این صورت، باید یک فایل الگو با ماکروها ایجاد کنید و اکسل را برای بارگیری این فایل در هر شروع پیکربندی کنید.

عیب اصلی استفاده از ماکرو این است که اگر کتاب کار را برای شخص دیگری ارسال کنید، این شخص این کار را نخواهد کرد. متن را ببینید مگر اینکه ماکرو در کتاب کار تعبیه شده باشد. و حتی اگر داخلی باشد، هشداری مبنی بر وجود ماکروها در کتاب کار دریافت خواهند کرد.

املای اعداد به کلمات با استفاده از یک افزونه ویژه

برای کاربران اکسل که نیاز به املای سریع مجموع دارند اما زمانی برای یادگیری VBA یا یافتن راه‌حل‌ها ندارند، ما یک ابزار ویژه ایجاد کردیم. که می تواند به سرعت تبدیل مقدار به کلمه را برای چند ارز رایج انجام دهد. لطفاً با افزونه Spell Number همراه با آخرین نسخه Ultimate Suite برای اکسل آشنا شوید.

علاوه بر اینکه ابزار آماده برای استفاده است، در تبدیل مقادیر به متن بسیار انعطاف پذیر است:

• شما می توانید یکی از موارد را انتخاب کنیدارزهای زیر: USD، EUR، GBP، BIT، AUD.
• املا قسمت کسری را به سنت، پنی یا بیت سنت بنویسید.
• هر حروف متنی را برای نتیجه انتخاب کنید: حروف کوچک، حروف بزرگ , Title Case, یا Sentence case.
• املای قسمت اعشاری را به روش های مختلف بنویسید.
• صفر سنت را اضافه یا حذف کنید.

افزونه از همه موارد مدرن پشتیبانی می کند نسخه هایی از جمله اکسل 365، اکسل 2029، اکسل 2016، اکسل 2013 و اکسل 2010. لطفاً با خیال راحت سایر قابلیت ها را در صفحه اصلی محصول پیوند داده شده در بالا بررسی کنید.

و اکنون، بیایید این ابزار املای اعداد را در عمل مشاهده کنیم. :

1. یک سلول خالی را برای نتیجه انتخاب کنید.
2. در برگه Ablebits ، در گروه Utilities ، روی کلیک کنید. Spell Number .
3. در پنجره گفتگوی Spill Number که ظاهر می شود، موارد زیر را پیکربندی کنید:
   • برای کادر Select your number ، سلولی را انتخاب کنید که حاوی مقداری است که می خواهید به عنوان متن نوشته شود.
   • در حال حاضر ، حروف کوچک و روش اعشاری مورد نظر را مشخص کنید. قسمت عدد باید املا شود.
   • تعریف کنید که صفر سنت را شامل شود یا خیر.
   • انتخاب کنید که آیا نتیجه را به عنوان مقدار یا فرمول درج کنید.
4. در پایین پنجره گفتگو، پیش نمایش نتیجه را مشاهده کنید. اگر از نحوه نوشتن شماره خود راضی هستید، روی املا کلیک کنید. در غیر این صورت، تنظیمات مختلف را امتحان کنید.

تصویر صفحه زیر پیش فرض را نشان می دهدانتخاب ها و عدد املایی در B2. لطفاً به یک فرمول (به طور دقیق تر، یک تابع تعریف شده توسط کاربر) در نوار فرمول توجه کنید:

و این یک نمایش سریع از نحوه املای سایر ارزها است:

نکات و نکات:

• از آنجایی که افزونه Spell Number برای رسیدگی به موارد استفاده واقعی مانند فاکتورها و سایر اسناد مالی طراحی شده است، فقط می تواند یک عدد <6 را تبدیل کند>در یک زمان.
• برای املای ستون اعداد ، یک فرمول را در خانه اول وارد کنید و سپس فرمول را به پایین کپی کنید.
• اگر این احتمال وجود دارد که داده های منبع شما ممکن است در آینده تغییر کند، بهتر است نتیجه را به صورت فرمول وارد کنید ، بنابراین با تغییر شماره اصلی به طور خودکار به روز می شود.
• هنگام انتخاب نتیجه به عنوان فرمول گزینه، یک عملکرد تعریف شده توسط کاربر (UDF) سفارشی درج شده است. اگر قصد دارید کتاب کار خود را با شخصی به اشتراک بگذارید که Ultimate Suite را نصب نکرده است، به یاد داشته باشید که قبل از اشتراک گذاری، فرمول ها را با مقادیر جایگزین کنید.

تبدیل معکوس - کلمات انگلیسی به اعداد

صادقانه بگویم. ، نمی توانم تصور کنم که چرا ممکن است به آن نیاز داشته باشید. فقط در صورت... :)

به نظر می رسد که MVP اکسل، جری لاتام، تابع تعریف شده اکسل (UDF) را به عنوان WordsToDigits ایجاد کرده است. این لغات انگلیسی را به عدد تبدیل می کند.

برای مشاهده کد UDF می توانید کتاب کار Jerry's WordsToDigits را دانلود کنید. در اینجا نمونه هایی از نحوه استفاده از آن را نیز خواهید یافتعملکرد.

شما می توانید نحوه عملکرد تابع را در برگه " Sample Entries " مشاهده کنید، جایی که شما همچنین می توانید نمونه های خود را وارد کنید. اگر قصد دارید از WordsToDigits در اسناد خود استفاده کنید، لطفاً مطلع شوید که این تابع دارای محدودیت هایی است. به عنوان مثال، کسرهای وارد شده در کلمات را نمی شناسد. همه جزئیات را در برگه " اطلاعات " خواهید یافت. 3>