Office中国论坛/Access中国论坛

标题: 用函数解决--找出数字 [打印本页]

作者: 欢欢 时间: 2008-4-9 21:33
标题: 用函数解决--找出数字
例 2fg行ksj5--2405 结果为 252405 高难度查找题

作者: 欢欢 时间: 2008-4-9 21:59
谁能不用 sum解决摘录：深山老猫(38677446) 21:51:29
TNND给一个不是SUM的公式出不
深山老猫(38677446) 21:51:31
来
深山老猫(38677446) 21:51:48
我就不相信一定要用SUN
深山老猫(38677446) 21:51:50
SUM
小爪(461699029) 21:51:55
哈哈
深山老猫(38677446) 21:52:05
我们一起打破小爪的神话！
小爪(461699029) 21:52:11
不用sum 只有自定义函数
关则健(549199361) 21:52:12
好
关则健(549199361) 21:52:14
我支技
小爪(461699029) 21:52:43
concatenate是不行的
小爪(461699029) 21:53:05
猫，我走了
小爪(461699029) 21:53:10
886[:50]

作者: andymark 时间: 2008-4-9 22:07
自定义函数算不算函数 ?

作者: andymark 时间: 2008-4-9 22:24
自定义函数

Public Function GetNum(StrValue As String) As String
'用法: GetNum("2fg行ksj5--2405    ")  返回结果:252405

Dim IntLen As Integer
Dim I As Integer
Dim Str As String
Dim StrNum As String
IntLen = Len(StrValue)
For I = 1 To IntLen
   Str = Mid(StrValue, I, 1)
If Asc(Str) > 47 And Asc(Str) < 58 Then
      StrNum = StrNum & Str
End If
  Next I

GetNum = StrNum

End Function

作者: 欢欢 时间: 2008-4-10 17:25
不可以，回答无效！呵呵

作者: pureshadow 时间: 2008-4-10 21:01
爪MM的高难题题,差点没把我脑子想漏了......

[ 本帖最后由 pureshadow 于 2008-4-10 22:55 编辑 ]

作者: pureshadow 时间: 2008-4-10 21:07
[:30] 还是用的SUM

作者: 欢欢 时间: 2008-4-10 22:21
小妖是高手，，，算一个正确的，，，希望后面的不用sum--小爪

作者: Grant 时间: 2008-4-10 22:37
走错地方~look

作者: tmtony 时间: 2008-4-10 22:46
欢欢不让用VBA, 我只能傻眼[:42]

作者: pureshadow 时间: 2008-4-10 22:54
文字合并不能用数组......想不出除了SUM还能用什么........[:30]

作者: xuwenning 时间: 2008-5-7 11:41
见过别人使用SUBSTITUTE()函数来解决但自己还没学会

作者: pureshadow 时间: 2008-5-30 14:20
如果硬是不让用SUM,要加辅助列了.........
如附件
话又说回来,加辅助列,前面就不需要这么复杂的公式了[:30]

作者: 刘志文 时间: 2008-9-28 20:38
很精彩！！[:12] [:11]

作者: andysky 时间: 2009-3-5 16:17
本帖最后由 andysky 于 2009-3-5 17:20 编辑

这也算高难度？方法不少啊
=SUMPRODUCT(MID(0&A1,LARGE(ISNUMBER(--MID(A1,ROW(1:99),1))*ROW(1:99),ROW(1:99))+1,1)*10^ROW(1:99)/10)

=MMULT(TRANSPOSE(MID(0&A1,LARGE(ISNUMBER(--MID(A1,ROW(1:99),1))*ROW(1:99),ROW(1:99))+1,1)*10^ROW(1:99)/10),ROW(1:99)^0)

作者: andysky 时间: 2009-3-5 16:47
不能发贴　我也学学别人出一个“高难度”的题吧
看图
用自定义函数批量改工作表名，而且每个参数要有说明

作者: pureshadow 时间: 2009-3-6 22:55
楼上的是高高手哦，我现在用的2003怀旧版就是andysky的大作，敬礼！

作者: gouweicao78 时间: 2009-4-15 12:50
本帖最后由 gouweicao78 于 2009-4-15 12:55 编辑

希望后面的不用sum--小爪
欢欢发表于 2008-4-10 22:21

不用SUM，改用循环引用也可以，呵呵：
http://www.exceltip.cn/viewthread.php?tid=1948&fromuid=2
[原创]【循环引用】之文本、数字、汉字分离器

作者: KONGYUAN1 时间: 2009-7-22 12:59
2fg行ksj5--24054134=MID(A2,1,1)&MID(A2,8,1)&MID(A2,11,16)结果为2524054134
之前我就用过.不知道算不算正确

作者: 一朵白云 时间: 2010-4-27 18:59
要很好的学习

作者: fnsmydyang 时间: 2010-6-10 22:20
谢谢，长知识了。。。

作者: li-lin3000 时间: 2011-1-14 07:57
值得学习

作者: 刘青梅 时间: 2016-12-4 13:22
值得学习

作者: tgydslr 时间: 2022-1-10 20:28
高版本的可以不用sum

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)