>주제 >excel >Excel에서 RMB 숫자 금액을 중국어 대문자로 변환하는 방법을 가르치는 4단계

Excel에서 RMB 숫자 금액을 중국어 대문자로 변환하는 방법을 가르치는 4단계

WBOY
WBOY앞으로
2022-06-24 11:56:367475검색

이 글은 excel에 대한 관련 지식을 제공합니다. 주로 위안화 숫자를 중국어 대문자로 변환하는 방법을 함께 살펴보겠습니다.

Excel에서 RMB 숫자 금액을 중국어 대문자로 변환하는 방법을 가르치는 4단계

관련 학습 권장 사항: excel 튜토리얼

숫자 금액을 중국어 대문자로 변환하려면 다음 단계를 거쳐야 합니다.

1. 아랍어 소문자를 중국어 대문자로 변환합니다. 이는 이전 장의 예에서 숫자를 다음과 같은 중국어 대문자 코드로 변환하는 데 사용할 수 있습니다.

Function RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val (c )<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")<br>RmbDx = 바꾸기(RmbDx, "-", "negative")<br>함수 종료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

2. 정수 금액 뒤에 "위안"을 추가하면 IF 문과 FIX 반올림 기능을 사용하여 금액이 정수 금액인지 확인할 수 있습니다.

함수 RmbDx(ByVal c) As String<br>Application.Volatile True<br>c = Val(c)<br>RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]" )<br>RmbDx = 바꾸기(RmbDx, "-", "negative")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元正"<br>End If함수 종료

Excel에서 RMB 숫자 금액을 중국어 대문자로 변환하는 방법을 가르치는 4단계3. "센트" 정보가 포함되지 않고 "코너" 정보만 포함된 금액에 "위안" 및 "센트" 정보를 추가합니다.

함수 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 = 바꾸기(RmbDx, "-", "negative")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元正"<br>Else<br> RmbDx = 바꾸기(RmbDx, ".", "원")<br>If c * 10 = Fix(c * 10) Then<br>RmbDx = RmbDx & "angle"<br>End If<br>End If<br>End Function4. "각도" 및 "분" 정보가 포함된 데이터에 "각도" 및 "분" 정보를 추가합니다.

🎜함수 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 = 바꾸기(RmbDx, "-", "negative")<br>If c = Fix(c) Then<br>RmbDx = RmbDx & "元正"<br>Else<br>p = InStr(RmbDx, ".")<br>RmbDx = 바꾸기(RmbDx, ".", "元")<br>If c * 10 = Fix(c * 10) 그러면<br>RmbDx = RmbDx & "각도"<br>Else<br>RmbDx = 왼쪽(RmbDx, p) & 중간(RmbDx, p + 1, 1) & "각도" & 오른쪽( RmbDx, 1) & "fen"<br>End If<br>End If<br>End Function🎜🎜이 방법으로 RMB 금액을 중국어로 변환하는 사용자 정의 함수 RmbDx를 얻을 수 있습니다 자본금액, 효과는 아래와 같습니다. 🎜🎜🎜🎜🎜관련 학습 권장 사항: 🎜excel 튜토리얼🎜🎜

위 내용은 Excel에서 RMB 숫자 금액을 중국어 대문자로 변환하는 방법을 가르치는 4단계의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명:
이 기사는 csdn.net에서 복제됩니다. 침해가 있는 경우 admin@php.cn으로 문의하시기 바랍니다. 삭제