常用功能加载宏——单元格数字与文本转换

使用Excel主要就是做表格，表格自然离不开数字，特别是对于会计专业的，每天都要处理大量的表格，大量的数字。

Excel为了方便使用者，对于单元格的格式是非常的开放的，数字不但可以作为加减乘除用的 常规数字 ，还可以作为 文本 。很多新手都会碰到数字存储格式上造成的问题，因为没有注意到数字真正存储的格式。

1、数字的两种存储格式

要判断一个数字是 常规的数字 还是 文本 ，最简单的判断是：

• 默认单元格是常规的格式下，如果数字是靠右边对齐的，那么它就是 常规的数字 ，如果是靠左边对齐的，那么就是 文本 。
• 如果数字存储格式是文本，单元格左上角会有一个绿色的小三角，选中这个单元格后，还会出现一个“！”，点击这个“！”可以把数字转换为 常规的数字 。

2、“眼见为虚”

Excel为了尽量方便操作，对于这些格式都是非常的包容的，很多公式在处理以 文本形式存储的数字 的时候，也会自动转换。

这也就导致很多Excel的使用者对于数字的存储非常的不在意，因为不管是 常规的数字 还是 文本 ，都可以正常的进行加减乘除，完全不用太过关心。

但是在某些函数使用的时候，比如VLookup函数，如果要查找的数据和查找范围内的数据是 不同存储格式 ，VLookup函数会返回错误。很多新手就会用Ctrl+F的查找框去查找，然后会非常不理解VLookup函数，明明看见用Ctrl+F的查找框能找到的东西，函数却返回错误！

3、数字格式转换

数字的两种存储格式，在Excel里都有它的用处， 常规的数字 就不用说了，表格里到处都是这些数字。

文本形式存储的数字 也有它的用处，比如身份证号码，如果以常规形式输入的话，你会发现超过了15位后，数字都变为了0，这是因为Excel只能保留16位的有效数字，所以要存储超过了15位的数字，就必须使用文本格式。

在Excel里，假如有一列 常规的数字 ，你想把它转换为 文本形式存储的数字 ，你可能会这样去操作：

• 选中它
• 右键设置格式为文本
• 发现数字左对齐了，这时候你可能以为已经搞定了！

可事实上，这个东西还是 “眼见为虚” 的，它仅仅是看起来变化了，实际内部存储的还是数字，必须进入编辑状态，再回车才行，这个时候就会 出现那个小三角 ！

反之也是一样的。

对Excel熟悉的人会使用 分列 功能来完成数字与文本的转换，用VBA来实现转换功能自然也没有问题：

首先在customUI.xml中增加代码：

      <menu id="rbmenuNumber" label="数字处理&#13;" size="large" imageMso="FormattingUnique">
        <button id="rbbtnText2Num" label="文本转数字" onAction="rbbtnText2Num" imageMso="CombineCharacters"/>
        <button id="rbbtnNum2Text" label="数字转文本" onAction="rbbtnNum2Text" imageMso="WrapText"/>   
      </menu>

回调函数：

Sub rbbtnText2Num(control As IRibbonControl)
    Call MRange.Text2Num
End Sub
Sub rbbtnNum2Text(control As IRibbonControl)
    Call MRange.Num2Text
End Sub

函数实现：

Sub Text2Num()
    Dim selectRng As Range
    Dim arr As Variant
    '确保选中的是单元格
    If TypeName(Selection) = "Range" Then
        Set selectRng = Selection
        '设置单元格为常规格式
        selectRng.NumberFormatLocal = "G/通用格式"
        '读取单元格数据，Excel会根据数据的特点自动转换格式
        arr = selectRng.Value
        selectRng.Value = arr
    End If
    Set selectRng = Nothing
End Sub
Sub Num2Text()
    Dim selectRng As Range
    Dim arr() As Variant
    Dim i As Long, j As Long
    '确保选中的是单元格
    If TypeName(Selection) = "Range" Then
        Set selectRng = Selection
        '设置单元格为文本格式
        selectRng.NumberFormatLocal = "@"
        If selectRng.Cells.Count > 1 Then
            arr = selectRng.Value
            For i = 1 To UBound(arr)
                For j = 1 To UBound(arr, 2)
                    '将数据转换为文本
                    arr(i, j) = VBA.CStr(arr(i, j))
            selectRng.Value = arr
            selectRng.Value = VBA.CStr(selectRng.Value)
        End If
    End If
    Set selectRng = Nothing
End Sub