[已解决]请帮忙修正代码错误之处

huchuanxing

以下是本人写的数字转换为文本的VBA代码，请帮忙看看代码错在何处：
Sub 数字转文本字()
    Dim rng As Range, address As String
    If TypeName(Selection) = "Range" Then address = Selection.address Else address = ""
    '弹出一个对话框, 让用户选择区域, 默认显示变量address的值。然后将该用户选择区域赋予变量rng
    Set rng = Application.InputBox("请选择待转换的区域", "转换区域", address, , , , , 8)
    If rng Is Nothing Then Exit Sub

    For Each rng In Selection
        If rng.Value <> "" Then
            rng = CStr(rng.Value)
        End If
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-2 11:52

1. Sub 数字转文本字()
   
2.     Dim rng As Range
   
3.     Set rng = Application.InputBox("请选择待转换的区域", "转换区域", Address, , , , , 8)
   
4.     If rng Is Nothing Then Exit Sub
   
5.     For Each rng1 In rng
   
6.     rng1.Value = "'" & rng1.Value
   
7.     Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

数字转文本字是什么意思？1转为一，还是1转为壹，还是1转为文本格式存储的1？

zjdh

1.语句没错。
2.最好别用内定属性名称“Address"作变量
3.由于单元格未设置为文本格式，所以单元格内容依然会变回数值格式，所以建议添加一句语句：
Sub 数字转文本字()
    ........
    If rng Is Nothing Then Exit Sub
    Selection.NumberFormatLocal = "@"
    For Each rng In Selection
      ........
End Sub

huchuanxing

望帝春心 发表于 2016-12-1 12:55
数字转文本字是什么意思？1转为一，还是1转为壹，还是1转为文本格式存储的1？

是指将数值型数字转化为文本型的数字，转化后文本型数字形式仍然是阿拉伯数字  ，123之类

上清宫主

Rng.Value = "'" & Rng.Value

望帝春心

huchuanxing 发表于 2016-12-1 15:41
是指将数值型数字转化为文本型的数字，转化后文本型数字形式仍然是阿拉伯数字  ，123之类

不用那么复杂

1. Sub 数字转文本字()
   
2.     Dim rng As Range
   
3.     Set rng = Application.InputBox("请选择待转换的区域", "转换区域", address, , , , , 8)
   
4.     If rng Is Nothing Then Exit Sub
   
5.     rng.NumberFormat = "@"
   
6.     rng = rng.Value
   
7. End Sub

复制代码

huchuanxing

zjdh 发表于 2016-12-1 13:31
1.语句没错。
2.最好别用内定属性名称“Address"作变量
3.由于单元格未设置为文本格式，所以单元格内容依 ...

谢谢。

huchuanxing

望帝春心 发表于 2016-12-1 15:50
不用那么复杂

我试了此代码，虽然表面看上去是转为文本了，但实际仍为数值型的数字，因为你代码转换后仍可以求和。

huchuanxing

上清宫主 发表于 2016-12-1 15:48
Rng.Value = "'" & Rng.Value

谢谢。

望帝春心

huchuanxing 发表于 2016-12-2 11:24
我试了此代码，虽然表面看上去是转为文本了，但实际仍为数值型的数字，因为你代码转换后仍可以求和。

那就连接个单引号了