与 30万 粉丝一齐学Excel

图片

图片

图片

图片

图片

图片

乞降：

图片

计数：

图片

语法齐很浅易。

使用自界说函数很浅易，点建筑器具，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不加班」保举给你的一又友方便食品

• 花式
• 方便食品
• 需将
• 统计
• 改成