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

اگر شما شک دارید، همانطور که شما در حال حاضر و یا دیگر به زبان انگلیسی و یا در روسیه طلسم، از مترجم ما برای عددی استفاده کنید. به منظور انتقال به وارد کردن، شماره دلخواه را در قالب اعداد وارد کنید و برنامه نوشتن آن را محاسبه کند.

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

عدد:

همانطور که می بینید بالا، چندین گزینه برای نوشتن انگلیسی برای شماره ترجمه شده صادر می شود. با کمک آنها می توانید تفاوت بین انگلیسی آمریکایی (AME) و انگلیسی انگلیسی (BRE) را تعیین کنید. برای هر یک از آنها، ممکن است چندین گزینه نوشتن وجود داشته باشد، که یکی از آنها در متن استفاده می شود بستگی به چارچوب جمله دارد.

این برنامه به همان اندازه به راحتی با انتقال اعداد به متن، به همان اندازه مقابله می کند از زبان انگلیسیو برای روسی. کسانی که. اگر شما نیاز به ضبط یک عدد در کلمات روسی دارید، به سادگی آن را در فرمت عددی وارد کنید و روی دکمه "ترجمه" کلیک کنید.

تعیین

هنگامی که به روسی ترجمه می شود، مترجم تغییرات ممکن را با زایمان برای یک شماره داده شده تغییر می دهد که توسط پیکوگرام های زیر نشان داده شده است:
- چوب میله، - میله مرد، - میله میله.

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

این دکمه برای تغییر بین حالت "شماره در کلمات" و "مقدار در کلمات" استفاده می شود.

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

هنگام نمایش گزارش های مختلف، اغلب لازم است مقدار عددی را به یک رشته در کلمات تبدیل کنید. در 1C، آن را به سادگی حل شده است: برای این، عملکرد Nigalopropisus () ارائه شده است.

هنگام تشکیل یک عدد در کلمات، یک تعداد فرصت برای برداشتن دیگر وجود دارد و برای محاسبه این تعداد در زایمان مورد نیاز و مورد نیاز است. محاسبات شیء - این همان چیزی است که تعداد تغییرات را اندازه گیری می کند، به عنوان مثال، پول، کمربندها، واگن ها، تلویزیون ها و غیره

• بدون یک جسم محاسبه:
  • بیست و دو؛
  • سه صد هشتاد و چهار.
• با موضوع محاسبه:
  • سی و هشت باند؛
  • دوازده کشتی؛
  • دو خانه

مثال ها

برای شروع، ما نمونه هایی از تحول را برای پیدا کردن ویژگی های 1C ارائه می دهیم:

// ***** شماره خروجی: ***** Nigalopropisus (9876.54)؛ // نه هزار هشتصد هفتاد و شش 54 Nipperropisus (1234.56، "L \u003d ru_en؛ DP \u003d حقیقت" "یک کل، کل، کل، F، سویا، صد، صدها، W، 2"); // هزار و دوصد و سی و چهار کامل پنجاه و شش صد Nipperropisus (7432، "l \u003d ru_en؛ np \u003d دروغ"، "، 0")؛ // هفت هزار چهارصد و سی و دو // ***** خروجی پول: ***** Nipperropisus (9845.11، "l \u003d ru_en"،)؛ // نه هزار هشتصد و چهل و پنج روبل 11 kopecks Nipperropisus (2845.11، "l \u003d ru_en؛ DP \u003d حقیقت"، "روبل، روبل، روبل، M، Kopeck، Penny، Kopecks، G، 2"); // دو هزار و هشتصد و چهل و پنج روبل یازده کپک Nipperropisus (555.16، "l \u003d ru_en؛ DP \u003d حقیقت" "دلار، دلار، دلار، متر، سنت، سنت، سنت، متر، 2"); // پنجاه پنجاه و پنج دلار شانزده سنت Nipperropisus (453.23، "L \u003d ru_en؛ DP \u003d حقیقت" "یورو، یورو، یورو، متر، سنت، سنت، سنت، متر، 2"); // چهارصد و پنجاه و سه یورو بیست و سه سنت NipplePrisus (812.44، "l \u003d en_us؛ DP \u003d حقیقت" "دلار، دلار، سنت، سنت، 2"); // هشت صد دوازده دلار چهل و چهار سنت Nipperpisus (3945.76، "L \u003d en_us؛ DP \u003d حقیقت"، "یورو، یورو، سنت، سنت، 2")؛ سه Thouusand نه صد و چهل و پنج یورو هفتاد و شش سنت // ***** شما می توانید نه تنها واحد نقدی را تبدیل کنید: ***** Nipperropisus (535، "l \u003d ru_en"، "جعبه، جعبه، جعبه، W، G، 0"); // پنج صد سی و پنج جعبه Nipperropisus (342، "l \u003d ru_en"، "تلویزیون، تلویزیون، تلویزیون، متر، متر، 0"); // سه صد و چهل و دو تلویزیون

