Foxtable(狐表)用户栏目专家坐堂 → VBA 中自定义函数 如何在foxtable中实现。


  共有4388人关注过本帖树形打印复制链接

主题:VBA 中自定义函数 如何在foxtable中实现。

帅哥哟,离线,有人找我吗?
tongliaozyr
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:6065 威望:0 精华:0 注册:2013/10/22 12:15:00
VBA 中自定义函数 如何在foxtable中实现。  发帖心情 Post By:2013/10/23 6:39:00 [只看该作者]

[求教]

VBA 中有自定义函数 在foxtable中有类似的功能吗?

如果没有,想取字母[或汉字]+数字混合数据的数字部分,[如12b3c=〉123]。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/10/23 7:33:00 [只看该作者]

Dim str As String = "12ab3c5d"
Dim s As String
For i As Integer = 0 To str.Length - 1
    If Char.IsDigit(str(i)) Then
        s + = str(i)
    End If
Next
Output.Show(s)

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47452 积分:251108 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/10/23 8:12:00 [只看该作者]

foxtable比vba更强更灵活


 回到顶部
帅哥哟,离线,有人找我吗?
tongliaozyr
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:6065 威望:0 精华:0 注册:2013/10/22 12:15:00
  发帖心情 Post By:2013/10/23 9:53:00 [只看该作者]

确实不错

 回到顶部
帅哥哟,离线,有人找我吗?
yokeishun
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:52 积分:505 威望:0 精华:0 注册:2012/11/26 16:02:00
  发帖心情 Post By:2013/10/23 11:07:00 [只看该作者]

嗯,不错

 回到顶部