Empat langkah untuk mengajar anda cara menukar jumlah berangka RMB kepada huruf besar Cina dalam Excel

Artikel ini membawakan anda pengetahuan yang berkaitan tentang excel terutamanya meringkaskan kaedah menukar jumlah berangka RMB kepada huruf besar Cina Mari kita lihat bersama-sama.

Cadangan pembelajaran berkaitan: tutorial cemerlang

Untuk menukar jumlah berangka kepada huruf besar Cina, anda perlu melalui langkah berikut :

1. Tukar nombor huruf kecil Arab kepada huruf besar Cina. Ini boleh digunakan dalam contoh dalam bab sebelumnya untuk menukar nombor kepada kod huruf besar Cina, seperti:

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")<br>RmbDx = Replace(RmbDx, "-", "负")<br>End Function

2. Tambah "Yuan Zheng" selepas jumlah integer. Anda boleh menggunakan penyataan IF dan fungsi pembundaran FIX untuk menentukan sama ada amaun ialah amaun integer.

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")<br>RmbDx = Replace(RmbDx, "-", "负")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元整"<br>End If<br>End Function

3. Tambahkan maklumat "yuan" dan "sen" kepada jumlah yang hanya mengandungi maklumat "sudut" dan tidak termasuk maklumat "sen". >

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>Dim p As Integer<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")<br>RmbDx = Replace(RmbDx, "-", "负")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元整"<br>Else<br>RmbDx = Replace(RmbDx, ".", "元")<br>If c * 10 = Fix(c * 10) Then<br>RmbDx = RmbDx & "角"<br>End If<br>End If<br>End Function4. Tambahkan maklumat "sudut" dan "minit" pada data yang mengandungi maklumat "sudut" dan "minit".

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>Dim p As Integer<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")<br>RmbDx = Replace(RmbDx, "-", "负")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元整"<br>Else<br>p = InStr(RmbDx, ".")<br>RmbDx = Replace(RmbDx, ".", "元")<br>If c * 10 = Fix(c * 10) Then<br>RmbDx = RmbDx & "角"<br>Else<br>RmbDx = Left(RmbDx, p) & Mid(RmbDx, p 1, 1) & "角" & Right(RmbDx, 1) & "分"<br>End If<br>End If<br>End FunctionDengan cara ini, anda boleh mendapatkan fungsi tersuai RmbDx yang menukar jumlah RMB kepada jumlah huruf besar Cina Kesannya adalah seperti yang ditunjukkan di bawah.

Cadangan pembelajaran berkaitan:

tutorial cemerlang

Atas ialah kandungan terperinci Empat langkah untuk mengajar anda cara menukar jumlah berangka RMB kepada huruf besar Cina dalam Excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!