この記事では、excelに関する知識を中心に、人民元の数値を大文字に変換する方法をまとめていますので、一緒に見ていきましょう。
関連する学習の推奨事項: 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 = Replace(RmbDx, "-", "negative")<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, "-", "negative")<br>If c = Fix(c) then<br>RmbDx = RmbDx & "元正"<br>End If<br>End関数
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]")<br>RmbDx = Replace(RmbDx, "-", "negative")<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, "-", "negative")<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
このようにして、人民元の金額を中国語の大文字の金額に変換するカスタム関数 RmbDx を取得でき、その結果は次のようになります。
関連する学習に関する推奨事項: Excel チュートリアル
以上がExcel で人民元の数値を中国語の大文字に変換する方法を説明する 4 つのステップの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。