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

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

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

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

مثال ها

برای شروع، ما مثال هایی از تبدیل می آوریم تا قابلیت های 1C را دریابیم:

// ***** اعداد خروجی: *****عدد در کلمات (9876.54 ); // نه هزار و هشتصد و هفتاد و شش 54شماره در کلمات (1234.56، "L=ru_RU;DP=TRUE"، "کل، کل، کل، f، صدم، صدم، صدم، f، 2"); // هزار و دویست و سی و چهار امتیاز پنجاه و شش صدمعدد در کلمات (7432 , "L=ru_RU; NR=False" , ",0" ); // هفت هزار و چهارصد و سی و دو // ***** غیر نقدی: *****شماره در کلمات (9845.11 , "L=ru_RU" , ); // نه هزار و هشتصد و چهل و پنج روبل 11 کوپکشماره در کلمات (2845.11، "L=ru_RU;DP=True"، "روبل، روبل، روبل، متر، پنی، پنی، پنی، f، 2"); // دو هزار و هشتصد و چهل و پنج روبل یازده کوپکعدد در کلمات (555.16، "L=ru_RU;DP=True"، "دلار، دلار، دلار، متر، سنت، سنت، سنت، متر، 2"); // پانصد و پنجاه و پنج دلار شانزده سنتعدد در کلمات (453.23، "L=ru_RU;DP=True"، "یورو، یورو، یورو، متر، سنت، سنت، سنت، متر، 2"); // چهارصد و پنجاه و سه یورو بیست و سه سنت NumberWords (812.44، "L=en_US;DP=True"، "دلار، دلار، سنت، سنت، 2"); // هشتصد و دوازده دلار چهل و چهار سنت NumberWords(3945.76، "L=en_US;DP=True"، "یورو، یورو، سنت، سنت، 2"); // سه هزار و نهصد و چهل و پنج یورو هفتاد و شش سنت // ***** شما می توانید نه تنها واحدهای پولی را تبدیل کنید: *****شماره در کلمات (535, "L=ru_RU" , "جعبه، جعبه، جعبه، f، f، 0"); // پانصد و سی و پنج جعبهشماره در کلمات (342, "L=ru_RU" , "تلویزیون، تلویزیون، تلویزیون، m، m، 0"); // سیصد و چهل و دو تلویزیون

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

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

عدد در کلمات (< Число >, < FormatString>, < ParametersItemCalculus>)

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

  • عدد مقداری است که باید تبدیل شود.
  • FormatString - گزینه های قالب بندی:
    • L - کد محلی سازی (به عنوان مثال، u_RU - روسی؛ en_US - انگلیسی، de_DE - آلمانی). تنظیمات سیستم عامل به طور پیش فرض استفاده می شود.
    • NP - نمایش نام موضوع حساب دیفرانسیل و انتگرال، به طور پیش فرض - درست است.
    • ND - نمایش نام قسمت های اعشاری موضوع محاسبه، به طور پیش فرض - True.
    • DP - نمایش بخش کسری در کلمات/عدد، به طور پیش فرض - نادرست.
    • هوش مصنوعی - خروجی اتحادیه و. فقط برای بومی سازی انگلیسی آنالیز شده است. مقادیر ممکن: "استفاده نکنید"، "استفاده".
  • CalculusItemParameters - شمارش پارامترهای شی حساب دیفرانسیل و انتگرال با کاما جدا شده است. قالب بستگی به محلی سازی دارد.

برای زبان روسی، پارامترهای موضوع محاسبه به شکل "روبل، روبل، روبل، m، kopeck، kopeck، kopeck، f، 2" است، که در آن:

  • روبل - اسمی مفرد؛
  • روبل - مفرد جنسی؛
    روبل - جمع;
    m - مذکر (g - مونث، s - خنثی)؛
    "پنی، پنی، پنی، w" - یک قسمت کسری، شبیه به موضوع محاسبه (ممکن است وجود نداشته باشد).
    "2" - تعداد ارقام بخش کسری (ممکن است وجود نداشته باشد، پیش فرض 2 است).

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

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

