Maison >Les sujets >excel >Quatre étapes pour vous apprendre à convertir des montants numériques en RMB en majuscules chinoises dans Excel

Quatre étapes pour vous apprendre à convertir des montants numériques en RMB en majuscules chinoises dans Excel

WBOY
WBOYavant
2022-06-24 11:56:367474parcourir

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.

Quatre étapes pour vous apprendre à convertir des montants numériques en RMB en majuscules chinoises dans Excel

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 finFunction 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

2. Ajoutez « yuan » après le montant entier. Vous pouvez utiliser l'instruction IF et la fonction d'arrondi FIX pour déterminer si un montant est un montant entier.

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

Quatre étapes pour vous apprendre à convertir des montants numériques en RMB en majuscules chinoises dans Excel3. 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 fin4. 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!

Déclaration:
Cet article est reproduit dans:. en cas de violation, veuillez contacter admin@php.cn Supprimer