文字数字的颜色单元格求和

AA5242

新年好！各位老师帮我看看，，，文字数字的颜色单元格求和

micch

根据颜色来取值，需要辅助判断颜色吧？？另外-40000-10000+.....结果怎么能是正数？

bdlxzhf

先简单学习一下记帐吧。就是加减法。有固定的帐页的。这么记，早晚乱。

AA5242

micch 发表于 2019-2-11 20:36
根据颜色来取值，需要辅助判断颜色吧？？另外-40000-10000+.....结果怎么能是正数？

哦   是负数的-46803

micch

AA5242 发表于 2019-2-11 20:39
哦   是负数的-46803

带文本求数字的和，不难。难的是判断哪些单元格需要求和。

既然是记流水，建议把收入和支出项不要用颜色来区分，因为放在不同的区域，然后在区域内求和就容易多了。否则还是VBA解决你这样的问题更适合。

micch

颜色居然是条件格式，有写条件格式的功夫，还不如设计好的表格格局。代码是初学，练习一下吧

Sub tt()
    ar = Split("工资,飞姐,取,借,公司,转,快递费,搞,购买,帆布,二姐,仓库", ",")
    arr = [A6:c11]
        For Each x In arr
            If Len(x) Then
                n = 0
                    For i = 0 To UBound(ar)
                        n = n + InStr(x, ar(i))
                    Next
                If n Then
                    Do
                        n = n + 1
                        m = Val(Mid(x, n, 9))
                        If m Then Exit Do
                    Loop
                    he = he + m
                 End If
             End If
        Next
    [g3] = he
End Sub
用函数就只会辅助的方法了

1. =IF(COUNT(FIND({"工资","飞姐","取","借","公司","转","快递费","搞","购买","帆布","二姐","仓库"},A3)),LOOKUP(9^9,-RIGHT(0&A3,ROW($1:$9))))

复制代码

AA5242

micch 发表于 2019-2-11 21:20
颜色居然是条件格式，有写条件格式的功夫，还不如设计好的表格格局。代码是初学，练习一下吧

Sub tt()

新年好，多谢你的回答，，后面我会改正改正。

everbest2015

Sub My_Sum()
    Dim ar, br(), Reg As Object, a, r As Double, rg As Range, rng As Range, m&
    r = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    Sheet1.Range("G3") = ""
    Set rg = Sheet1.Range("A3:C" & r + 1)
    r = 0
    Set Reg = CreateObject("Vbscript.Regexp")
    With Reg
        .Global = True
        .Pattern = "[-]?\d*\.?\d+"
        For Each rng In rg
            If rng <> "" Then
            If rng.DisplayFormat.Font.ColorIndex = 5 Then
                m = m + 1
                    r = .Execute(rng.Value)(0)
                    ReDim Preserve br(1 To m)
                    br(m) = r
            End If
            End If
        Next
    End With
    If m > 0 Then
        Sheet1.Range("G3") = Application.Sum(br)
        Set Reg = Nothing
        MsgBox "蓝色字体的单元格的和是:" & Application.Sum(br), , "提示"
    Else
        MsgBox "对不起,数据源区域中没有满足的条件", vbInformation, "警告"
    End If
End Sub

AA5242

everbest2015 发表于 2019-2-12 20:02
Sub My_Sum()
    Dim ar, br(), Reg As Object, a, r As Double, rg As Range, rng As Range, m&
    r  ...

非常好用，，多谢你的回答

leon3131

过来学习下。