海鸟域生活馆

excel 人民币大写怎么弄

2022-11-30
/ 数字时代
/ 热度：1520
作为一名出纳，经常会遇到给单位开具收据，怎么样才能轻松地将人民币小数金额转换成大写呢？
excel 人民币大写怎么弄

今天就来分享一下如何使用 Excel 表格快速将人民币小数金额转换成大写。

1. 打开 Excel 表格，在单元格中输入需要转换的金额，例如在 A2 单元格输入 12345.67。

2. 在 B2 单元格中输入公式 "=TEXT(A2, "人民币￥#,##0.00")"，然后按 Enter 键。

3. 此时，B2 单元格中就会显示出转换后的结果，例如 "人民币壹万贰仟叁佰肆拾伍元六角七分"。

除了上述方法，还可以使用 VBA 代码来实现人民币大写转换。

1. 打开 Excel 表格，按 Alt+F11 打开 VBA 编辑器。

2. 在 VBA 编辑器中，双击需要转换金额的单元格（例如 A2 单元格），然后在代码窗口中输入以下代码：

```

Private Function RMB(ByVal num As Variant) As String

Dim dw As String, w As String, j As String, s As String

Dim p As String, q As String, f As String

dw = "零壹贰叁肆伍陆柒捌玖"

w = "元拾佰仟万拾佰仟亿拾佰仟万拾佰仟"

j = "角分"

p = ""

q = ""

f = ""

If Len(Str(num)) > 15 Then

RMB = "数值太大"

Exit Function

End If

num = Format(num, "0.00")

s = Mid(num, 1, InStrRev(num, ".") - 1)

f = Mid(num, InStrRev(num, ".") + 1, 2)

If s = "0" Then

RMB = dw(1) & "元" + RMBJiaoFen(f)

Exit Function

End If

If Len(s) = 1 Then s = "0" & s

For i = 1 To Len(s)

If Mid(s, i, 1) <> "0" Then

p = p & dw(Mid(s, i, 1)) & w(Len(s) - i + 1)

ElseIf Mid(s, i, 1) = "0" And Len(p) > 0 Then

p = p & dw(Mid(s, i, 1))

End If

Next i

If dw(Mid(p, 1, 1)) <> "零" Then

p = dw(Mid(p, 1, 1)) & "元" + Mid(p, 2, Len(p) - 1)

Else

p = Mid(p, 2, Len(p) - 1)

End If

RMB = p + RMBJiaoFen(f)

End Function

Private Function RMBJiaoFen(ByVal num As String) As String

Dim dw As String, j As String

dw = "零壹贰叁肆伍陆柒捌玖"

j = "角分"

If Len(num) = 1 Then num = "0" & num

Return dw(Mid(num, 1, 1)) & j(Mid(num, 2, 1))

End Function

```

3. 运行代码，此时 B2 单元格中就会显示出转换后的结果，例如 "人民币壹万贰仟叁佰肆拾伍元六角七分"。

标签：人民币大写,excel,转换,VBA
上一篇>> 迅雷VIP：您身边的下载利器 下一篇>> 神魔辅助：游戏世界的幕后推手

