Excel中VBA编程将大写人民币转阿拉伯数字

你的名字 2022-11-21 11:37 201阅读 0赞

实际应用中大多数需求都是阿拉伯数字转 大写人民币  
很少有反过来的需求。  
可是，有轮子用它不香吗>.<

Sub ChangeMoneyToNum()
    Dim reg As Object, arr, b$, a
    arr = Range("a1:a" & [a65536].End(xlUp).Row)
    For i = 1 To UBound(arr)
    a = Split(arr(i, 1), "元")
    k = Len(arr(i, 1))
    If Right(a(0), 1) = "佰" Then a(0) = a(0) & "零零": k = k + 2
    If Right(a(0), 1) = "拾" Then a(0) = a(0) & "零": k = k + 1
    a(0) = a(0) & "."
    a = Join(a, "")
     Do While x < k
     x = x + 1
     Select Case Mid(a, x, 1)
     Case "壹"
     b = b & 1
     Case "贰"
     b = b & 2
     Case "叁"
     b = b & 3
     Case "肆"
     b = b & 4
     Case "伍"
     b = b & 5
     Case "陆"
     b = b & 6
     Case "柒"
     b = b & 7
     Case "捌"
     b = b & 8
     Case "玖"
     b = b & 9
     Case "零"
     b = b & 0
     Case "万"
     b = b & ""
     Case "仟"
     b = b & ""
     Case "佰"
     b = b & ""
     Case "拾"
     b = b & ""
     Case "角"
     b = b & ""
     Case "分"
     b = b & ""
     Case "."
     b = b & "."
     End Select
     Loop
     Range("a" & i) = "￥" & b & "元"
     b = "": a = "": x = 0
    Next
    End Sub

发表评论取消回复

表情：

评论列表（有 0 条评论，201人围观）

还没有评论，来说两句吧...

相关阅读

相关数字转人民币（大写汉字）读法（Python经典编程案例）

字转人民币读法 import warnings from decimal import Decimal def cncurr...

矫情吗；*/ 2024年04月17日 05:41/ 0 赞/ 56 阅读

相关 PHP人民币小写数字转大写中文

<?php echo rmb_format(123456789.36,'false'); / 人民币小写转大写

淡淡的烟草味﹌/ 2023年10月06日 16:23/ 0 赞/ 61 阅读

相关 php 将阿拉伯数字转成中文数字

num_to_rmb(98765432.1); / 数字金额转换成中文大写金额的函数 String Int $num 要转换的小写数

系统管理员/ 2023年10月06日 16:18/ 0 赞/ 20 阅读

相关大写阿拉伯数字(大写阿拉伯数字0到10)

数字1-10的大写是什么？阿拉伯数字012345678910100103104108 大写数字零壹贰叁肆伍陆柒捌玖拾佰仟万亿小写数字〇一二三四五六七八九十百千万亿

墨蓝/ 2023年09月26日 14:13/ 0 赞/ 137 阅读

相关 JS将数字金额转换为大写人民币汉字

转载自 [qubernet][] 博客 [JS将数字金额转换为大写人民币汉字][JS] function convertCurrency(money) {

拼搏现实的明天。/ 2023年01月02日 02:25/ 0 赞/ 256 阅读

相关 Excel中VBA编程将大写人民币转阿拉伯数字

实际应用中大多数需求都是阿拉伯数字转大写人民币很少有反过来的需求。可是，有轮子用它不香吗>.< Sub ChangeMoneyToNum() D

你的名字/ 2022年11月21日 11:37/ 0 赞/ 202 阅读

相关人民币数字金额转大写金额

public class t { public static String Trans2RMB(String money) { int ind

Dear 丶/ 2022年08月11日 00:48/ 0 赞/ 320 阅读

相关 Excel转格式数字转人民币大写

=IF(MOD(A1,1)=0,TEXT(INT(A1),"\[DBNUM2\]")&"元"&"整",TEXT(INT(A1),"\[DBNUM2\]")&"元"&TEXT(M

太过爱你忘了你带给我的痛/ 2022年05月15日 14:11/ 0 赞/ 304 阅读

相关金额阿拉伯数字转成中文的大写金额

package test; import java.text.DecimalFormat; import java.text.NumberFormat;

红太狼/ 2022年05月11日 08:52/ 0 赞/ 323 阅读

相关 PHP实现阿拉伯数字转中文大写

function cny($ns) { static $cnums=array("零","壹","贰","叁","肆","伍","陆","柒","捌",

淩亂°似流年/ 2022年03月19日 05:58/ 0 赞/ 296 阅读