Maison >Les sujets >excel >Quatre étapes pour vous apprendre à convertir des montants numériques en RMB en majuscules chinoises dans Excel
Cet article vous apporte des connaissances pertinentes sur excel. Il résume principalement les méthodes de conversion des montants numériques en RMB en lettres majuscules chinoises. J'espère qu'il sera utile à tout le monde.
Recommandations d'apprentissage associées : Tutoriel Excel
Pour convertir des montants numériques en majuscules chinoises, vous devez suivre les étapes suivantes :
1. Convertir les nombres minuscules arabes en majuscules chinoises. Cela peut être utilisé dans les exemples des chapitres précédents pour convertir des nombres en codes majuscules chinois, tels que :
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, "-", "negative")<br>Fonction de fin
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.在整数金额的后面添加“元整”.可以借助IF语句及FIX取整函数来判断某个金额是否整数金额。
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.在只包含“角”信息,不含“分”信息的金额中添加“元”和“分”信息.
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 Function
4.在包含“角”与“分”信息的数据中添加“角”和“分”信息。
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 Function
Fonction RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]" )<br>RmbDx = Remplacer(RmbDx, "-", "negative")<br>Si c = Fix(c) Alors<br>RmbDx = RmbDx & "元正"<br>Fin SiFonction de fin
3. Ajoutez les informations "yuan" et "cent" au montant qui contient uniquement les informations "coin" et n'inclut pas les informations "cent".
Fonction 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]") RmbDx = Remplacer(RmbDx, "-", "negative")<br>Si c = Fix(c) Alors<br>RmbDx = RmbDx & "元正"<br>Sinon<br> RmbDx = Remplacer(RmbDx, ".", "元")<br>Si c * 10 = Fix(c * 10) Alors<br>RmbDx = RmbDx & "angle"<br>Fin Si<br>End If<br>Fonction de fin
4. Ajoutez des informations « angle » et « minute » aux données contenant des informations « angle » et « minute ».
Fonction 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 = Remplacer(RmbDx, "-", "negative")<br>Si c = Fix(c) Alors<br>RmbDx = RmbDx & "元正"<br>Sinon<br>p = InStr(RmbDx, ".")<br>RmbDx = Remplacer(RmbDx, ".", "元")<br>Si c * 10 = Fix(c * 10) Alors<br>RmbDx = RmbDx & "angle"<br>Else<br>RmbDx = Gauche(RmbDx, p) & Mid(RmbDx, p + 1, 1) & "angle" & Droite( RmbDx, 1) & "fen"<br>End If<br>End If<br>End Function
🎜🎜De cette façon, vous pouvez obtenir la fonction personnalisée RmbDx qui convertit le montant du RMB en chinois montant du capital, L'effet est comme indiqué ci-dessous. 🎜🎜🎜🎜🎜Recommandations d'apprentissage associées : 🎜tutoriel Excel🎜🎜Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!