GenerateAmountWords(شماره، واحد پول، WithdrawAmountWithoutKopecks= نادرست)

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

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

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

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

عدد:

همانطور که در بالا می بینید، چندین املای انگلیسی برای شماره ترجمه شده آورده شده است. با کمک آنها می توانید تفاوت بین انگلیسی آمریکایی (AmE) و انگلیسی بریتانیایی (BrE) را تشخیص دهید. برای هر یک از آنها به نوبه خود چندین گزینه املایی نیز می توان ارائه داد که استفاده از کدام یک در متن بستگی به بافت جمله دارد.

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

نشانه گذاری

هنگام ترجمه به روسی، مترجم تغییرات احتمالی جنسیت را در نظر می گیرد شماره داده شده، که با نمادهای زیر نشان داده می شوند:
- مؤنث، - مذکر، - خنثی.

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

این دکمه برای جابه‌جایی بین حالت‌های «تعداد در کلمات» و «مقدار در کلمات» استفاده می‌شود.

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

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

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

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

ما باید این رقم را به روبل بنویسیم و مطلوب است که پنی را نیز نشان دهیم. برای انجام این کار، ما یک تابع جهانی ویژه تعریف شده توسط کاربر ایجاد خواهیم کرد که شبیه به این خواهد بود

Propis (مبلغ ; پول ; زبان ; Prec )

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

lang - این زبانی است که باید مبلغ را در آن برداشت کنید، دو زبان انگلیسی و روسی ("EN"، "RU") در دسترس هستند - ما همچنین در نقل قول ها نشان می دهیم

قبل از نمایش (1) یا نشان ندادن (0) قسمت کسری

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

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

ماکرو تابع سفارشی برای جمع در کلمات

