| 发布日期：2024-09-28 06:54 点击次数：182 |
与 30万 粉丝一齐学Excel
小程序开发本期为排列三第2024181期开奖，历史上排列三第181期已开出了19期奖号了：
图片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不加班」保举给你的一又友物联网软件开发公司
本站仅提供存储处事，统共实质均由用户发布，如发现存害或侵权实质，请点击举报。