与 30万 粉丝一说念学Excel

小程序开发

龙头分析：上期龙头开出1区号码05，与前期比对点位上升，本期关注龙头点位下降，推荐03。

图片

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不加班」保举给你的一又友开发小程序开发公司

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