用自定义函数能否实现数值与文本的互相转换

13213637939

要求：有两个参数，一个为单元格引用，另一个如果用户指定为1，是文本转数字；若用户指定为2，则是数字转文本。谢谢！

zhaogang1960

请参考，第二个参数如果省略，则是文本转数字：

1. Function NumTextTransform(a, Optional f% = 1)
   
2.     If f = 1 Then
   
3.         NumTextTransform = Val(a)
   
4.     Else
   
5.         NumTextTransform = Str(a)
   
6.     End If
   
7. End Function
   

复制代码

zhaogang1960

下面附件中有省略第二个参数，第二个参数=1，第二个参数=2效果，请参考：

Book1.rar (6.21 KB, 下载次数: 36)

2014-12-29 15:48 上传

点击文件名下载附件

13213637939

zhaogang1960 发表于 2014-12-29 15:48
下面附件中有省略第二个参数，第二个参数=1，第二个参数=2效果，请参考：

这么复杂的问题，经大师处理的如此精妙，佩服！

1249994139

太精辟了，又学了一招，谢谢