تابع Propis(مبلغ به عنوان رشته، پول اختیاری به عنوان رشته = "RUB"، زبان اختیاری به عنوان رشته = "RU"، Prec اختیاری به عنوان عدد صحیح = 1) کم رنگ کامل به عنوان دو برابر = جایگزین (مبلغ، "-"، Application.International( xlDecimalSeparator)) Amount = Replace(Amount, ".", Application.International(xlDecimalSeparator)) Amount = Replace(Amount, ",", Application.International(xlDecimalSeparator)) Sum = WorksheetFunction.Round(CDbl2(Amount), Money = UCase(Money) lang = UCase(lang) whole = Int(Sum) fraq = Format(Round((Sum - whole) * 100)، "00") انتخاب Case Class(whole, 1) + Class (whole, 2) * 10 مورد 1، 21، 31، 41، 51، 61، 71، 81، 91 w_rus_r = "روبل" w_rus_d = "دلار" w_rus_e = "یورو" w_en_r = "روبل" w_en_d = "دلار" w_en یورو" مورد 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 = "روبل" w_rus_d = "دلار" w_rus_e = "یورو" w_en_r = "روبل" w_en_d = "دلار" w_en_e = "یورو" مورد دیگر w_rus_r = "روبل" " w_rus_d = "دلار" w_rus_e = "یورو" w_en_r = "روبل" w_en_d = "دلار" w_en_e = "یورو" پایان انتخاب مورد fraq مورد 1، 21، 31، 41، 51، 61، 71، 81_rus، 91 = "penny" f_rus_d = "سنت" f_rus_e = "سنت" f_rus_p = "صدمین" f_en_r = "کوپک" f_en_d = "سنت" f_en_e = "سنت" f_en_e = "سنت" مورد 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 "سنت" f_rus_e " f_en_r = "kopecks" f_en_d = "سنت" f_en_e = "سنت" مورد دیگر f_rus_r = "kopeks" f_rus_d = "سنت" f_rus_e = "سنت" f_en_r = "کوپک" f_en_d = "سنت" f_en_e انتخاب = "سنت" اگر Prec = 0 سپس fraq = "" f_rus_r = "" f_rus_d = "" f_rus_e = "" f_en_r = "" f_en_d = "" f_en_e = "" پایان If lang = "RU" سپس Case Money Case "RUB" Out = ScriptRus(whole) & " " & w_rus_r & " " & fraq & " " & f_rus_r Case "USD" Out = ScriptRus(whole) & " " & w_rus_d & " " & fraq & " " & f_rus_ d Case "EUR" Out = ScriptRus(whole) & " " & w_rus_e & " " & fraq & " " & f_rus_e End End Select End If lang = "EN" سپس Case Money Case "RUB" Out = ScriptEng(whole) & " " & w_en_r & " " & fraq & " " & f_en_r Case "USD" Out = ScriptEng(whole) & " " " & w_en_d & " " & fraq & " " & f_en_d Case "EUR" Out = ScriptEng (کل) & " " & w_en_e & " " & fraq & " " & f_en_e End Select End If Propis = WorksheetFunction.Trim(Out) End Function عملکرد خصوصی کلاس(m, i) Class = Int(Int(m - (10 ^ i) * Int(m / (10 ^ i))) / 10 ^ (i - 1)) End Function تابع خصوصی ScriptRus(n به عنوان Double) به عنوان رشته کم نور Nums1, Nums2, Nums3, Nums4 به عنوان متغیر Nums1 = آرایه(""، " یک، «دو»، «سه»، «چهار»، «پنج»، «شش»، «هفت»، «هشت»، «نه») Nums2 = آرایه (»، «ده»، «بیست»، "سی"، "چهل"، "پنجاه"، "شصت"، "هفتاد"، "هشتاد"، "نود") Nums3 = آرایه(""، "صد"، "دویست"، "سیصد"، «چهارصد»، «پانصد»، «ششصد»، «هفتصد»، «در هفتصد»، «نهصد») Nums4 = آرایه(»، «یک»، «دو»، «سه»، «چهار»، «پنج»، «شش»، «هفت»، «هشت»، «نه» ") Nums5 = آرایه ("ده"، "یازده"، "دوازده"، "سیزده"، "چهارده"، "پانزده"، "شانزده"، "هفده"، "هجده"، "نوزده") اگر n = 0 سپس ScriptRus = "صفر" تابع خروج پایان اگر ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class(n, 4) dectys = Class(n, 5) sottys = Class(n, 6) mil = Class(n, 7) decmil = Class(n, 8) sotmil = Class(n, 9) mlrd = Class(n, 10) اگر mlrd > 0 سپس Case mlrd مورد 1 را انتخاب کنید mlrd_txt = Nums1(mlrd) & "billion" Case 2, 3, 4 mlrd_txt = Nums1(mlrd) & "billion" Case 5 تا 20 mlrd_txt = Nums1(mlrd) & "billion" End Select End If (sotmil + decmil + mil ) > 0 سپس sotmil_txt = Nums3(sotmil) انتخاب Case decmil Case 1 mil_txt = Nums5(mil) & "millions" برو به www Case 2 تا 9 decmil_txt = Nums2(decmil) پایان انتخاب Case mil Case 1 mil_txt = Nu ms1(mil) & "million" Case 2, 3, 4 mil_txt = Nums1(mil) & "million" Case 0, 5 تا 20 mil_txt = Nums1(mil) & "million" End Select End If www: sottys_txt = Nums3( sottys) انتخاب Case dectys Case 1 tys_txt = Nums5(tys) & "thousands" GoTo eee Case 2 به 9 dectys_txt = Nums2(dectys) پایان انتخاب انتخاب مورد tys Case 0 If dectys > 0 سپس tys_txt = Numstys4 " Case 1 tys_txt = Nums4(tys) & "thousand" Case 2, 3, 4 tys_txt = Nums4(tys) & "thousands" Case 5 تا 9 tys_txt = Nums4(tys) & "thousands" End Select If dectys = 0 و tys = 0 و sottys<>0 سپس sottys_txt = sottys_txt & "هزاران" eee: sot_txt = Nums3(sot) Case dec را انتخاب کنید مورد 1 ed_txt = Nums5(ed) برو به rrr مورد 2 تا 9 dec_txt = Nums2(dec) پایان انتخاب Nums:1txt ScriptRus = mlrd_txt & sotmil_txt & decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Function Private Function ScriptEngTempber As Ring(DoubleRingD) Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = "Trillion" strAmount = Trim(Str(Int(Number))) Count = 1 Do while strAmount<>"" Temp = GetHundreds(Right(strAmount, 3)) اگر Temp<>"" سپس BigDenom = Temp & Place(Count) & BigDenom If Len(strAmount) > 3 سپس strAmount = Left(strAmount, Len(strAmount) - 3) Else strAmount = "" End If Count = Count + 1 Loop Select Case BigDenom Case "" BigDenom = "Zero" Case "One" BigDenom = "One" Case Else BigDenom = BigDenom & " "End Select ScriptEng = BigDenom End Function Private Function GetHundreds(ByVal MyNumber) کم نور نتیجه به عنوان رشته اگر Val (MyNumber) = سپس از تابع MyNumber = Right ("000" & MyNumber، 3) If Mid (MyNumber, 1, 1) خارج شوید.<>"0" سپس نتیجه = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred" End If Mid(MyNumber, 1, 1)<>"0" و (MyNumber, 2, 1)<>"0" یا Mid (MyNumber, 3, 1)<>"0") سپس نتیجه = نتیجه و "و" پایان اگر Mid(MyNumber, 2, 1)<>"0" سپس نتیجه = نتیجه و GetTens(Mid(MyNumber, 2)) نتیجه دیگر = نتیجه و GetDigit(Mid(MyNumber, 3)) End If GetHundreds = نتیجه پایان تابع تابع خصوصی GetTens(TensText) نتیجه کم رنگ به عنوان نتیجه رشته = "" اگر Val(Left(TensText, 1)) = 1 سپس Case Val(TensText) مورد 10: نتیجه = "ده" مورد 11: نتیجه = "یازده" مورد 12: نتیجه = "دوازده" مورد 13: نتیجه = "سیزده" مورد 14: نتیجه = "چهارده" مورد 15: نتیجه = "پانزده" مورد 16: نتیجه = "شانزده" مورد 17: نتیجه = "هفده" مورد 18: نتیجه = "هجده" مورد 19: نتیجه = "نوزده" " " Case Else End Select Else Select Case Val(Left(TensText, 1)) Case 2: result = "Twenty" Case 3: result = "Thirty" Case 4: result = "40" Case 5: result = "Fifty" مورد 6: نتیجه = "شصت" مورد 7: نتیجه = "هفتاد" مورد 8: نتیجه = "هشتاد" مورد 9: نتیجه = "نود" مورد دیگر پایان انتخاب نتیجه = نتیجه و GetDigit _ (راست(TensText, 1)) End If GetTens = نتیجه پایان تابع تابع خصوصی GetDigit(D igit) Case Val(Digit) را انتخاب کنید مورد 1: GetDigit = "یک" مورد 2: GetDigit = "دو" مورد 3: GetDigit = "سه" مورد 4: GetDigit = "چهار" مورد 5: GetDigit = "پنج" مورد 6 : GetDigit = "شش" مورد 7: GetDigit = "هفت" مورد 8: GetDigit = "هشت" مورد 9: GetDigit = "نه" مورد دیگر: GetDigit = "" پایان عملکرد انتخاب پایان

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

