Дар зер шумо як функсияи омодаи корбарро дар VBA хоҳед ёфт, ки ҳар рақамро тарҷума мекунад аз 0 ба 9 ба ифодаи матнии он, яъне ба микдор дар калима. Пеш аз истифода, ин функсия бояд ба китоби шумо илова карда шавад. Барои ин:
- миёнабури клавиатураро пахш кунед ALT+F11Барои кушодани муҳаррири Visual Basic
- илова модули нави холӣ тавассути меню Ворид - Модул
- Матни ин функсияро дар он ҷо нусхабардорӣ кунед:
Функсияи SUM(n ҳамчун дучандон) ҳамчун сатри хира Ададҳо1, адад2, адад3, адад4 ҳамчун варианти адад1 = Массив("", "як", "ду", "се", "чор", "панҷ", "шаш", "ҳафт", "ҳашт", "нӯҳ") Nums2 = Массив("", "даҳ", "бист", "сӣ", "чил", "панҷоҳ", "шаст", "ҳафтод", _ "ҳаштод" ", "навад") Рақам3 = Массив("", "сад", "дусад", "сесад", "чорсад", "панҷсад", "шашсад", "ҳафтсад", _ " ҳаштсад", "нӯҳсад") Ададҳо4 = Массив("", "як", "ду", "се", "чор", "панҷ", "шаш", "ҳафт", "ҳашт", "нӯҳ" ") Ададҳо5 = Массив("даҳ " , "ёздаҳ", "дувоздаҳ", "сездаҳ", "чордаҳ", _ "понздаҳ", "шонздаҳ", "ҳабдаҳ", "ҳаждаҳ", "нӯҳдаҳ") Агар n < = 0 Пас SUMWRITE = "сифр" Баромади функсия Анҷоми Агар 'бо истифода аз функсияи ёрирасон ададро ба рақамҳо тақсим кунед Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Синф (n, 4) dectys = Синф(n, 5) соттис = Синф(n, 6) mil = Синф(n, 7) decmil= Синф(n, 8) 'миллионҳоро тафтиш кунед Парвандаи decmil Интихоб кунед Парвандаи 1 mil_txt = Nums5(mil). ) & "millions " GoTo www Парвандаи 2 То 9 decmil_txt = Nums2(decmil) End Интихоб Интихоб Интихоб Миқдори mil 1 mil_txt = Nums1(mil) & "million" Парвандаи 2, 3, 4 mil_txt = Nums1(mil) & "million" Парвандаи 5 то 20 mil_txt = Nums1(mil) & "millions" Анҷом Интихоб кунед www: sottys_txt = Nums3(sottys) ' тафтиш ҳазорҳо Интихоб Парвандаи dectys Парвандаи 1 tys_txt = Nums5(tys) & "ҳазорҳо" Гузаштан eee Парвандаи 2 то 9 dectys_txt = Nums2(dectys) End Интихоб Интихоб Интихоб tys Парвандаи 0 Агар dectys > 0 Пас tys_txt = Nums4(tys) & "ҳазорҳо" Парвандаи 1 tys_txt = Nums4(tys) & "ҳазор" Парвандаи 2, 3, 4 tys_txt = Nums4(tys) & "ҳазорҳо" Парвандаи 5 то 9 tys_txt = Nums4(tys) & "thousands" End Интихоб Агар dectys = 0 Ва tys = 0 Ва соттис <> 0 Сипас sottys_txt = sottys_txt & "ҳазорҳо" eee: sot_txt = Nums3(сот)' санҷед даҳҳо Миқдори дек Парвандаи 1-ро интихоб кунед ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(dec) End Интихоб кунед ed_txt = Nums1 (ed) rrr: 'хатти ниҳоиро бо SUM IN SPEECH = decmil_ txt & mil_txt ташкил кунед sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' Функсияи ёрирасон барои истихроҷ аз шумораи рақамҳо Синфи Функсияи хусусӣ Синфи(M, I) Синфи = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Функсияи хотимавӣ Файлро захира кунед (агар шумо Excel 2007 ё 2010 дошта бошед, пас навъи файл бояд бо макрофаъол, яъне формати xlsm бошад!) ва ба Excel баргардед. Акнун шумо метавонед функсияи сохташударо ба ягон ячейкаи варақи корӣ ба тариқи муқаррарӣ - тавассути устоди функсия (тугма) ворид кунед. fx дар сатри формула, категория Корбар муайян карда шудааст) ё танҳо тавассути ворид кардани он дар чашмак дастӣ ва нишон додани ячейка бо маблағи ҳамчун аргумент:
Агар ба шумо лозим аст, ки ба матни гирифташуда динор илова кунед, пас шумо метавонед як сохтори каме мураккабтарро истифода баред:
u3d СУМ ДАР НАВИСАНД (А3) & ” руб. “&МАТН((A3-INTEGER(A100))*00;”XNUMX″)&”коп.”
u3d СУМ ДАР НАВИСАНД (А3) & ” руб. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”коп.”
Он гоҳ, масалан, барои рақами 35,15, натиҷаи функсия мисли "сию панҷ рубл хоҳад буд. 15 коп».
- Варианти пурқуввати функсия бо рубл ва копейкҳо бо забони англисӣ аз иловаи PLEX
- Макросҳо чист, макрокоди макро дар куҷо ворид кардан лозим аст, чӣ тавр истифода бурдани онҳо