[已解决]求大咖帮忙写个公式

csq1007

各位老师，工作中遇到要将习惯性的说法变成运算，我是做汽车玻璃的，经常遇到左右对称和不对称的问题。比如：
左右对称各30块，左30右40。单子的数据经常出现的几种情况如下：
玻璃名称      数量   
1                   30
2                 左40
3                 右50
4                对称各60
5                 左70套
6                 左80右90
7                左100右110套（这个表示（100+110）*2=420）
具体问题在附件里

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-20 15:06

Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    Dim k As Integer
    Dim str As String

    k = 1
    str = rng.Text

    '1）求倍数
    If str Like "*套*" Then k = k * 2
    If str Like "*对称各*" Then k = k * 2

    '2）将所有的数相加
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d*\.?\d+"
        Set matchs = .Execute(str)
        For Each match In matchs
            mySum = mySum + Val(match)
        Next
    End With

    '3）输出
    mySum = mySum * k
End Function

带特定字符的单元格求和3.rar (15.11 KB, 下载次数: 8)

2016-4-20 15:04 上传

点击文件名下载附件


颜色部分是修改的地方

跳转到最佳答案楼层

csq1007

自己顶，求大咖帮忙

爱疯

带特定字符的单元格求和2.rar (14.81 KB, 下载次数: 8)

2016-4-19 10:55 上传

点击文件名下载附件



Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    Dim k As Integer
    Dim str As String

    k = 1
    str = rng.Text

    '1）求倍数
    If str Like "*套*" Then k = k * 2
    If str Like "*对称各*" Then k = k * 2

    '2）将所有的数相加
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d+\.?\d+"
        Set matchs = .Execute(str)
        For Each match In matchs
            mySum = mySum + Val(match)
        Next
    End With

    '3）输出
    mySum = mySum * k
End Function


如果B列数据很长，工作表函数可能解决不了。
这是VBA的自定义函数，只适用于目前这几个数据的特征。
如果还有更复杂的特征，则还需改。
关键，还是在于创建数据时，要规范（分离数字和非数字）。

csq1007

爱疯 发表于 2016-4-19 11:01
Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    D ...

老师，您好！非常感谢老师的出手相助。
我试了一下，就我提供的参数，您的公式没有问题，但在实际使用中出现一些错误，比如“左5”显示为0，“左05”就出现数字5了，像这种情况该怎么处理。

csq1007

csq1007 发表于 2016-4-20 13:02
老师，您好！非常感谢老师的出手相助。
我试了一下，就我提供的参数，您的公式没有问题，但在实际使用中 ...

我目前使用的是公式：
=SUMPRODUCT(TEXT(LEFT(TEXT(MID(B2&"a",ROW($1:$19),COLUMN($A:$Y)),),COLUMN($A:$Y)-1),"0;;0;!0")*(MID(1&B2,ROW($1:$19),1)>="福"))*MAX(1,SUM(COUNTIF(B2,{"*对称*","*套*"}))*2)+SUM(B2)
这个公式是从左边开始计算字符的，所以第一个必须是字符，比如“30套”就不认，只好在下单的时候在类似这种单的情况在前面加一个字符“共”
我把我的公式和老师的VB公式放在一张表里，出错的地方标黄底。
我是excel和VB菜鸟，望老师多指教。

csq1007

爱疯 发表于 2016-4-19 11:01
Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    D ...

老师所言既是，刚看见爱疯老师是超级版主，非常感谢！

爱疯

Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    Dim k As Integer
    Dim str As String

    k = 1
    str = rng.Text

    '1）求倍数
    If str Like "*套*" Then k = k * 2
    If str Like "*对称各*" Then k = k * 2

    '2）将所有的数相加
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\d*\.?\d+"
        Set matchs = .Execute(str)
        For Each match In matchs
            mySum = mySum + Val(match)
        Next
    End With

    '3）输出
    mySum = mySum * k
End Function

带特定字符的单元格求和3.rar (15.11 KB, 下载次数: 8)

2016-4-20 15:04 上传

点击文件名下载附件


颜色部分是修改的地方

csq1007

爱疯 发表于 2016-4-20 15:06
Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    Dim k As Inte ...

非常好用，谢谢爱大咖！

csq1007

爱疯 发表于 2016-4-20 15:06
Function mySum(rng As Range) As Double
    Dim matchs As Object, match As Object
    Dim k As Inte ...

为了学习，我正在恶补正则表达式的入门知识。再一次感谢爱疯大咖！