شرح کار با عملکرد

همانطور که ما متوجه شدیم، یک تابع برای به دست آوردن تعدادی از ثبت نام استفاده می شود.

Nipperropisus (< Число >, < دسته بندی کردن>, < parametentations>)

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

• شماره ارزش تبدیل شده است؛
• فرمت کردن - پارامترهای قالب بندی:
  • L - کد محلی سازی (به عنوان مثال، u_ru - روسی؛ en_us - انگلیسی، de_de - آلمانی). تنظیمات سیستم عامل پیش فرض استفاده می شود.
  • NP - نام محاسبات را به طور پیش فرض - حقیقت را نمایش می دهد.
  • ND - نام بخش اعشاری محاسبات، به طور پیش فرض - حقیقت را از بین ببرید.
  • DP - بخش کسری با کلمات / شماره، به طور پیش فرض - دروغ.
  • AI - اتحاد صفحه نمایش و. فقط برای محلی سازی زبان انگلیسی تجزیه و تحلیل شد. مقادیر احتمالی: "درک"، "استفاده".
• گزینه های پارامتری - انتقال از طریق کاما از پارامترهای شیء حساب محاسبه. فرمت بستگی به محلی سازی دارد.

برای زبان روسی، پارامترهای شیء حسابداری فرم "روبل، روبل، روبل، M، یک پنی، یک پنی، کپک، F، 2"، جایی که:

• روبل - تنها تعداد مورد اسمی؛
• روبل - تنها تعداد پرونده ژنتیکی؛
  روبل - تعدادی از پرونده ژنتیکی؛
  M - میله مرد (W - چوب چوب، C - میله میله)؛
  "Kopeck، یک پنی، کپک، W" - بخش کسری، شبیه به موضوع حسابداری (ممکن است وجود ندارد)؛
  "2" - تعداد بخش های تخلیه (ممکن است به طور پیش فرض 2 باشد).

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

در پیکربندی های ساخته شده در ماژول عمومی workercursamivatut یک تابع وجود دارد

formumumupropise(خلاصه، ارز، نمایش AmmubeSQueek \u003d اشتباه)

این تابع برای تبدیل مبلغ ارز در رشته در کلمات استفاده می شود.

سوالی دارید؟
در نظرات این مقاله بپرسید.

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

به عنوان یک قاعده، در تجارت، حسابداری و سایر زمینه هایی که محاسبات از آن ساخته شده است، مورد نیاز است پول نقد. معمولا لازم است مقدار را در روبل و یک پنی در کلمات، همانطور که در تصویر (مثال اول) ترجمه شود.

فرض کنید ما محاسبات را در جدول انجام می دهیم و مقدار نهایی را در روبل 1526.23 دریافت می کنیم

ما باید این رقم را در روبل ثبت کنیم و توصیه می شود که یک پنی را مشخص کنید. برای انجام این کار، یک تابع کاربر ویژه جهانی ایجاد کنید که به نظر می رسد این است.

Propis (مقدار؛ پول؛ لنگ؛ پرک)

پول - در اینجا نوع ارز را نشان می دهد، شما می توانید روبل، دلار و یورو را مشخص کنید ("RUB"، "USD"، "EUR") - ارز در نقل قول تعریف شده است.

lang یک زبان است که شما نیاز به برداشت مقدار، دو زبان در دسترس انگلیسی و روسی ("en"، "ru") - همچنین در نقل قول ها مشخص می شود