兴趣推荐

  • 138译码器：解锁镜像世界的神秘之门

    2年前: 在数字时代的迷雾中，隐藏着无数奥秘，等待着我们的探索与发现。今天，就让我揭开138译码器的面纱，带你进入一个镜像世界的奇幻之旅。

  • pptx转ppt，一招搞定！

    2年前: 在工作和学习中，我们经常需要使用微软的Office办公软件，其中PowerPoint（简称PPT）是一款非常常用的演示文稿软件。PPTX是PPT的默认保存格式，但有时我们会遇到需要将PPTX文件转换为PPT格式的情况，比如一些旧版本的软件可能无法打开PPTX文件。今天我就来教大家一个简单易懂的方法，让你轻松实现pptx转ppt。

  • 我的文档后缀是.xlsx，那么我是哪种格式？

    2年前: 在日常工作中，你经常需要使用文档，那么你知道文档格式有哪些吗？你遇到过.xlsx后缀的文件吗？它是哪种格式呢？

  • flash修复工具：让旧时光重焕光彩

    2年前: flash，曾经风靡网络的动画和交互技术，如今却已成为历史的尘埃。不过，如果你还有一些珍贵的flash文件，不用担心，flash修复工具可以帮助你将它们修复并转换，让旧时光重焕光彩。

  • 打开新世界之门，探索无限信息：如何使用NH文件阅读器

    2年前: 在数字化的时代，我们每天都会遇到各种各样的文件格式，其中NH文件格式就是一种比较常见的文件格式。NH文件阅读器可以帮助我们轻松打开NH文件，并提取其中的内容。接下来，我将为大家介绍NH文件阅读器，以及如何使用它来打开和阅读NH文件。

  • Office2007精简版：一键释放办公潜能

    2年前: Office2007精简版，是微软办公软件套装的精简版本，它比标准版Office2007更小、更快、更精简，专为那些不需要所有完整功能的人而设计。

  • 熟知文件格式，格式转换无难事——如何轻松学用XLSX转XLS

    2年前: 不同的文件格式，会使用不同的软件打开。有时我们会遇到明明是同一个电子表格文件，却有不同的文件格式的情况，比如XLS和XLSX。那么当我们遇到需要把XLSX文件转换成XLS文件，又该如何操作呢？今天这篇文章将详细介绍，轻松实现XLSX转XLS。

  • 在 Excel 中合并单元格：告别杂乱表格，提升数据掌控力

    2年前: 在 Excel 中，合并单元格是一种常见且实用的操作。它可以帮助您将多个单元格的内容合并为一个单元格，以便更好地展示数据，提升表格的可读性和美观性。如果您正在为如何合并单元格而烦恼，那么这篇指南将为您提供详细的步骤和技巧，让您轻松掌握这项技能。

  • DOCX转换成DOC：从办公套装的演变看格式兼容的重要性

    2年前: 在日常工作中，我们经常需要处理各种各样的文档。微软的Office办公套件是许多人处理文档的首选，但时常会遇到需要将DOCX文件转换成DOC文件的情况。本文将介绍DOCX和DOC的区别，以及如何将DOCX转换成DOC。

  • 1TB等于多少GB？轻松理解数据存储单位的换算

    2年前: 在数字时代，储存信息的技术日新月异。计算机储存数据的方式与我们日常生活使用的度量单位转换类似，但是名称却截然不同，让人摸不着头脑。如果有人问：“1TB等于多少GB？”，那你知道如何回答吗？我将以简单易懂的方式解释数据存储单位的换算，保证你秒懂！

  • modify是什么意思呀？我给你讲讲！

    2年前: modify的意思在不同的语境下可能会不同。在计算机科学、语言学和音乐，modify这个单词具有不同的含义哦！一起来看看吧！

  • Excel指数函数：揭秘幂运算的奥秘

    2年前: 在Excel的函数库中，指数函数可谓是数学运算的强力工具，它能让我们轻松处理幂运算，遨游于数字的海洋。今天，就让我来带你领略指数函数的魅力，为你揭开幂运算的神秘面纱。

  • 手把手教你告别Excel启动慢，让办公从此高效省时

    2年前: 还在为Excel启动慢而烦恼吗？别担心，掌握这些技巧，您就能让Excel快速启动，告别等待，轻松提高工作效率。

  • excelhome论坛：你的Excel学习和交流平台

    2年前: excelhome论坛是国内最受欢迎的Excel学习和交流平台之一，这里汇聚了众多Excel高手和爱好者，为你提供丰富的Excel教程、技巧和经验分享，帮助你快速掌握Excel技能，成为一名Excel达人。

  • 踏入21世纪的旧时代回忆——Office 2000

    2年前: 在那个尚未进入网络与智能手机普及的年代，有一款办公软件，引起了年轻人的追捧，它就是微软的Office 2000。它以其强大的功能，简洁的界面，受到了许多用户的喜爱。让我带您回到过去，重温Office 2000的风采吧！

  • Excel教程：从入门到精通

    2年前: Excel是微软Office办公软件套件的重要组成部分，也是世界上最流行的电子表格软件。它功能强大，用途广泛，深受广大职场人士和学生们的喜爱。如果你想学习Excel，那么这篇教程就是为你准备的。

  • 昂达平板电脑：开启精彩数字生活

    2年前: 在当今数字时代，平板电脑已成为人们不可或缺的电子设备。昂达平板电脑凭借其出色的性能、时尚的外观和实惠的价格，赢得了众多消费者的认可。今天，就让我们一起走进昂达平板电脑的世界，开启精彩的数字生活之旅。

  • PPTX怎么打开：快速搞定，轻松上手！

    2年前: PPTX文件，又称Microsoft PowerPoint演示文稿，通常用于制作幻灯片。想要打开PPTX文件，只需要几个简单步骤。本文将分享一个有趣而简单的PPTX文件打开指南，让你轻松上手。

  • QUICKTIMEPLAYER，点亮您的精彩视听享受

    2年前: 作为一个内容创作者，我时常需要播放、剪辑和转换视频音频文件。随着信息技术的发展，我发现了一款非常实用的多媒体播放器——QUICKTIMEPLAYER。它具有丰富的功能和易于操作的界面，让我能够轻松地管理和播放各类媒体文件。接下来，我就跟大家分享一下这款媒体播放器的特点和使用体会。

  • 如何将FAT32格式的U盘转换为NTFS格式？

    2年前: FAT32和NTFS是两种常见的U盘格式，NTFS格式的U盘可以存储更大的文件，并且更稳定。想知道将FAT32格式的U盘转换为NTFS格式的方法吗？本篇文章将详细介绍转换过程，让你轻松搞定！

随机推荐