Propis(B2;"RUB";"RU";1)

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

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

تابع RubWrite (مقدار به عنوان دو برابر، اختیاری بدون کوپک به عنوان بولی = نادرست، _ COP اختیاری به عنوان بولی = نادرست، اختیاری با حروف بزرگ به عنوان بولی = درست) به عنوان رشته "تابع برای نوشتن مجموع در کلمات Dim ed, des, sot, ten, razr, dec Dim i As Integer, str As String, s As String Dim intPart As String, frPart As String Dim mlnEnd, tscEnd, razrEnd, rub, cop dec = Array("", "one", "two", "three", " چهار "، "پنج"، "شش"، "هفت"، "هشت"، "نه") ed = آرایه(""، "یک"، "دو"، "سه"، "چهار"، "پنج"، "شش"، "هفت"، "هشت"، "نه") ده = آرایه ("ده"، "یازده"، "دوازده"، "سیزده"، "چهارده"، "پانزده"، "شانزده"، "هفده" "، "هجده"، "نوزده") des = آرایه(""، ""، "بیست"، "سی"، "چهل"، "پنجاه"، "شصت"، "هفتاد"، "هشتاد"، "نود" " ) sot = آرایه(""، "صد"، "دویست"، "سیصد"، "چهارصد"، "پانصد"، "ششصد"، "هفتصد"، "هشتصد"، " نهصد ") razr = آرایه(""، "هزار"، "میلیون"، "میلیارد") mlnEnd = آرایه("s"، ""، "a"، "a"، "a"، "s"، "s" "، "s"، "s"، "s") tscEnd = آرایه(" "، "a"، "و"، "و"، "و"، ""، ""، ""، ""، "، " ") razrEnd = آرایه(mlnEnd، mlnEnd، tscEnd، "") rub = آرایه("روبل"، "روبل"، "روبل"، "روبل،" روبل، "روبل"، "روبل"، "روبل" , "rubles", "rubles") cop = آرایه("پنی"، "پنی"، "پنی"، "پنی"، "پنی"، "پنی"، "پنی"، "پنی"، "پنی"، "پنی" کوپک") اگر مقدار >= 1000000000000# یا مقدار< 0 Then РубПропись = CVErr(xlErrValue): Exit Function "&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& If Round(Сумма, 2) >= 1 سپس intPart = Left$(Format(Sum, "000000000000.00")، 12) برای i = 0 تا 3 s = Mid$(intPart, i * 3 + 1, 3) اگر s<>"000" سپس str = str & sot(CInt(Left$(s, 1))) اگر Mid$(s, 2, 1) = "1" سپس str = str & ten(CInt(Right$(s, 1 ))) Else str = str & des(CInt(Mid$(s, 2, 1))) & IIf(i = 2, dec(CInt(Right$(s, 1))), ed(CInt(Right$ (s, 1)))) End If On Error Resume Next str = str & IIf(Mid$(s, 2, 1) = "1", razr(3 - i) & razrEnd(i)(0), _ razr(3 - i) & razrEnd(i)(CInt(Right$(s, 1)))) روی خطا GoTo 0 End If Next i str = str & IIf(Mid$(s, 2, 1) = "1 ", rub(0), rub(CInt(Right$(s, 1)))) End If RubProfile = str """"""""""""""""""""""""""""""""" اگر No_kopeks = نادرست سپس frPart = راست$(فرمت(مبلغ، "0.00")، 2) اگر frPart = "00" سپس frPart = "" اگر کپی نوشته شود سپس frPart = IIf(چپ$(frPart, 1) = "1"، ten(CInt(راست $(frPart, 1))) & cop(0), _ des(CInt(Left$(frPart, 1))) & dec(CInt(Right$(frPart, 1))) & cop(CInt(راست$ ( frPart، 1)))) Else frPart = IIf(Left$(frPart, 1) = "1"، frPart & " " & cop(0)، frPart & " " & cop(CInt(Right$(frPart, 1) ))) End If End If RubWriting = str & " " & frPart End If """""""""" """""""" "RubCapital = str & frPart If beginCapital then Mid$(RubCapital, 1, 1) = UCase(Mid$(RubCapital, 1, 1)) " اگر beginCapital سپس RubCapital = UCase(Left(RubCapital , 1)) و Mid(RubWriting, 2) End Function

  • بدون کوپک (1)، با کوپک (0)
  • پنی در کلمات (1)، عدد (0)
  • شروع با خط شکسته (0)، بزرگ (1)

در اینجا نحوه استفاده از تابع آورده شده است


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

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