东京热官网

与 30万 粉丝沿途学Excel小黑屋 调教

图片

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

图片

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

图片

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

图片

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

图片

同理，要是是计数，只需将统计阵势改成计数就不错。

图片

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

乞降：

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

图片

计数：

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

图片

porn国产

语法齐很简便。

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

使用自界说函数很简便，点修复用具，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不加班」推选给你的一又友小黑屋 调教

本站仅提供存储就业，整个试验均由用户发布，如发现存害或侵权试验，请点击举报。