暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / VBA如何将罗马数字转换为阿拉伯数字

VBA如何将罗马数字转换为阿拉伯数字

VBA语言専攻 2023-01-18
115
【分享成果，随喜正能量】人生在世，若能拥有平和的心态，所有的磨难，都会隐入无常。。
我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。
这九套教程从VBA零基础入门开始，到中级的字典、数据库，高级的类及程序分发，是对VBA理论的系统讲解。一般情况下您可以选择7.1.3.9教程进行学习，第7套是入门，第1套是入门后提高，第3套字典是VBA精华，第9套是实用的典型案例讲解。您也可以根据自己的需要选择中级第2套数据库及第8套Word VBA；高级第5套VBA类，第6套网抓及第10套程序分发（加载项）。
作为我的学习要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册目前正在创作中，约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是：VBA如何将罗马数字转换为阿拉伯数字

第七章 代码的简单过程

Simple procedure of code

6  将罗马数字转换为阿拉伯数字Convert Roman Numbers into Arabic Numbers


Sub nzConvertToNumbers() '将罗马数字转换为阿拉伯数字
    Dim rng As Range
    Selection.Value = Selection.Value
    For Each rng In Selection
        If Not WorksheetFunction.IsNonText(rng) Then
            rng.Value = WorksheetFunction.Arabic(rng)
        End If
    Next rng
End Sub


有时很难将罗马数字理解为序列号。此代码将帮助您将罗马数字转换为阿拉伯数字。
Sometimes it’s really hard to understand Roman numbers as serial numbers. This code will help you to convert roman numbers into Arabic numbers.

Ø本节内容参考程序文件：Chapter07.xlsm



【分享成果，随喜正能量】我20多年的VBA实践经验，全部浓缩在下面的各个教程中：


【分享成果，随喜正能量】我们不妨常常观心，问心，平心，无心，心平气和问自己，自己的人生应该何来何去。记住一句话：从善良里来，回善良里去。。

罗马数字阿拉伯数字vbavba字典
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论