Төменде кез келген санды аударатын VBA-да пайдаланушы анықтайтын дайын функцияны табасыз 0 бастап 9 үшін оның мәтіндік көрінісіне, яғни сөзбен сомаға. Қолданар алдында бұл функцияны кітабыңызға қосу керек. Бұл үшін:
- пернелер тіркесімін басыңыз ALT + F11Visual Basic редакторын ашу үшін
- мәзір арқылы жаңа бос модульді қосыңыз Кірістіру – модуль
- осы функцияның мәтінін көшіріп, сол жерге қойыңыз:
SUM(n қосарланған) функциясы Жол ретінде Dim Сандар1, Сандар2, Сандар3, Сандар4 Вариант ретінде Сандар1 = Массив("", "бір", "екі", "үш", "төрт", "бес", "алты", "жеті", "сегіз", "тоғыз") Сандар2 = Массив("", "он", "жиырма", "отыз", "қырық", "елу", "алпыс", "жетпіс", _ "сексен ", "тоқсан") Nums3 = Массив("", "жүз", "екі жүз", "үш жүз", "төрт жүз", "бес жүз", "алты жүз", "жеті жүз", _ " сегіз жүз», «тоғыз жүз») Nums4 = Массив("", "бір", "екі", "үш", "төрт", "бес", "алты", "жеті", "сегіз", "тоғыз" ") Сандар5 = Массив("он " , "он бір", "он екі", "он үш", "он төрт", _ "он бес", "он алты", "он жеті", "он сегіз", "он тоғыз") Егер n < = 0 Содан кейін SUMWRITE = "нөл" Шығу Функцияның соңы If 'көмекші функцияны пайдаланып санды сандарға бөліңіз Class 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) 'миллиондарды тексеру Декмил жағдайын таңдаңыз 1-ші жағдай mil_txt = Сандар5(милл). ) & "миллиондар " GoTo www 2-ден 9-ға дейін decmil_txt = Сандар2(декмиль) Аяқтау Таңдау Істі таңдаңыз mil 1 mil_txt = Сандар1(миллион) және "миллион" жағдай 2, 3, 4 mil_txt = Сандар 1(миллион) & "миллион" 5-тен 20-ға дейін mil_txt = Сандар1(миллион) & "миллиондар" Аяқтау www: sottys_txt = Nums3(sottys) ' тексеру мыңдарды таңдау Case dectys 1 жағдайды таңдау tys_txt = Nums5(tys) & "мыңдар" Өтіңіз eee 2-ден 9-ға дейін dectys_txt = Nums2(dectys) Аяқтау Таңдау Case tys Case 0 If dectys > 0 болса, онда tys_txt = Nums4(tys) & "thumands" Case 1 tys_txt = Nums4(tys) & "thousand" Case 2, 3, 4 tys_txt = Nums4(tys) & "mushands" 5-9-жағдай tys_txt = Nums4(tys) & "thousands" End Таңдау Егер dectys = 0 Және tys = 0 және sottys <> 0 Содан кейін sottys_txt = sottys_txt & "мыңдар" eee: sot_txt = Nums3(sot) 'ондықтарын белгілеу Регистрді таңдаңыз деc 1-жағдай ed_txt = Nums5(ed) GoTo rrr Case 2 - 9 dec_txt = Nums2(dec) End Таңдау ed_txt = Nums1 (ed) rrr: 'SUM IN SPEECH = decmil_ txt & mil_txt & sottystxt & sotty_txt арқылы соңғы жолды жасаңыз tys_txt & sot_txt & dec_txt & ed_txt End Fu nction ' көмекші функция цифрлар санынан шығаруға арналған Жеке функция Класс(M, I) Класс = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I -) 1)) Аяқтау функциясы Файлды сақтаңыз (егер сізде Excel 2007 немесе 2010 болса, файл түрі макроспен қосылған болуы керек, яғни xlsm пішімі!) және Excel бағдарламасына оралыңыз. Енді құрылған функцияны жұмыс парағының кез келген ұяшығына әдеттегідей – функция шебері (түйме) арқылы кірістіруге болады. fx формула жолында, санатта Пайдаланушы анықтаған) немесе жай оны ұяшыққа қолмен теру және ұяшықты аргумент ретінде көрсету арқылы:
Алынған мәтінге тиындар қосу қажет болса, сіз сәл күрделі құрылысты пайдалана аласыз:
u3d ЖАЗУ (A3) & ” руб. “&МӘТІН((A3-БҮТІН(A100))*00;”XNUMX″)&”көп.”
u3d ЖАЗУ (A3) & ” руб. “&МӘТІН((A3-INT(A100))*00;”XNUMX″)&”полиция.”
Сонда, мысалы, 35,15 саны үшін функцияның нәтижесі «отыз бес рубльге ұқсайды. 15 тиын».
- PLEX қондырмасынан ағылшын тіліндегі рубль мен копейктері бар функцияның неғұрлым қуатты нұсқасы
- Макростар дегеніміз не, макрокодты қайда енгізу керек, оларды қалай пайдалану керек