Suma dalam kursif

Konten

Di bawah ini Anda akan menemukan fungsi siap pakai yang ditentukan pengguna di VBA yang menerjemahkan nomor apa pun dari 0 ke 9 ke dalam representasi tekstualnya, yaitu dalam jumlah dalam kata-kata. Sebelum digunakan, fungsi ini harus ditambahkan ke buku Anda. Untuk ini:

  1. tekan pintasan keyboard ALT + F11untuk membuka Editor Visual Basic
  2. tambahkan modul kosong baru melalui menu Sisipkan – Modul
  3. salin dan tempel teks fungsi ini di sana:
Fungsi SUM(n As Double) As String Dim Nums1, Nums2, Nums3, Nums4 As Variant Nums1 = Array("", "one", "two", "three", "four", "five", "six", "tujuh", "delapan", "sembilan") Nums2 = Array("", "sepuluh", "dua puluh", "tiga puluh", "empat puluh", "lima puluh", "enam puluh", "tujuh puluh", _ "delapan puluh ", "sembilan puluh") Nums3 = Array("", "seratus", "dua ratus", "tiga ratus", "empat ratus", "lima ratus", "enam ratus", "tujuh ratus", _ " delapan ratus", "sembilan ratus") Bilangan4 = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan" ") Bilangan5 = Array("sepuluh", "sebelas", "dua belas", "tiga belas", "empat belas", _ "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas") If n < = 0 Kemudian SUMWRITE = "nol" Keluar dari Fungsi Akhir Jika 'membagi angka menjadi digit menggunakan fungsi pembantu 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) 'periksa jutaan Pilih Kasus decmil Kasus 1 mil_txt = Angka5(mil ) & "jutaan" Buka www Kasus 2 Sampai 9 decmil_txt = Angka2(decmil) Pilih Akhir Kasus Pilih kasus mil 1 mil_txt = Angka1(juta) & "jutaan" Kasus 2, 3, 4 mil_txt = Angka1(jutaan) & "juta" Kasus 5 Sampai 20 mil_txt = Nums1(mil) & "jutaan" Pilih Akhir www: sottys_txt = Angka3(sottys) 'periksa ribuan Pilih Kasus dectys Kasus 1 tys_txt = Angka5(tys) & "ribuan" GoTo eee Kasus 2 Sampai 9 dectys_txt = Nums2(dectys) End Pilih Select Case tys Case 0 If dectys > 0 Kemudian tys_txt = Nums4(tys) & "thousands " Case 1 tys_txt = Nums4(tys) & "thousand " Case 2, 3, 4 tys_txt = Nums4(tys) & "thousands" Kasus 5 Sampai 9 tys_txt = Nums4(tys) & "thousands" End Select If dectys = 0 And tys = 0 Dan sottys <> 0 Maka sottys_txt = sottys_txt & "thousands" eee: sot_txt = Nums3(sot) ' periksa puluhan Select Case dec Case 1 ed_txt = Nums5(ed) GoTo rrr Case 2 To 9 dec_txt = Nums2(dec) End Select ed_txt = Nums1 (ed) rrr: 'bentuk baris terakhir dengan SUM IN SPEECH = decmil_txt & mil_txt & sottys_txt & dectys_txt & tys_txt & sot_txt & dec_txt & ed_txt End Function ' fungsi pembantu untuk mengekstrak dari jumlah digit Private Function Class(M, I) Class = Int(Int(M - (10 ^ I) * Int(M / ( 10 ^ I))) / 10 ^ (I - 1)) Fungsi Akhir

Simpan file (jika Anda memiliki Excel 2007 atau 2010, maka jenis file harus diaktifkan makro, yaitu format xlsm!) dan kembali ke Excel. Sekarang Anda dapat menyisipkan fungsi yang dibuat ke dalam sel mana pun dari lembar kerja dengan cara biasa – melalui wizard fungsi (tombol fx di bilah rumus, kategori Ditetapkan pengguna) atau cukup dengan mengetiknya di sel secara manual dan menentukan sel dengan jumlah sebagai argumen:

Jika Anda perlu menambahkan uang ke teks yang diterima, maka Anda dapat menggunakan konstruksi yang sedikit lebih rumit:

 u3d SUM IN WRITE (A3) & ” gosok. “&TEXT((A3-INTEGER(A100))*00;”XNUMX″)&”polisi.” 

u3d SUM IN WRITE (A3) & ” gosok. “&TEXT((A3-INT(A100))*00;”XNUMX″)&”polisi.”

Kemudian, misalnya, untuk angka 35,15, hasil fungsi akan terlihat seperti “tiga puluh lima rubel. 15 kop.”

 

  • A more powerful version of the function with rubles and kopecks in / English from the PLEX add-on
  • Apa itu makro, di mana memasukkan kode makro, bagaimana menggunakannya

 

Tinggalkan Balasan