求助!EXCEL数字提取

山菊花 · 发表于 2008-11-3 10:21

把其中“数字提取 =' Val(sz)”改为“数字提取 = sz ”就行。

Public Function 数字提取(cTxt As String)

Dim sz$, x$ '声明变量

For i = 1 To Len(cTxt) '循环文本中每一个字符
      x = Mid(cTxt, i, 1) '取出当前位置的字符
      If (x = "％" Or x = "%") And IsNumeric(sz) Then '如果当前字符为%，并且变量sz是数字
         sz = sz / 100 '将数字除以100
         Exit For '然后跳出循环

      ElseIf x = "-" Then '如果当前位置上的字符为“-”
         sz = "-" '给变量赋值“-”

      ElseIf x = "." Or IsNumeric(x) Then '如果当前字符是“.”或一个数字
         sz = sz & x '将这个字符(“.”或数字)连接在变量 sz 的后面
         If sz <> "-" And Not IsNumeric(sz) Then sz = "" '如果保存结果不是数字，将其清除
      Else '如果当前字符为其它字符
         If IsNumeric(sz) Then Exit For '如果变量 sz 是一个数字，则结束循环
         sz = "" '如果还没提取出数字，将sz清空，继续循环
      End If
Next

'循环结束后
If IsNumeric(sz) Then '如果变量 sz 是一个数字
      If Left(sz, 1) = "." Then sz = 0 & sz '如果第一位是小数点，在前面加个0
      数字提取 = sz '将结果赋给函数名，输出到单元格中
Else '否则(变量 sz 不是一个数字)
      数字提取 = "" '输出一个空文本
End If

End Function

makelot · 发表于 2008-11-3 13:05

啊！原来这样简单就成了，真是大侠。现在这个提取数字的函数的适应力就比较强了，感谢山菊花版主！
另外，我不太懂得编程，顺便想问几个在大家看来可能不是问题的问题：
1. Basic 语言中的 Exit for 是中断此次循环进入下一个循环，还是退出整个循环？
2. 几个 If 语句嵌套，是否可以共用一个 End if 结束？
3. 有没有 End for 或 Exit if 语句 ?
谢谢！

山菊花 · 发表于 2008-11-3 14:40

1、Exit For 退出本层循环
2、不可以

多层For 循环可以共用一个 Next 结束语句。如：
For i = 1 To 10
For j = 1 To 10
……
Next j, i　’后面用逗号将计数器变量分开
　
3、没有

makelot · 发表于 2008-11-3 15:52

看来我原来理解错了，根据您的解答，我把程序的嵌套问题理了一下，不知我分析得对不对，见下面的Word附件。
如果我理解错了，希望能帮我改过来。占用了您太多的时间，真过意不去！

[ 本帖最后由 makelot 于 2008-11-3 15:55 编辑 ]

山菊花 · 发表于 2008-11-3 18:04

理解正确。
编写代码，可用缩进的格式使程序的结构更加分明。选择 For 与对应 Next 之间的所有代码行，按 Tab 或点击菜单“编辑—缩进”。如10楼所示。

makelot · 发表于 2008-11-3 18:30

最想说的只有两个字：佩服！
到此为止这个问题可以说得到了比较圆满的解决，这段时间山菊花斑竹高超的水平、火热的心肠以及旺盛的精力，都给我留下了深刻的印象，也使我学到了不少东西。最后，真诚地说一声：谢谢！

wshcw · 发表于 2008-11-6 17:08

这贴要求比我的那个主题要简单一些.

wshcw · 发表于 2008-11-6 17:30

原帖由 makelot 于 2008-11-1 02:53 发表
见附件，关键是负号，我怎么也搞不定，苦恼ing……
希望大侠出手相助！

不太标准的数组公式(67个字符):
=LOOKUP(9^99,--MID(B5,MATCH(,MID(B5,COLUMN(1:1),2)*0,),ROW($1:15)))

makelot · 发表于 2008-11-6 17:54

原帖由 wshcw 于 2008-11-6 17:30 发表

不太标准的数组公式(67个字符):
=LOOKUP(9^99,--MID(B5,MATCH(,MID(B5,COLUMN(1:1),2)*0,),ROW($1:15)))

这个公式有一定的杀伤力，不过你再把它用到9楼的附件上试试

shaowu459 · 发表于 2008-11-6 18:01

nbe12.368mnbnbr
冰箱5台
mny-2.358ny
muy0000128nm
n-258cm
021.3698
ID证：130702197611280312
手机：13520189672
电话：008631053820339
就这几个个数据来说提取不成问题，难的是通用，和达到字符的要求。

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

求助!EXCEL数字提取

回复 11楼 makelot 的帖子

回复 13楼 makelot 的帖子