Сума үсгийн үсэг

Агуулга

Доор та VBA-д ямар ч тоог орчуулдаг хэрэглэгчийн тодорхойлсон бэлэн функцийг олох болно 0 нь 9 нь түүний текстийн дүрслэлд, өөрөөр хэлбэл үгээр илэрхийлсэн хэмжээгээр. Хэрэглэхийн өмнө энэ функцийг таны номонд нэмэх шаардлагатай. Үүний тулд:

  1. гарын товчлолыг дарна уу ALT + F11Visual Basic редакторыг нээх
  2. цэсээр дамжуулан шинэ хоосон модуль нэмнэ Оруулах - Модуль
  3. Энэ функцийн текстийг хуулж буулгана уу:
Функц SUM(n давхар) Мөр болгон бүдэг Тоо1, Тоо2, Тоо3, Тоо4 Хувилбар Тоонууд1 = Массив("", "нэг", "хоёр", "гурав", "дөрөв", "тав", "зургаан", "долоон", "найм", "есөн") Тоонууд2 = Массив("", "арав", "хорин", "гуч", "дөч", "тавин", "жар", "далан", _ "наян" ", "ерэн") Тоо3 = Массив("", "нэг зуун", "хоёр зуу", "гурван зуун", "дөрвөн зуун", "таван зуу", "зургаан зуу", "долоон зуун", _ " найман зуун", "есөн зуун") Тоо4 = Массив("", "нэг", "хоёр", "гурав", "дөрөв", "тав", "зургаа", "долоон", "найм", "есөн" ") Тоонууд5 = Массив("арван " , "арван нэгэн", "арван хоёр", "арван гурав", "арван дөрөв", _ "арван тав", "арван зургаа", "арван долоон", "арван найм", "арван есөн") Хэрэв n < = 0 Дараа нь SUMWRITE = "тэг" Гарах функц Төгсгөл Хэрэв 'туслах функцийг ашиглан тоог оронтой тоонд хуваавал Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Анги (n, 4) dectys = Class(n , 5) sottys = Class(n, 6) mil = Class(n, 7) decmil= Class(n, 8) 'сая шалгах Тохиолдол 1 decmil Сонгох Тохиолдол 5 mil_txt = Тоо2(милл) ) & "сая" GoTo www Тохиолдол 9-оос 2 decmil_txt = Тоонууд1(decmil) Төгсгөл Сонгох Тохиолдолд mil. Тохиолдол 1 mil_txt = Тоон тоо2(милл) & "сая" Тохиолдол 3, 4, 1 mil_txt = Тоо5(милл) & "сая" Тохиолдол 20-аас 1 mil_txt = Тоо3(мил) & "сая" Төгсгөл www: sottys_txt = Nums1(sottys) ' мянга сонгох Тохиолдол 5 dectys Тохиолдол 2 tys_txt = Тоо9(tys) & "мянган" руу очих Тохиолдол 2-оос 0 dectys_txt = Nums0(dectys) Төгсгөл Сонгох Тохиолдол tys Тохиолдол 4 бол dectys > 1 Дараа нь tys_txt = Тоо4(tys) & "мянган" Тохиолдол 2 tys_txt = Тоо3(tys) & "мянган" Тохиолдол 4, 4, 5 tys_txt = Тохиолдол9(tys) & "мянган" Тохиолдол 4-аас 0 хүртэл tys_txt = Nums0(tys) & "thousands" Төгсгөл Сонгох Хэрэв dectys = 0 ба tys = 3 Мөн sottys <> 1 Дараа нь sottys_txt = sottys_txt & "мянган" eee: sot_txt = Nums5(сот)' аравыг шалгах Тохиолдол 2-ийг сонгох ed_txt = Тоо9(ed) GoTo rrr Тохиолдол 2-оос 1 хүртэл dec_txt = Тоо10(dec) Төгсгөл Сонгох ed_txt = Тоо10 (ed) rrr: 'SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Төгсгөлийн функц ' туслах функц нь цифрүүдийн тооноос гаргаж авах Хувийн функц Анги(M, I) Ангилал = Int(Int(M - (10 ^ I)) * Int(M / ( 1 ^ I))) / XNUMX ^ (I - XNUMX)) Төгсгөлийн функц

Файлыг хадгалаад (хэрэв танд Excel 2007 эсвэл 2010 байгаа бол файлын төрөл нь макро идэвхжсэн байх ёстой, өөрөөр хэлбэл xlsm форматтай байх ёстой!) Excel рүү буцна уу. Одоо та үүсгэсэн функцийг ердийн аргаар ажлын хуудасны дурын нүдэнд оруулах боломжтой - функцийн мастер (товчлуур) fx томъёоны мөрөнд, ангилалд Хэрэглэгчийн тодорхойлсон) эсвэл зүгээр л нүдэнд гараар бичиж, аргумент болгон дүнгээр нүдийг зааж өгөх замаар:

Хэрэв та хүлээн авсан текстэд пенни нэмэх шаардлагатай бол арай илүү төвөгтэй бүтцийг ашиглаж болно.

 u3d НИЙТЛЭЛИЙГ БИЧИХ (A3) & ” урэх. “&TEXT((A3-БҮХЭЛ(A100))*00;”XNUMX″)&”cop.” 

u3d НИЙТЛЭЛИЙГ БИЧИХ (A3) & ” урэх. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”цагдаа.”

Дараа нь, жишээлбэл, 35,15 дугаарын хувьд функцийн үр дүн "гучин таван рубль" шиг харагдах болно. 15 коп."

 

  • PLEX нэмэлтээс англи хэл дээрх рубль, копейк бүхий функцын илүү хүчирхэг хувилбар
  • Макро гэж юу вэ, макро кодыг хаана оруулах, хэрхэн ашиглах талаар

 

хариу үлдээх