小程序开发资讯 表格按感情乞降、计数，最轻便的步伐，点几下鼠标就措置！
与 30万 粉丝沿途学Excel
app图片
VIP学员的问题，若何对底下黄色的单位格进行乞降、计数？图片
一区号码分析：最近9期该区开出了46个奖号，表现与理论相当，号码012路比为18：14：14，0路号码表现活跃，1、2路号码表现较冷，最近4期该区出现了20个奖号，号码012路比为6：6：8，上期该区表现较冷，出号2个，其中包含0路号码，1路号码：10和2路号码：14，本期注意该区0路号码：06和1路号码：01、10、13，防2路号码全部轮空。
偏巧学员已经使用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不加班」推选给你的一又友小程序开发资讯
本站仅提供存储作事，总共骨子均由用户发布，如发现存害或侵权骨子，请点击举报。