[已解决]怎么用vba正则表达式解决这个问题呢？

nancy66317

问题.rar (8.05 KB, 下载次数: 21)

2011-12-22 08:52 上传

点击文件名下载附件 各位高手请帮忙看看！

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-22 17:21

问题.rar (12.92 KB, 下载次数: 15)

2011-12-22 17:21 上传

点击文件名下载附件

1. Function KD(XsCell As Range, Rng As Range) As String
   
2.     Application.Volatile
   
3.     Dim R As New RegExp, S$, I As Byte, Ar
   
4.     S = Rng.Value
   
5.     With R
   
6.         .Global = True
   
7.         .Pattern = "[：，]([\d\.]+)万返([\d\.]+%)(?=，|$)"
   
8.         If .Test(S) Then
   
9.             S = .Replace(S, " $1 $2")
   
10.             Ar = Split(S)
    
11.             For I = 1 To UBound(Ar) Step 2
    
12.                 If CSng(Ar(I) * 10000) > CSng(XsCell.Value) Then
    
13.                     If I = 1 Then
    
14.                         KD = "无扣点"
    
15.                     Else
    
16.                         KD = Ar(I - 1)
    
17.                     End If
    
18.                     Exit For
    
19.                 End If
    
20.             Next
    
21.             If Len(KD) = 0 Then KD = Ar(UBound(Ar))
    
22.         End If
    
23.     End With
    
24. End Function

复制代码

我记得以前处理过这个问题：
看下附件效果。

跳转到最佳答案楼层

上清宫主

是出题考人还是发贴求助？
点扣是返回“销售返利：”“品牌奖励：”“费用支持：”中的第一个而其它两个没作用？

zsx720629

点扣是不包括“品牌奖励”和“费用支持”吗？

yuhe0008

楼主试试用宏表函数协助产生内存数组的公式运算效果（兰版公开课上介绍过类似的方法）
问题.rar (9.2 KB, 下载次数: 9)

2011-12-22 09:49 上传

点击文件名下载附件

nancy66317

呵呵
说出题也行，求助也行吧！反正能解决问题就行

nancy66317

yuhe0008 发表于 2011-12-22 09:50
楼主试试用宏表函数协助产生内存数组的公式运算效果（兰版公开课上介绍过类似的方法）

亲，有点不懂，好像适合用正则表达式解决哈

liuguansky

问题.rar (12.92 KB, 下载次数: 15)

2011-12-22 17:21 上传

点击文件名下载附件

1. Function KD(XsCell As Range, Rng As Range) As String
   
2.     Application.Volatile
   
3.     Dim R As New RegExp, S$, I As Byte, Ar
   
4.     S = Rng.Value
   
5.     With R
   
6.         .Global = True
   
7.         .Pattern = "[：，]([\d\.]+)万返([\d\.]+%)(?=，|$)"
   
8.         If .Test(S) Then
   
9.             S = .Replace(S, " $1 $2")
   
10.             Ar = Split(S)
    
11.             For I = 1 To UBound(Ar) Step 2
    
12.                 If CSng(Ar(I) * 10000) > CSng(XsCell.Value) Then
    
13.                     If I = 1 Then
    
14.                         KD = "无扣点"
    
15.                     Else
    
16.                         KD = Ar(I - 1)
    
17.                     End If
    
18.                     Exit For
    
19.                 End If
    
20.             Next
    
21.             If Len(KD) = 0 Then KD = Ar(UBound(Ar))
    
22.         End If
    
23.     End With
    
24. End Function

复制代码

我记得以前处理过这个问题：
看下附件效果。

nancy66317

liuguansky 发表于 2011-12-22 17:21
我记得以前处理过这个问题：
看下附件效果。

非常感谢!支持老师哈！