Handap anjeun bakal manggihan hiji siap-dijieun fungsi-diartikeun pamaké dina VBA nu narjamahkeun angka naon ti 0 mun 9 kana répréséntasi tékstualna, nyaéta dina jumlah kecap. Saméméh dipaké, pungsi ieu kudu ditambahkeun kana buku Anjeun. Kanggo ieu:
- pencét potong kompas keyboard Alt + F11pikeun muka Editor Visual Basic
- tambahkeun modul kosong anyar via menu Selapkeun - Modul
- salin sareng témpél téks fungsi ieu di dinya:
Fungsi SUM(n Salaku Ganda) Salaku String Taram Nums1, Nums2, Nums3, Nums4 Salaku Varian Nums1 = Array("", "hiji", "dua", "tilu", "opat", "lima", "genep", "tujuh", "dalapan", "salapan") Nums2 = Array("", "sapuluh", "dua puluh", "tilu puluh", "opat puluh", "lima puluh", "genep puluh", "tujuh puluh", _ "dalapan puluh". ", "salapan puluh") Nums3 = Array("", "saratus", "dua ratus", "tilu ratus", "opat ratus", "lima ratus", "genep ratus", "tujuh ratus", _ " dalapan ratus", "salapan ratus") Nums4 = Array("", "hiji", "dua", "tilu", "opat", "lima", "genep", "tujuh", "dalapan", "salapan" ") Nums5 = Array("sapuluh " , "sabelas", "dua belas", "tilu belas", "opat belas", _ "lima belas", "genep belas", "tujuh belas", "dalapan belas", "salapan belas") Lamun n < = 0 Lajeng SUMWRITE = "nol" Kaluar Fungsi Tungtung Lamun 'ngabagi angka kana digit ngagunakeun fungsi helper Class ed = Class(n, 1) dec = Class(n, 2) sot = Class(n, 3) tys = Class (n, 4) dectys = Kelas(n, 5) sottys = Kelas(n, 6) mil = Kelas(n, 7) decmil= Kelas(n, 8) 'pariksa jutaan Pilih Case decmil Case 1 mil_txt = Nums5(mil ) & "jutaan " GoTo www Case 2 To 9 decmil_txt = Nums2(decmil) End Select Select Case mil Case 1 mil_txt = Nums1(mil) & "juta" Case 2, 3, 4 mil_txt = Nums1(mil) & "juta" Case 5 nepi ka 20 mil_txt = Nums1(mil) & "jutaan" Tungtung Pilih www: sottys_txt = Nums3(sottys) ' pariksa rébuan Pilih Case dectys Case 1 tys_txt = Nums5(tys) & "rebuan" GoTo eee Case 2 Nepi ka 9 dectys_txt = Nums2 (dectys) Tungtung Pilih Pilih Kasus tys Kasus 0 Lamun dectys > 0 Lajeng tys_txt = Nums4(tys) & "rebuan" Kasus 1 tys_txt = Nums4(tys) & "sarébu" Kasus 2, 3, 4 tys_txt = Nums4(tys) & "rébuan" Kasus 5 Ka 9 tys_txt = Nums4(tys) & "rebuan" Tungtung Pilih Lamun dectys = 0 Jeung tys = 0 Jeung sottys <> 0 Lajeng sottys_txt = sottys_txt & "rébuan" eee: sot_txt = Nums3 (sot) 'pariksa puluhan Pilih Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 Nepi ka 9 dec_txt = Nums2(dec) End Pilih ed_txt = Nums1 (ed) rrr: 'ngabentuk baris ahir kalawan SUM IN SPEECH = decmil_ txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt Tungtung Fu fungsi helper nction ' pikeun nimba tina jumlah digit Private Function Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / (10 ^ I))) / 10 ^ (I - 1)) Fungsi Tungtung Simpen file (upami anjeun gaduh Excel 2007 atanapi 2010, maka jinis file kedah diaktipkeun makro, nyaéta format xlsm!) sareng uih deui ka Excel. Ayeuna anjeun tiasa nyelapkeun fungsi anu diciptakeun kana sél mana waé dina lembar kerja ku cara biasa - ngalangkungan wizard fungsi (tombol). fx dina rumus bar, kategori Pangguna Ditetepkeun) atawa ngan saukur ku ngetikkeun dina sél sacara manual tur nangtukeun sél kalawan jumlah salaku argumen:
Upami anjeun kedah nambihan artos kana téks anu ditampi, anjeun tiasa nganggo konstruksi anu rada rumit:
u3d JUMLAH DINA TULIS (A3) & ” gosok. "&TEXT((A3-INTEGER(A100))*00;"XNUMX″)&"cop."
u3d JUMLAH DINA TULIS (A3) & ” gosok. "&TEXT((A3-INT(A100))*00;"XNUMX″)&"cop."
Lajeng, contona, pikeun angka 35,15, hasil tina fungsi bakal kasampak kawas "tilu puluh lima rubles. 15 kop.”
- Versi anu langkung kuat tina fungsi kalayan rubles sareng kopecks dina / Inggris tina tambihan PLEX
- Naon macros, dimana nyelapkeun kode makro, kumaha carana make eta