与 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不加班」保举给你的一又友彩奈リナ最新番号

本站仅提供存储职业，总共实践均由用户发布，如发现存害或侵权实践，请点击举报。