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

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

در حال حاضر، محدودیت مترجم محدودیت 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 جایگزینی (مقدار، "پول \u003d ucase (پول) lang \u003d ucase (lang) کل \u003d int (مجموع) 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، 43، 34، 52، 53، 54، 62، 53، 54، 62، 53، 54، 52 53، 54، 72، 73، 92، 93، 94 w_rus_r \u003d "rubble" w_rus_d \u003d "دلار" w_rus_e \u003d "euro" w_en_r \u003d "rubles" w_en_d \u003d "dollars" w_en_e \u003d "یورو" مورد دیگر w_rus_r \u003d "rubles "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 "penny" f_rus_d \u003d "cent" f_rus_e \u003d "copecks" f_en_d \u003d "kopecks" f_en_d \u003d "cents" f_en_e \u003d "cents" case else f_rus_r \u003d "kopecks" f_rus_d \u003d "سنت" f_en_r \u003d "cents" f_en_r \u003d "kopecks" f_en_d \u003d "cops" f_en_e \u003d "سنت" پایان را انتخاب کنید اگر prec \u003d 0 سپس fraq \u003d "f_rus_r \u003d" "f_rus_d \u003d" "f_en_r \u003d" "f_en_r \u003d" f_en_d \u003d "f_en_d \u003d" f_en_e \u003d "" پایان اگر اگر lang \u003d "ru" سپس موارد مورد پول "RUB" را انتخاب کنید "RUB" OUT \u003d SCRIPTRUS (کل) و "" & w_rus_r & "" & fraq & "" & f_rus_r مورد "USD" OUT \u003d SCRIPTRUS (کل) و "" و w_rus_d & "" & fraq & "" & f_rus_ D مورد "EUR" Out \u003d Scriptrus (کل) و "" & w_rus_e & "" & faq & "" & f_rus_e پایان پایان را انتخاب کنید اگر اگر lang \u003d "en" پس از آن را انتخاب کنید مورد پول مورد "RUB" Out \u003d Scripteng (کل) & "" & w_en_r & "" & fraq & "" & f_en_r مورد "USD" Out \u003d Scripteng (کل) و "" & w_en_d & "" & fraq & "" & f_en_d مورد "EUR" Out \u003d Scripteng (کل) & "" & f_en_e & "" & fraq & "" & f_en_e end پایان را انتخاب کنید اگر propis \u003d worksheetfunction.trim (خارج) عملکرد تابع عملکرد خصوصی (m، i) class \u003d int (int (m - (10 ^ i) * int (m / (10 ^ i)) / 10 ^ (i - 1)) تابع پایان عملکرد تابع Private Scriptrus (n به عنوان دو برابر) به عنوان String Dim Nums1، nums2، nums3، nums4 به عنوان نوع nums1 \u003d آرایه ("، یکی" "،" دو "،" سه "،" چهار "،" پنج "،" شش "،" هفت "،" هشت "،" نه ") nums2 \u003d آرایه (" "،" ده "،" بیست "،" سی و نه "،" چهل "،" پنجاه "،" شصت "،" هفتاد "،" هشتاد "،" نود و نه ") nums3 \u003d آرایه (" "،" صدها "،" دوصد "،" سه صد "،" چهار صد "،" پنجصد "،" ششصد "،" هفتصد "،" در هفتصد "، نه صد") nums4 \u003d آرایه (""، "یکی"، "دو"، "سه"، "چهار"، "پنج"، "شش"، "هفت"، "هشت"، "هشت"، "نه ") nums5 \u003d آرایه (" ده "،" یازده "،" دوازده "،" سیزده "،" چهارده "،" پانزده "،" شانزده "،" هفده "،" هجده "،" هفده "،" هجده "،" نوزده ") اگر n \u003d 0 سپس Scriptrus \u003d "صفر" خروجی تابع پایان اگر ed \u003d کلاس (n، 1) dec \u003d کلاس (n، 2) sot \u003d کلاس (n، 3) tys \u003d کلاس (n، 4) dectys \u003d کلاس (n، 5) sottys \u003d کلاس (n، 6) mil \u003d کلاس (n، 7) decmil \u003d کلاس (n، 8) sotmil \u003d کلاس (n، 9) mlrd \u003d کلاس (n، 10) اگر mlrd\u003e 0 سپس مورد MLRD مورد 1 را انتخاب کنید mlrd_txt \u003d nums1 (mlrd) و "میلیارد میلیارد" مورد 2، 3، 4 mlrd_txt \u003d nums1 (mlrd) و میلیارد مورد 5 تا 20 mlrd_txt \u003d nums1 (mlrd) و میلیاردها پایان پایان را انتخاب کنید اگر (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) و میلیون ها پایان پایان پایان را انتخاب کنید اگر www: sottys_txt \u003d nums3 (sottys) انتخاب مورد dectes مورد 1 tys_txt \u003d nums5 (tys) و "هزاران" Goto eee مورد 2 تا 9 dectes_txt \u003d nums2 (dectes) پایان انتخاب انتخاب مورد مورد 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) و "هزاران" پایان را انتخاب کنید اگر decys \u003d 0 و tys \u003d 0 و sottys<> 0 سپس sottys_txt \u003d sottys_txt و "هزاران" EEE: sot_txt \u003d nums3 (sot) مورد مورد دسامبر 1 ed_txt \u003d nums5 (ed) GOTO RRR مورد 2 تا 9 dec_txt \u003d nums2 (dec) end انتخاب 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 (MID (ScripTrus، 2، Len (Scriptrus) - 1)) پایان تابع عملکرد خصوصی scripteng (byval number به عنوان دو برابر) dim bigdenom به عنوان رشته، temp به عنوان رشته کم حجم به عنوان integer redim محل (9) به عنوان محل رشته (2) \u003d "هزار" محل (3) \u003d "میلیون" محل (4) \u003d "میلیارد" محل (5) \u003d "تریلیون" Stramount \u003d Trim (str (str (int (int (number)) تعداد \u003d 1 انجام در حالی که 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 حلقه انتخاب مورد Big Denom Case "BigDenOM \u003d" صفر "مورد" One "Bigdenom \u003d" One "مورد دیگر bigdenom \u003d bigdenom &" "پایان Scripteng \u003d عملکرد Bigdenom تابع عملکرد خصوصی GetHundreds (Byval MyNumber) Dim Cate به عنوان رشته اگر Val (Mynumber) \u003d 0 پس از خروج تابع mynumber \u003d راست ("000" و mynumber، 3) اگر وسط (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 به عنوان boolean \u003d false، _ copprope اختیاری به عنوان boolean \u003d false، اختیاری با شروع boolean \u003d true) به عنوان رشته "تابع برای نوشتن مقدار در کلمات dim، des، sot، ده، رازر، دسامبر DIM I به عنوان Integer، STR به عنوان String، S String Delfart به عنوان String، Frapart به عنوان String Dim Mlnend، Tscend، Razrend، RUB، COP DEC \u003d آرایه (""، "یکی"، "دو"، "سه"، "چهار" "،" پنج "،" شش "،" هفت "،" هشت "،" نه ") ED \u003d آرایه ("، "،"، "دو"، "سه"، "چهار"، "پنج"، "چهار"، "پنج" "،" هفت "،" هشت "،" نه ") ده \u003d آرایه (" ده "،" یازده "،" دوازده "،" سیزده "،" چهارده "،" پانزده "،" شانزده "،" هفده "، "هجده"، "نوزده") des \u003d آرایه (""، "،" بیست "،" سی سی "،" چهل "،" پنجاه "،" شصت "،" هفتاد "،" هشتاد "،" ninety ") SOT \u003d آرایه (""، "صد"، "دوصد"، "سهصد"، "چهارصد"، "پنجصد"، "ششصد"، "هفتصد"، "هشتصد"، "نه صد" ") razr \u003d آرایه (" "،" هزار "،" میلیون "،" میلیارد ") mlnend \u003d آرایه (" OV "،" "،" A "،" A "،" A "،" OV "،" "" ، "S"، "S"، "S") Tscend \u003d آرایه (""، "،"، "و"، "،"، "،"، "،"، "،"، "،"، "،"، "،"، "،"، "،"، "،"، "،") \u003d آرایه (Mlnend، Mlnend، Tscend، ") RUB \u003d آرایه (" روبل "،" روبل "،" RUBBLE "،" RUBBLE "،" RUBBLE "،" ROLES "،" ROLES "،" ROLES "،" روبل "،" روبل ") COP \u003d آرایه (" kopecks "،" kopeck "،" kopecks "،" kopecks "،" kopecks "،" kopecks "،" kopecks "،" kopecks "،" kopecks "،" kopecks ") اگر مجموع\u003e \u003d 100000000000000 # یا مجموع< 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 str & sot (cint (left $ (s، 1))) اگر اواسط دلار (S، 2، 1) \u003d "1" سپس str \u003d str & ten (cint (right $ (s، 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 "، RUB (0)، RUB (CINT (RIGHT $ (S، 1)))) پایان اگر RUBPLOVE \u003d STR" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " "" "" "" "" "" "" "" "" "" "" right $ (فرمت (مجموع، 0.00 ")، 2) اگر frpart \u003d" 00 "سپس frpart \u003d" "دیگر اگر coppropsype سپس frpart \u003d iif (سمت چپ $ (frpart ، 1) \u003d "1"، ده (CINT (RIGHT $ (FRPART، 1))) و COP (0)، _ des (Cint (left $ (frpart، 1))) و دسامبر (cint (cint) ، 1)) & COP (Cint (Right $ (FRPART، 1)))) else frpart \u003d iif (سمت چپ $ (frpart، 1) \u003d "1"، frpart & "" & cop (0)، fret & "" & COP (Cint (Cint $ (FRPART، 1))))) پایان اگر پایان اگر RUBPROPENEI \u003d STR & "" و FRPART پایان اگر "" "" "" "" "" "" "" "" "" "Rubptarisa \u003d STR & FRART اگر پر شده در خط و سپس در اواسط دلار (Rubptarisa، 1، 1) \u003d UCase (Mid $ (Rubptarisa، 1، 1))" اگر StartPropisnaya سپس rubptropi \u003d ucase (سمت چپ، 1)) و میانه (Rubptropii، 2) تابع پایان

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

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

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

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