字母和数字之间插入符号

52UEXCEL · 发表于 2009-12-14 08:13

dsmch · 发表于 2009-12-14 08:42

请验证

插入符号.rar (12.48 KB, 下载次数: 178)

高玉甫 · 发表于 2009-12-14 09:07

朋友，您附件的结果是达到了 1 楼的要求，可是，您的方法呢？能公开您的实现方法吗？难道还是用手工一个一个输进去的？

dsmch · 发表于 2009-12-14 09:12

原帖由 高玉甫 于 2009-12-14 09:07 发表
朋友，您附件的结果是达到了 1 楼的要求，可是，您的方法呢？能公开您的实现方法吗？难道还是用手工一个一个输进去的？

自定义函数，文件里有代码
Function aa(x)

p = Mid(x, 1, 1): s = ""
For i = 2 To Len(x)
b = Mid(x, i, 1): b1 = Mid(x, i - 1, 1)

c = Asc(b): c1 = Asc(b1)

If c >= 48 And c <= 57 And c1 >= 97 And c1 <= 122 Then
s = s & "-" & b
ElseIf c >= 97 And c <= 122 And c1 >= 48 And c1 <= 57 Then
s = s & "-" & b
Else
s = s & b
End If
Next i
aa = p & s
End Function

ayykanshijie · 发表于 2009-12-14 09:34

期待高手路过，学习学习

ayykanshijie · 发表于 2009-12-14 09:35

函数解决不了么

mengrs · 发表于 2009-12-14 10:27

谁说函数不能解决

插入符号.rar (7.69 KB, 下载次数: 419)

52UEXCEL · 发表于 2009-12-14 10:35

高手，高手，受教了，谢谢

zjdh · 发表于 2009-12-14 13:00

厉害。。。。。。。。。。。。

binga · 发表于 2009-12-14 13:21

厉害。。。。。。。。。。。。

		自动登录	找回密码
密码			免费注册

[求助] 字母和数字之间插入符号

回复 2楼 dsmch 的帖子