ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 435|回复: 10

[已解决] 文字数字的颜色单元格求和

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:31 | 显示全部楼层 |阅读模式


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

微信图片_20190211201940.png

工作簿1.zip

9.78 KB, 下载次数: 15

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:36 | 显示全部楼层
根据颜色来取值,需要辅助判断颜色吧??另外-40000-10000+.....结果怎么能是正数?

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:38 | 显示全部楼层
先简单学习一下记帐吧。就是加减法。有固定的帐页的。这么记,早晚乱。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 20:39 | 显示全部楼层
micch 发表于 2019-2-11 20:36
根据颜色来取值,需要辅助判断颜色吧??另外-40000-10000+.....结果怎么能是正数?

哦   是负数的-46803

TA的精华主题

TA的得分主题

发表于 2019-2-11 20:45 | 显示全部楼层
AA5242 发表于 2019-2-11 20:39
哦   是负数的-46803

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

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

评分

参与人数 1财富 +10 收起 理由
满坛皆为吾师 + 10

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-2-11 21:20 | 显示全部楼层
本帖最后由 micch 于 2019-2-11 21:39 编辑

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

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))))
复制代码
CCC.gif

评分

参与人数 1鲜花 +2 收起 理由
AA5242 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-11 22:44 来自手机 | 显示全部楼层
micch 发表于 2019-2-11 21:20
颜色居然是条件格式,有写条件格式的功夫,还不如设计好的表格格局。代码是初学,练习一下吧

Sub tt()

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

TA的精华主题

TA的得分主题

发表于 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 = 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

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-12 22:42 来自手机 | 显示全部楼层
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  ...

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

TA的精华主题

TA的得分主题

发表于 2019-2-13 08:51 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-18 05:27 , Processed in 0.084047 second(s), 20 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表