数据结构
网络
关系数据库管理系统
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C语言编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
时尚研究
法律研究如何在Excel中将月份名称转换为数字？
在Excel中，您可能有时需要将月份名称转换为数字。例如，将一月转换为1，二月转换为2，依此类推。数字仅仅是它们出现的顺序号。阅读本教程，了解如何在Excel中将月份名称转换为数字，反之亦然。我们可以使用VBA应用程序完成这两项任务。在这里，我们需要使用VBA应用程序的帮助，因为它无法直接使用公式完成。
在Excel中将月份名称转换为数字
在这里，我们将插入一个VBA模块，然后运行代码以完成任务。让我们看一下使用vba应用程序在Excel中将月份名称转换为数字的简单过程。
步骤 1
考虑一个包含月份列表的Excel工作表，类似于下图。
现在右键单击工作表名称并选择“查看代码”以打开VBA应用程序，然后单击“插入”并选择“模块”。
右键单击 > 查看代码 > 插入 > 模块
步骤 2
然后，如下面的图像所示，在文本框中键入以下程序。
程序
Sub ChangeNum()
'Update By Nirmal
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Convert to number"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Value <> "" Then
Rng.Value = Month(DateValue("03/" & Rng.Value & "/2014"))
End If
Next
End Sub
步骤 3
现在将工作表另存为启用宏的工作簿，单击F5运行代码，选择值的范围，然后单击“确定”。
保存 > F5 > 选择范围 > 确定
如果我们需要将数字转换为月份名称，可以使用程序1。
程序 1
Sub ChangeMonth()
'Update By Nirmal
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Change to Month Name"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = VBA.Format(Rng.Value * 29, "mmmm")
Next
End Sub
结论
在本教程中，我们使用了一个简单的示例来演示如何在Excel中将月份名称转换为数字。
更新于: 2023年3月6日
261 次查看
广告