PREC - نمایش (1) یا نه نشان دادن (0) بخش کسری

بنابراین، شما می توانید مقدار در روبل، دلار و یا یورو در کلمات روسی یا حروف انگلیسی همراه با بخش کسری ثبت نام، و، بسته به تعداد، پایان درست شود قرار داده، به عنوان مثال، 2 روبل، 8 روبل، 1 روبل و غیره.

برای ایجاد یک تابع propis سفارشی، شما باید کد زیر را کپی کنید، سپس را فشار دهید ALT + F11برای باز کردن VBA، یک ماژول خالی جدید را از طریق منو اضافه کنید Insert - ماژولو قرار دادن کد کپی شده وجود دارد

تابع کاربر ماکرو در کلمات

تابع propis (مقدار به عنوان رشته، پول اختیاری به عنوان string \u003d "RUB"، اختیاری lang به عنوان string \u003d "ru"، اختیاری PREC به عنوان integer \u003d 1) DIM به عنوان مقدار دو برابر \u003d جایگزین (مقدار، "-"، application.international ( xlDecimalSeparator)) مقدار \u003d جایگزین (مقدار، "."، Application.International (xlDecimalSeparator)) مقدار \u003d جایگزین (مقدار، "،"، Application.International (xlDecimalSeparator)) مجموع \u003d WorksheetFunction.Round (CDbl (مقدار)، 2) پول \u003d Ucase (پول) لنگ \u003d UCASE (لنگ) مجموع \u003d INT (SUM) Fraq \u003d فرمت (گرد ((مجموع - مجموع) * 100)، "00") را انتخاب کنید مورد کلاس (کل، 1) + کلاس (کل، 2) * 10 مورد 1، 21، 31، 41، 51، 61، 71، 81، 91 w_rus_r \u003d "مالش" w_rus_d \u003d "دلار" w_rus_e \u003d "یورو" w_en_r \u003d "روبل" w_en_d \u003d "دلار" w_en_e \u003d " یورو "مورد 2، 3، 4، 22، 23، 24، 32، 33، 34، 42، 43، 44، 52، 53، 54، 62، 63، 64، 72، 73، 74، 82، 83، 84 ، 92، 93، 94 w_rus_r \u003d "قلوه سنگ" w_rus_d \u003d "دلار" w_rus_e \u003d "یورو" w_en_r \u003d "روبل" w_en_d \u003d "دلار" w_en_e \u003d "یورو" مورد w_rus_r دیگری \u003d "روبل "w_rus_d \u003d" dollars "w_rus_e \u003d" یورو "w_en_r \u003d" rubles "w_en_d \u003d" دلار "w_en_e \u003d" یورو "پایان را انتخاب کنید انتخاب مورد fraq مورد 1، 21، 31، 41، 51، 61، 71، 81، 91 f_rus_r \u003d "penny" f_rus_d \u003d "cent" f_rus_e \u003d "cent" f_rus_p \u003d "cottage" f_en_r \u003d "kopecks" f_en_d \u003d "cents" f_en_e \u003d "سنت" f_en_e \u003d "سنت" مورد 2، 3، 4، 22، 23، 24، 32، 33، 34، 42، 43، 44، 52، 53، 54، 44، 52، 53، 54، 62، 63، 64، 72، 73، 74، 82، 83، 84، 92، 93، 94 f_rus_r \u003d "پنی" f_RUS_D \u003d "سنت" f_rus_e \u003d "copecks" f_en_d \u003d "کوپک" f_en_d \u003d "سنت" f_en_e \u003d "سنت" مورد f_rus_r دیگری \u003d "کوپک" f_rus_d \u003d "سنت" f_rus_e \u003d "سنت" f_en_r \u003d "کوپک" f_en_d \u003d "پلیس" F_EN_E \u003d "سنت" END را انتخاب کنید اگر PREC \u003d 0 سپس Fraq \u003d "" F_RUS_R \u003d "" F_RUS_D \u003d "" F_RUS_E \u003d "" F_EN_R \u003d "" F_EN_D \u003d "" F_EN_E \u003d "" آخر اگر اگر لنگ \u003d "RU" را انتخاب کنید سپس مورد پول مورد "RUB" خارج \u003d ScriptRus (کل) & "" & w_rus_r & "" & fraq & "" & f_rus_r مورد "دلار" از \u003d ScriptRus (کل) & "" & w_rus_d & "" & fraq & "" & F_RUS_ D مورد "EUR" خارج \u003d Scriptrus (مجموع) & "" & W_RUS_E & "" & Fraq & "" & F_RUS_E پایان را انتخاب کنید اگر پایان اگر لنگ \u003d "EN" را انتخاب کنید سپس مورد پول مورد "RUB" خارج \u003d SCRIPTENG (کل) & "" & W_EN_R & "" & FRAQ & "" & F_EN_R مورد "دلار" OUT \u003d SCRIPTENG (کل) & "" & W_EN_D & "" & FRAQ & "" & F_EN_D مورد "EUR" خارج \u003d SCRIPTENG (کل) & "" & W_EN_E & "" & FRAQ & "" & F_EN_E پایان را انتخاب کنید اگر پایان Propis \u003d WorksheetFunction.trim (خروجی) END تابع خصوصی کلاس تابع (M، I) کلاس \u003d INT (INT (M - (10 ^ من) * INT (متر / (10 ^ من)) / 10 ^ (من - 1)) پایان تابع تابع خصوصی Scriptrus (N AS دو) به عنوان رشته تار Nums1، Nums2، Nums3، Nums4 به عنوان نوع Nums1 \u003d آرایه ( "،" یکی "،" دو "،" سه "،" چهار "،" پنج "،" شش "،" هفت "،" هشت "،" نه ") nums2 آرایه \u003d (" "،" ده "،" بیست "،" سی و نه "،" چهل "،" پنجاه "،" شصت "،" هفتاد "،" هشتاد "،" نود و نه ") nums3 \u003d آرایه (" "،" صدها "،" دوصد "،" سه صد "،" چهار صد "،" پانصد "،" شش صد "،" هفت صد "،" در هفتصد "، نه صد") nums4 \u003d آرایه (""، "یکی"، "دو"، "سه"، "چهار"، "پنج"، "شش"، "هفت"، "هشت"، "هشت"، "نه ") Nums5 آرایه \u003d (" ده "،" یازده "،" دوازده "،" سیزده "،" چهارده "،" پانزده "،" شانزده "،" هفده "،" هجده "،" نوزده ") اگر n \u003d 0 پس از آن scriptrus \u003d "صفر" پایان تابع خروج اگر ED \u003d (N، 1) دسامبر کلاس \u003d کلاس (N، 2) احمق \u003d کلاس (N، 3) TYS \u003d کلاس (N، 4) DEcTys \u003d کلاس (N، 5) SottyS \u003d کلاس (N، 6) میلیون \u003d کلاس (N، 7) decmil \u003d کلاس (N، 8) sotmil \u003d کلاس (N، 9) میلیارد \u003d کلاس (تعداد، 10) اگر میلیارد\u003e 0 را انتخاب کنید سپس مورد میلیارد مورد 1 mlrd_txt Nums1 \u003d (میلیارد) و "میلیارد" مورد 2، 3، 4 MLRD_TXT \u003d Nums1 (میلیارد) و میلیارد مورد 5 تا 20 MLRD_TXT \u003d Nums1 (میلیارد) و میلیاردها پایان را انتخاب کنید اگر پایان اگر (Sotmil + Decmil + MIL)\u003e 0 سپس sotmil_txt \u003d nums3 (sotmil) را انتخاب کنید مورد decmil مورد 1 mil_txt \u003d nums5 (mil) و "میلیون ها" GOTO www case 2 تا 9 decmil_txt \u003d nums2 (decmil) پایان انتخاب انتخاب مورد MIL مورد 1 mil_txt \u003d nu MS1 (MIL) و "میلیون" مورد 2، 3، 4 MIL_TXT \u003d Nums1 (MIL) و "میلیون" مورد 0، 5 تا 20 MIL_TXT \u003d Nums1 (MIL) و میلیون ها نفر پایان پایان را انتخاب کنید اگر وو: sottys_txt \u003d nums3 (Sottys) انتخاب مورد DecteS مورد 1 TYS_TXT \u003d Nums5 (TYS) و "هزاران" رفتن به سری Eee مورد 2 تا 9 DecteS_TXT \u003d Nums2 (DecteS) END انتخاب کنید انتخاب مورد TYS مورد 0 اگر Dectys\u003e 0 آنگاه Tys_TXT \u003d Nums4 (TYS) & "" مورد 1 TYS_TXT \u003d Nums4 (TYS) و "هزار" مورد 2، 3، 4 TYS_TXT \u003d Nums4 (TYS) و "هزاران" مورد 5 تا 9 TYS_TXT \u003d Nums4 (TYS) و "هزاران" END را انتخاب کنید اگر Decys \u003d 0 و TYS \u003d 0 و SOTTYS<> 0 آنگاه SOTTYS_TXT \u003d Sottys_txt و "هزاران" ثبت: Sot_txt \u003d Nums3 (SOT) را انتخاب کنید مورد دسامبر مورد 1 ED_TXT \u003d Nums5 (ED) رفتن به RRR مورد 2 تا 9 DEC_TXT \u003d Nums2 (دسامبر) پایان را انتخاب کنید ED_TXT \u003d Nums1 (ED) RRR: ScriptRus \u003d mlrd_txt و sotmil_txt و decmil_txt و mil_txt و sottys_txt و dectys_txt و tys_txt و sot_txt و dec_txt و ed_txt ScriptRus \u003d UCase (چپ (ScriptRus، 1)) و LCase (اواسط (ScriptRus، 2، لن (ScriptRus) - 1)) پایان تابع شخصی ScriptEng (شماره ByVal به عنوان دو) تار BigDenom به عنوان عبارات، دما به عنوان عبارات تار تعداد به عنوان عدد صحیح ReDim محل (9) به عنوان رشته محل (2) \u003d "هزار" محل (3) \u003d "میلیون" محل (4) \u003d "میلیارد" محل (5) \u003d "تریلیون" Stramount \u003d اصلاح (STR (INT (شماره)) COUNT \u003d 1 DO WHILE STRAMOUNT<> "" temp \u003d gethundreds (راست (stramount، 3)) اگر temp<> "" سپس Bigdenom \u003d Temp & Place (شمارش) و Big Denom اگر Len (Stramount)\u003e 3 سپس stramount \u003d سمت چپ (Stramount، Len (Stramount) - 3) else stramount \u003d "" پایان اگر count \u003d شمارش \u003d شمارش + 1 حلقه انتخاب مورد بزرگ DENOM مورد "" bigdenom \u003d "صفر" مورد "یکی" bigdenom \u003d "یک" مورد دیگری bigdenom \u003d bigdenom & "" پایان را انتخاب کنید Scripteng \u003d BigDenom پایان تابع شخصی GetHundReds تابع (Byval Mynumber) تار نتیجه به عنوان رشته اگر وال (MYNUMBER) \u003d 0 سپس MYNUMBER خروج تابع \u003d RIGHT ( "000" و MYNUMBER، 3) اگر MID (MYNUMBER، 1، 1)<> "0" سپس نتیجه \u003d GetDigit (Mid (MyNumber، 1، 1)) و "صدها" پایان اگر Middumer (Mynumber، 1، 1)<> "0" و (Mid (Midnumber، 2، 1)<> "0" یا میانه (Mynumber، 3، 1)<> "0") سپس نتیجه \u003d نتیجه و "و" پایان اگر Middumer (Mynumber، 2، 1)<> "0" سپس نتیجه \u003d نتیجه و Gettens (Midnumber، 2)) else نتیجه \u003d نتیجه و getDigit (Middumbit، 3)) پایان می یابد اگر gethundredds \u003d نتیجه عملکرد عملکرد عملکرد عملکرد خصوصی Gettens (Tenstext) Dim نتیجه به عنوان رشته نتیجه \u003d "" اگر Val (سمت چپ (Tenstext، 1)) \u003d 1 سپس مورد را انتخاب کنید Val (Tenstext) مورد 10: نتیجه \u003d "ده" مورد 11: نتیجه \u003d "یازده" مورد 12: نتیجه \u003d "دوازده" مورد 13: نتیجه \u003d نتیجه سیزده مورد 14: نتیجه \u003d "چهارده" مورد 15: نتیجه \u003d "پانزده" مورد 16: نتیجه \u003d "شانزده" مورد 17: نتیجه \u003d "هفده" مورد 18: نتیجه \u003d "هجده" مورد 19: نتیجه \u003d "نوزده" مورد ELE END END SELECT ELECE CASE VAL (سمت چپ (TENSTEXT، 1)) مورد 2: نتیجه \u003d "بیست" مورد 3: نتیجه \u003d "سی سی" مورد 4: نتیجه \u003d "چهل" مورد 5: نتیجه \u003d "پنجاه" مورد 6: نتیجه \u003d "شصت" مورد 7: نتیجه \u003d "هفتاد" مورد 8: نتیجه \u003d "هشتاد" مورد 9: نتیجه \u003d "ninety" مورد دیگر پایان انتخاب نتیجه \u003d نتیجه و getdigit _ (راست (tenstext، 1)) پایان اگر gettens \u003d نتیجه عملکرد تابع عملکرد عملکرد GetDigit (D IGIT) Case Val (Digit) Case 1: GetDigit \u003d "One" Case 2: GetDigit \u003d "دو" مورد 3: GetDigit \u003d "سه" مورد 4: GetDigit \u003d "چهار" مورد 5: getdigit \u003d "پنج" مورد 6 : getdigit \u003d "six" مورد 7: getdigit \u003d "seven" مورد 8: getdigit \u003d "هشت" مورد 9: getdigit \u003d "نه" مورد دیگر: getDigit \u003d "" پایان عملکرد پایان را انتخاب کنید

