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

你的名字 2022-11-21 11:37 194阅读 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 条评论，194人围观）

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

相关阅读

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

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

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

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

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

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

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

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

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

相关汉字数字转阿拉伯数字和阿拉伯数字+千/百/万/亿转阿拉伯数字

感谢这位辛苦的大佬: http://blog.csdn.net/jjfly999/article/details/51052492\insertcode 项目的需要

灰太狼/ 2022年05月31日 12:26/ 0 赞/ 502 阅读

相关人民币小写转大写算法

import java.math.; import java.util.; public class a { stat

阳光穿透心脏的1/2处/ 2022年05月29日 10:36/ 0 赞/ 257 阅读

相关 oracle数字转换成人民币大写

网上找了好几篇博客，测试或多或少有问题，以下已验证可以使用。 create or replace function cux\_convert\_cny(p\_n

迷南。/ 2022年05月17日 05:09/ 0 赞/ 263 阅读

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

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

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

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

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

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

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

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

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

相关 java-数字转换汉语中人民币的大写

package tastCase; import java.math.BigDecimal; / 数字转换为汉语中

淡淡的烟草味﹌/ 2022年03月09日 12:16/ 0 赞/ 286 阅读