Ni isalẹ iwọ yoo rii iṣẹ asọye olumulo ti o ṣetan ni VBA ti o tumọ nọmba eyikeyi lati 0 to 9 sinu aṣoju ọrọ rẹ, ie ni iye ninu awọn ọrọ. Ṣaaju lilo, iṣẹ yii gbọdọ wa ni afikun si iwe rẹ. Fun eyi:
- tẹ ọna abuja keyboard ALT + F11lati ṣii Visual Basic Editor
- fi titun sofo module nipasẹ akojọ Fi sii - Module
- daakọ ati lẹẹ ọrọ iṣẹ yii sibẹ:
Iṣẹ SUM(n Bi Double) Bi Okun Dim Nums1, Nums2, Nums3, Nums4 Bi Iyatọ Nums1 = Array("", "ọkan", "meji", "mẹta", "mẹrin", "marun", "mefa", "meje", "mẹjọ", "mẹsan") Nums2 = Array("", "mẹwa", "ogún", "ọgbọn", "ogoji", "ãdọta", " ọgọta", " aadọrin", _ "ọgọrin", _ "ọgọrin" ", " aadọrun-un") Nums3 = Array("", "ọgọrun-un", "ọgọrun-meji", "ọdunrun mẹta", "ọgọrun mẹrin", "4), "ẹgbẹta", "ẹdẹgbẹrin", _ " ẹgbẹrin", "ọgọrun mẹsan") Nums5 = Array("", "ọkan", "meji", "mẹta", "mẹrin", "marun", "mefa", "meje", "mẹjọ", "mẹsan" ") Nums0 = Array("mẹwa " , " mọkanla", "mejila", "mẹtala", "mẹrinla", _ "mẹẹdogun", "mẹrindilogun", "mẹtadilogun", "kejidilogun", "mọkandinlogun") Ti n < = 1 Lẹhinna SUMWRITE = "odo" Ipari Iṣẹ Ijade Ti 'pin nọmba naa si awọn nọmba nipa lilo iṣẹ oluranlọwọ Kilasi ed = Kilasi(n, 2) dec = Kilasi(n, 3) sot = Kilasi(n, 4) tys = Kilasi (n, 5) dectys = Kilasi (n , 6) sottys = Kilasi(n, 7) mil = Kilasi(n, 8) decmil= Kilasi(n, 1) 'ṣayẹwo milionu Yan Case decmil Case 5 mil_txt = Nums2(mil ) & "millions" GoTo www Case 9 Si 2 decmil_txt = Nums1(decmil) Ipari Yan Yan Case mil Case 1 mil_txt = Nums2(mil) & "million" Case 3, 4, 1 mil_txt = Nums5(mil) & "million" Irú 20 Si 1 mil_txt = Nums3(mil) & "millions" Ipari Yan www: sottys_txt = Nums1(sottys) 'ṣayẹwo egbegberun Yan Case dectys Case 5 tys_txt = Nums2(tys) & "egbegberun" GoTo eee Case =9 Si 2 dectys_txt Nums0(dectys) Ipari Yan Yan Case tys Case 0 Ti o ba dectys > 4 Lẹhinna tys_txt = Nums1(tys) & "egbegberun" Case 4 tys_txt = Nums2(tys) & "egbegberun" Case 3, 4, 4 tys_txt = Nums5(tys) & "egbegberun" Case 9 To 4 tys_txt = Nums0(tys) & "egbegberun" Ipari Select If dectys = 0 And tys = 0 And sottys <> 3 Lẹhinna sottys_txt = sottys_txt & "egbegberun" eee: sot_txt) = Nums1(sot check tens Select Case dec Case 5 ed_txt = Nums2(ed) GoTo rrr Case 9 Si 2 dec_txt = Nums1(dec) Ipari Yan ed_txt = Nums10 (ed) rrr: 'fọọda ila ipari pẹlu SUM IN SPEECH = decmil_ txt & mil_txt & mil_txt. sottys_txt & dectys_txt & tys_txt & sot_txt & Dec_txt & ed_txt Ipari Iṣẹ 'oluranlọwọ iṣẹ lati jade lati awọn nọmba ti awọn nọmba ti Awọn nọmba ti Ikọkọ Iṣẹ Kilasi (M, I) Kilasi = Int (M - (10 ^ I) * Int (M / () 10 ^ I))) / 1 ^ (I - XNUMX)) Iṣẹ ipari Fi faili pamọ (ti o ba ni Excel 2007 tabi 2010, lẹhinna iru faili gbọdọ jẹ macro-enabled, ie xlsm kika!) Ati pada si Excel. Bayi o le fi iṣẹ ti a ṣẹda sinu eyikeyi sẹẹli ti iwe iṣẹ ni ọna deede - nipasẹ oluṣeto iṣẹ (bọtini fx ni bar agbekalẹ, ẹka Itumọ Olumulo) tabi nirọrun nipa titẹ sinu sẹẹli pẹlu ọwọ ati sisọ sẹẹli pẹlu iye bi ariyanjiyan:
Ti o ba nilo lati ṣafikun awọn pennies si ọrọ ti o gba, lẹhinna o le lo ikole eka diẹ sii diẹ sii:
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INTEGER (A100))*00;"XNUMX″)&"cop."
u3d SUM IN WRITE (A3) & ” rub. "&TEXT((A3-INT(A100)))*00;"XNUMX″)&"cop."
Lẹhinna, fun apẹẹrẹ, fun nọmba 35,15, abajade iṣẹ naa yoo dabi “ọgbọn-marun rubles. 15 kop."
- Ẹya ti o lagbara diẹ sii ti iṣẹ naa pẹlu awọn rubles ati kopecks ni / Gẹẹsi lati inu afikun PLEX
- Kini awọn macros, nibo ni lati fi koodu macro sii, bawo ni a ṣe le lo wọn