|
下面是我在学习VBA中所学习归纳的子程序,供大家参考. VBA程序集
(第3辑) ******************************************************
程序11(查找)
[程序功能] 将数值转换为文本
[程序作用] 搜索选中的列，将数值转变为文本。如果只选择了一个单元格，那么代码仅在活动单元格中操作。不能对公式单元格和空单元格操作。
[程序扩展] 可以将程序代码1和程序代码2略加改动，将一个字符附加到所选单元格的开头。如将cell.Value = "'" & cell.Value换成cell.Value=”I”&cell.Value，则在所选单元格开头添加字符“I”，即可统一单元格开始形式。
[程序代码1]
Sub 数值转换为文本1() '通过添加'号
Dim cell As Range
For Each cell In Selection
If Not cell.HasFormula Then
If Not IsEmpty(cell) Then
cell.Value = "'" & cell.Value
End If
End If
Next
End Sub
[程序代码2]
Sub 数值转换成文本2() '只对数字单元格进行操作
Dim cell As Range
For Each cell In Selection
If Not cell.HasFormula Then
If Not IsEmpty(cell) Then
If IsNumeric(cell) Then
cell.Value = "'" & cell.Value '可根据需要变换字符
End If
End If
End If
Next
End Sub
[程序代码3]
Sub 数值转换为文本3() '通过格式
Dim cell As Range
For Each cell In Selection
If Not cell.HasFormula Then
If Not IsEmpty(cell) Then
Selection.NumberFormatLocal = "@"
End If
End If
Next
End Sub
8fyZlHNT.rar
(9.9 KB, 下载次数: 627)
By fanjy in 2006-6-23
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2006-6-23 06:53
