方方格子
一个专注Excel学习交流、求助定制的网站
`
  格子社区
阅： 715 | 回： 3
如何将数字转换成英文 全部 , 编号:04988 快速回复
hzq_fy
发表于2023/9/1 22:45:06 楼主 
头像 等级:初学者
积分:0
财富值:2.0
身份:普通用户
如何将金额中的数字转换成英文表示的金额，即123，转换成One Hundred Twenty Three，有什么方法和公式吗
我的个性签名
louis2004
发表于 2023/9/2 12:19:39   
头像 等级:学有小成
积分:23
财富值:2
身份:普通用户
Sub 英文大写()
    Dim number As Double
    Dim Result As String
    
    '获取A1单元格中的数字
    number = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value
    
    '将数字转换为英文大写
    Result = "Say total USD " & ConvertNumberToWords(number)
    
    '将结果写入A2单元格
    ThisWorkbook.Worksheets("Sheet1").Range("A2").Value = Result
End Sub

附件:   下载    在线编辑
敬天爱人，成人达已
louis2004
发表于 2023/9/2 12:20:39   
头像 等级:学有小成
积分:23
财富值:2
身份:普通用户

以上代码不全
敬天爱人，成人达已
louis2004
发表于 2023/9/2 12:21:24   
头像 等级:学有小成
积分:23
财富值:2
身份:普通用户

你发邮件给我，505600595@qq.com

注明：英文大写

我发你模板

敬天爱人，成人达已

快速回复

目前不允许游客发表，请 登录 注册 后再发贴。