提取文本字符串中最小的数值

lsj128568

laowuwyx 发表于 2011-12-2 09:29
数组。

请问老师，left(,column(a:i)-1)这里为什么要减1
-mid(c2,row(1:50)-1,2)这里为什么也要减1
第一个减1，我理解是把想要数字旁边的非数字字符去掉，可是为什么不用column(a:h);
第二个减1，我理解是因为前面C2&"W"，并了一个"W"，遍历的时候减1就取不到'W'了
是这样吗？还是有点想不通，请老师解惑，谢谢！

yzlsc

香川群子 发表于 2011-12-2 16:10
来个另类，VBA自定义函数方法。
夹杂的字符种类无限制，单元格内容长度无限制。

请教：如果加下面这行声明变量代码，p、q初始值设为多少结果才正确呢？（否则小数会出错）
Dim i As Integer, t As Integer, p As Integer, q As Integer

香川群子

yzlsc 发表于 2011-12-3 17:13
请教：如果加下面这行声明变量代码，p、q初始值设为多少结果才正确呢？（否则小数会出错）
Dim i As Int ...

没必要声明变量。


如果一定要声明，那么当然声明Double啦。

yzlsc

香川群子 发表于 2011-12-3 18:46
没必要声明变量。

谢谢老师及时回复。

200240

huanglicheng 发表于 2011-12-2 17:14
自定义函数供参考

这个不错！
可以把min改为max,average就得到了最大值，平均值了。

200240

wshcw 发表于 2011-12-2 09:26
=MIN(--TEXT(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(C2,"×","m"),"*","m"),"=","m"),"m",REPT( ...

老师:
字符串以汉字开始就不行的哟

香川群子

自定义函数稍作改进，以便通过第二参数设置，分别得到：
1. 最小值
2. 最大值
3. 总和
4. 数值个数
5. 平均值
6. 累计乘积

1. Function EvNum(Txt, Optional k = -1)
   
2.     Txt = "C" & Txt
   
3.     r = 1
   
4.     For i = 1 To Len(Txt)
   
5.         t = Val(Right(Txt, i))
   
6.         If t = 0 Then
   
7.             If p > 0 Then
   
8.                 If p < n Or n = 0 Then n = p
   
9.                 If p > m Or m = 0 Then m = p
   
10.                 s = s + p
    
11.                 r = r * p
    
12.                 c = c + 1
    
13.             End If
    
14.             p = 0
    
15.         Else
    
16.             p = t
    
17.         End If
    
18.     Next
    
19. 
    
20.     If k = 0 Then
    
21.         EvNum = s / c '平均值
    
22.     ElseIf k = 1 Then
    
23.         EvNum = m '最大值
    
24.     ElseIf k = 2 Then
    
25.         EvNum = s '总和
    
26.     ElseIf k = 3 Then
    
27.         EvNum = r '累积(数值连乘积)
    
28.     ElseIf k = -1 Then
    
29.         EvNum = n '最小值
    
30.     ElseIf k = -2 Then
    
31.         EvNum = c '数值个数
    
32.     End If
    
33.    
    
34. End Function
    

复制代码

请看附件

wangyw1863

也收藏了自定义函数

bluexuemei

1. Sub minval()
   
2. Dim i%, arr, brr() As Double, ojs As Object
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "jscript"
   
4. ojs.eval "function gets(str){return str.match(/\d+\.?\d*/g)}"
   
5. For Each Rng In Range("c2", [c65536].End(3))
   
6. arr = Split(ojs.codeobject.gets(Rng.Value), ",")
   
7. ReDim brr(0 To UBound(arr))
   
8. For i = 0 To UBound(arr)
   
9. brr(i) = Val(arr(i))
   
10. Next i
    
11. Rng(1, 3) = Application.min(brr)
    
12. Next
    
13. Stop
    
14. End Sub
    

复制代码

sfcloud

学习了，多谢