بنابراین، تابع ایجاد شده است تا از آن استفاده شود، به عنوان مثال، سلول Propis را با استدلال های لازم وارد کنید، مثلا اگر ما نیاز به ثبت نام مقدار در کلمات در روبل با پنی و در روسیه، فرمول به نظر می رسد مانند این.

Propis (B2؛ "مالش"؛ "ru"؛ 1)

اعداد در کلمات با پنی یا حروف کوچک حروف در اکسل

در اینجا کد VBA برای عملکرد کاربر است. مقدار را در کلمات با kopecks و انتخاب اولین عنوان یا حروف کوچک نشان می دهد

تابع Rubpearius (ع دوگانه، اختیاری UF_Kopek شده و مقدار، _ اختیاری Copprope شده و مقدار، اختیاری شروع به عنوان بولی \u003d TRUE) به عنوان رشته "تابع برای نوشتن مقدار را در کلمات DIM ED، DES، SOT، ده، RAZR، دسامبر تار من به عنوان عدد صحیح، STR AS STRING، S STRING DIM INTPART AS STRING، FRAPART AS STRING DIM MLNEND، TSCEND، RAZREND، RUB، COP دسامبر \u003d آرایه ( ""، "یک"، "دو"، "سه"، "چهار "،" پنج "،" شش "،" هفت "،" هشت "،" نه ") ED \u003d آرایه ("، "یک"، "دو"، "سه"، "چهار"، "پنج"، "شش "،" هفت "،" هشت "،" نه ") ده \u003d آرایه (" ده "،" یازده "،" دوازده "،" سیزده "،" چهارده "،" پانزده "،" شانزده "،" هفده "، "هجده"، "نوزده") پردازنده آرایه \u003d ( ""، ""، "بیست"، "سی"، "چهل"، "پنجاه"، "شصت"، "هفتاد"، "هشتاد"، "نود") SOT \u003d آرایه (""، "صد"، "دوصد"، "سهصد"، "چهارصد"، "پنجصد"، "ششصد"، "هفتصد"، "هشتصد"، "نه صد" ") razr \u003d آرایه (" "،" هزار "،" میلیون، "" میلیارد ") mlnend \u003d آرایه (" S "،" "،" A "،" A "،" A "،" S "،" S " "،" S "،" S "،" S ") Tscend \u003d آرایه (" "،" A "،" و "،" و "،"، "،"، "،"، "،"، "،"، "،"، "،"، "،"، "،" ") Razrend \u003d آرایه (Mlnend، Mlnend، Tscend،" ") RUB \u003d آرایه (" روبل "،" روبل "،" قلوه سنگ "،" قلوه سنگ "،" قلوه سنگ "،" روبل "،" روبل "،" روبل " ، "روبل"، "روبل") COP \u003d آرایه ( "کوپک"، "کوپک"، "کوپک"، "کوپک"، "کوپک"، "کوپک"، "کوپک"، "کوپک"، "کوپک"، " kopecks ") اگر مجموع\u003e \u003d 1000000000000 # یا مجموع< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >\u003d 1 سپس intpart \u003d سمت چپ $ (فرمت (مجموع، "000000000000.00")، 12) برای I \u003d 0 تا 3 S \u003d MID $ (INTPART، I * 3 + 1، 3) اگر S<> "000" سپس STR \u003d خ و SOT (CINT (چپ $ (بازدید کنندگان، 1))) اگر اواسط $ (بازدید کنندگان، 2، 1) \u003d "1" سپس STR \u003d خ و ده (CINT ($ راست (بازدید کنندگان، 1 )) elset str \u003d str & des (cint (متوسط \u200b\u200b$ (S، 2، 2، 1))) و IIF (I \u003d 2، DEC (Cint (right $ (s، 1)))، ed (cint (cint) (S، 1)))) پایان دادن به خطا در ادامه Resume بعدی Str \u003d STR & IIF (Mid $ (S، 2، 1) \u003d "1"، Razr (3 - I) & Razrend (I) (0)، _ RAZR (3 - I) & Razrend (I) (CINT (CINT (RIGHT $ (S، 1)))) در خطا 0 پایان اگر بعدی I Str \u003d STR & IIF (MID $ (S، 2، 1) \u003d "1 "، مالش (0)، مالش (CINT ($ راست (بازدید کنندگان، 1)))) اگر پایان RubPropis \u003d خ" "" "" "" "" "" "" "" "" "اگر Bez_kopeek \u003d غلط سپس frPart \u003d $ راست (فرمت (مجموع، 0.00 ")، 2) اگر fRPart \u003d" 00 "سپس frpart \u003d" "دیگری اگر coppropsype سپس fRPART \u003d IIF (چپ $ (fRPart، 1) \u003d" 1 "، ده (CINT (راست $ (FRPART، 1))) و پلیس (0)، _ DES (CINT (چپ $ (FRPart، 1))) و دسامبر (CINT ($ راست (FRPart، 1)) و COP (CINT (RIGHT $ (frPart )، 1))) دیگری frPart \u003d IIF (چپ $ (frPart، 1) \u003d "1"، frPart & "" & پلیس (0)، frPart & "" & پلیس (CINT ($ راست (frPart، 1)) )) پایان دادن اگر پایان دادن به rubpropenei \u003d str & "" و frpart پایان اگر "" "" "" "" "" "" "" "" "" "Rubptarisa \u003d STR و FRART اگر ادم خوش ظاهر و در خط بعد از آن MID $ (Rubptarisa، 1، 1) \u003d UCase (MID $ (Rubptarisa، 1، 1))" اگر Startpropisnaya سپس Rubptropi \u003d UCASE (چپ، 1)) و MID (Rubptropii، 2) پایان تابع

• بدون kopecks (1)، با kopecks (0)
• Spear در کلمات (1)، شماره (0)
• شروع در کلمات (0)، عنوان (1)

این چگونگی استفاده از عملکرد است.

توجه داشته باشید

• این ویژگی با اعداد از 0 تا 99 999 999 کار خواهد کرد
• قبل از کپی کردن کد، تغییر طرح بندی صفحه کلید به روسی (برای کپی صحیح از متن روسی)
• کد VBA باید به تمام فایل های (کتاب اکسل)، که در آن شما می خواهید آن را به کار قرار داده
• پس از قرار دادن کد، شما باید پشتیبانی فایل XLSM Macros را ذخیره کنید (در اکسل، از سال 2007)
• این تابع می تواند به صورت دستی خرد شود یا اگر شما فراموش کرده اید که چگونه از طریق Wizard تابع (دکمه fx در رشته فرمول، رده کاربر)