与 30万 粉丝一皆学Excel自慰 英文

色哥网

图片

VIP学员的问题，何如对底下黄色的单位格进行乞降、计数？

图片

偏巧学员依然使用WPS表格，运气的是，卢子找到了财务器具箱，内部就有按单位格统计的功能。

图片

财务器具箱，其实是智能器具箱内部的一个小功能，点下财务器具箱，就自动出现一个新的菜单。

图片

操作很简便，点财务器具箱，按单位格心境统计，援用区域和单位格，保抓默许不变，详情，效果就出来。

图片

同理，若是是计数，只需将统计样貌改成计数就不错。

图片

这个功能挺好用的，可惜一次只可针对一个心境，若是有多个心境，需要重叠操作屡次。若是你是使用Excel，刚好有一个自界说函数，不错好像解决。

乞降：

=按心境乞降($B$6:$J$7，D2)

图片

计数：

=按心境计数($B$6:$J$7，D2)

图片

语法都很简便。

=自界说函数(区域，带心境的单位格)

使用自界说函数很简便，点建树器具，VB，插入模块，将代码粘贴进去，关闭窗口就不错使用。

图片

Function 按心境乞降(乞降区域 As Range， 参考单位格 As Range， Optional 心境类型 As String = "填充") As Double    ' 心境类型："填充"或"字体"，即按照参考单位格的填充色或者字体心境进行匹配        Application.Volatile    Set 乞降区域 = Application.Intersect(ActiveSheet.UsedRange， 乞降区域)    Dim Rg As Range， Total As Double， Bol As Boolean    For Each Rg In 乞降区域        Select Case 心境类型            Case "填充"                Bol = (Rg.Interior.Color = 参考单位格.Interior.Color)            Case "字体"                Bol = (Rg.Font.Color = 参考单位格.Font.Color)            Case Else                按心境乞降 = "第三参数出错，请查验证明"                Exit Function        End Select                If Bol Then            Total = Total + Rg.Value        End If    Next    按心境乞降 = TotalEnd FunctionFunction 按心境计数(i As Range， j As Range)'新建一个自界说函数，函数名为 Countc（参数 1 是一个区域 i，参数 2 亦然一个区域 j）Dim n As Integer  '界说一个变量 n，变量 n 为数值Dim k As Range    '界说一个变量 k，变量 k 为区域For Each k In i   '遍历区域 i 的通盘单位格    If k.Interior.Color = j.Interior.Color Then    '若是区域 i 的第 k 个单位格心境与区域 j 交流        n = n + 1        '用于计数的 n 加 1    End IfNext按心境计数 = n  '将 n 复制给 Countc，行动这个函数的输出效果End Function

WPS表格更符合小白，险些各式功能都有，机械性操作就行。而Excel更符合高脉络的，愈加智能，通过PQ、VBA等达成许多高难度的问题。

陪你学Excel，一世够不够？

图片

请把「Excel不加班」保举给你的一又友自慰 英文

本站仅提供存储奇迹，通盘本色均由用户发布，如发现存害或侵权本色，请点击举报。