In vier Schritten erfahren Sie, wie Sie numerische RMB-Beträge in Excel in chinesische Großbuchstaben umwandeln

Dieser Artikel vermittelt Ihnen relevantes Wissen über Excel. Er fasst hauptsächlich die Methoden zur Umrechnung von RMB-Zahlenbeträgen in chinesische Großbuchstaben zusammen. Ich hoffe, dass er für alle hilfreich ist.

Verwandte Lernempfehlungen: Excel-Tutorial

Um numerische Beträge in chinesische Großbuchstaben umzuwandeln, müssen Sie die folgenden Schritte ausführen:

1. Konvertieren Sie arabische Kleinbuchstaben in chinesische Großbuchstaben. Dies kann in den Beispielen in den vorherigen Kapiteln verwendet werden, um Zahlen in chinesische Großbuchstabencodes umzuwandeln, wie zum Beispiel:

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val (c )<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")<br>RmbDx = Replacement(RmbDx, "-", "negative")<br>End FunctionFunction 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. Fügen Sie „yuan“ nach dem ganzzahligen Betrag hinzu. Sie können die IF-Anweisung und die FIX-Rundungsfunktion verwenden, um zu bestimmen, ob es sich bei einem Betrag um einen ganzzahligen Betrag handelt.

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]" )<br>RmbDx = Replacement(RmbDx, „-“, „negative“)<br>If c = Fix(c) Then<br>RmbDx = RmbDx & „元正“<br>End IfEnd-Funktion

3. Fügen Sie „Yuan“- und „Cent“-Informationen zum Betrag hinzu, der nur „Eck“-Informationen und keine „Cent“-Informationen enthält.

Funktion 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 = Replacement(RmbDx, „-“, „negative“)<br>If c = Fix(c) Then<br>RmbDx = RmbDx & „元正“<br>Else<br> RmbDx = Replacement(RmbDx, ".", "元")<br>If c * 10 = Fix(c * 10) Then<br>RmbDx = RmbDx & "angle"<br>End If<br>End If<br>End Function4. Fügen Sie „Winkel“- und „Minuten“-Informationen zu den Daten hinzu, die „Winkel“- und „Minuten“-Informationen enthalten.

🎜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 = Replacement(RmbDx, "-", "negative")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元正"<br>Else<br>p = InStr(RmbDx, ".")<br>RmbDx = Replacement(RmbDx, ".", "元")<br>If c * 10 = Fix(c * 10) Dann<br>RmbDx = RmbDx & "angle"<br>Else<br>RmbDx = Left(RmbDx, p) & Mid(RmbDx, p + 1, 1) & "angle" & Right( RmbDx, 1) & „fen“<br>End If<br>End If<br>End Function🎜🎜Auf diese Weise können Sie die benutzerdefinierte Funktion RmbDx erhalten, die den RMB-Betrag in Chinesisch umwandelt Kapitalbetrag, Der Effekt ist wie unten gezeigt. 🎜🎜🎜🎜🎜Verwandte Lernempfehlungen: 🎜Excel-Tutorial🎜🎜

Das obige ist der detaillierte Inhalt vonIn vier Schritten erfahren Sie, wie Sie numerische RMB-Beträge in Excel in chinesische Großbuchstaben umwandeln. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!