私人的？Sub？text 1 _ Change()text 2。文字？=?金额转换(文本1。正文)结束？子

函数？金额转换(ByVal？钱？作为？字符串)？作为？字符串

打开？错误？GoTo？呃

昏暗？NumberChar？UnitChar

Dim？TempM？作为？字符串，？NumberChar2？作为？字符串

Dim？我？作为？Integer

NumberChar？=?数组(“零",?"壹",?"贰",?"叁",?"肆",?"伍",?"陆",?"柒",?"捌",?"玖"

UnitChar？=?数组(“圆",?"拾",?"佰",?"仟",?"万",?"拾",?"佰",?"仟",?"亿"

NumberChar2？=?"壹贰叁肆伍陆柒捌玖零拾佰仟圆"

如果？不是吗？IsNumeric(钱)？然后

金额转换？=?"数据不正确"

退出吗？函数

结束？如果

钱？=?格式(替换(钱，？"?",?""),?".")?'格式化

'TempM？=?"人民币"

如果？左(钱，？1)?=?"-"?然后呢？'判断正负

临时？=?TempM？& amp？"负"

钱？=?Mid(钱，？2)

结束？如果

如果？Len(钱)？& gt？19?“那么，”判断单位长度

临时？=?"数目太大,无法换算！请输入千万亿以下单位价格"

退出吗？函数

结束？如果

为？我？=?1?去哪？Len(钱)？-?3?'转换大写

临时？=?TempM？& amp？NumberChar(Mid(Money，我，？1))?& amp？UnitChar(Len(Money)？-?IIf((Len(Money)？-?我？-?3)?& lt？9,?3,?11)?-?i)

下一个

如果？对(钱，？2)?=?""?“那么，”判断是否整数

临时？=?TempM？& amp？"整" Else

TempM？=?TempM？& amp？NumberChar(Mid(Money，Len(钱)？-?1,?1))?& amp？"角"

TempM？=?TempM？& amp？NumberChar(右(钱，1))?& amp？"分"

结束？如果

暗淡？LenStr？作为？Integer

Do？什么时候？Len(TempM)？& lt& gt？LenStr？'去掉不规则写法

LenStr？=?Len(TempM)

TempM？=?替换(TempM，"零角",?"零"

TempM？=?替换(TempM，"零分",?" ")

TempM？=?替换(TempM，"零圆",?"圆"

TempM？=?替换(TempM，"亿零万",?"亿零"

TempM？=?替换(TempM，"亿万",?"亿"

TempM？=?替换(TempM，"零拾",?"零"

TempM？=?替换(TempM，"零佰",?"零"

TempM？=?替换(TempM，"零仟",?"零"

TempM？=?替换(TempM，"零万",?"万"

TempM？=?替换(TempM，"零亿",?"亿"

TempM？=?替换(TempM，"零零",?"零"

循环

If？左(TempM，2)?=?"壹拾"?然后呢？TempM？=?Mid(TempM，2)

金额转换？=?TempM

退出？Er:

MsgBox？"错误?"？& amp？呃。号码？& amp？vbCrLf？& amp？呃。描述，？64,?"友情提示"

结束？功能