VIP學(xué)員的問題，怎么對下面黃色的單元格進(jìn)行求和、計(jì)數(shù)？偏偏學(xué)員還是使用WPS表格，幸運(yùn)的是，盧子找到了財(cái)務(wù)工具箱，里面就有按單元格統(tǒng)計(jì)的功能。
財(cái)務(wù)工具箱，其實(shí)是智能工具箱里面的一個(gè)小功能，點(diǎn)下財(cái)務(wù)工具箱，就自動(dòng)出現(xiàn)一個(gè)新的菜單。
操作很簡單，點(diǎn)財(cái)務(wù)工具箱，按單元格顏色統(tǒng)計(jì)，引用區(qū)域和單元格，保持默認(rèn)不變，確定，結(jié)果就出來。
同理，如果是計(jì)數(shù)，只需將統(tǒng)計(jì)方式改成計(jì)數(shù)就可以。
這個(gè)功能挺好用的，可惜一次只能針對一個(gè)顏色，如果有多個(gè)顏色，需要重復(fù)操作多次。
如果你是使用Excel，剛好有一個(gè)自定義函數(shù)，可以輕松解決。
求和：
計(jì)數(shù)：
=按顏色計(jì)數(shù)($B$6:$J$7,D2) 
語法都很簡單。
=自定義函數(shù)(區(qū)域,帶顏色的單元格) 使用自定義函數(shù)很簡單，點(diǎn)開發(fā)工具，VB，插入模塊，將代碼粘貼進(jìn)去，關(guān)閉窗口就可以使用。
Function 按顏色求和(求和區(qū)域 As Range, 參考單元格 As Range, Optional 顏色類型 As String = "填充") As Double ' 顏色類型："填充"或"字體"，即按照參考單元格的填充色或者字體顏色進(jìn)行匹配 Application.Volatile Set 求和區(qū)域 = Application.Intersect(ActiveSheet.UsedRange, 求和區(qū)域) Dim Rg As Range, Total As Double, Bol As Boolean For Each Rg In 求和區(qū)域 Select Case 顏色類型 Case "填充" Bol = (Rg.Interior.Color = 參考單元格.Interior.Color) Case "字體" Bol = (Rg.Font.Color = 參考單元格.Font.Color) Case Else 按顏色求和 = "第三參數(shù)出錯(cuò)，請檢查確認(rèn)" Exit Function End Select If Bol Then Total = Total + Rg.Value End If Next 按顏色求和 = TotalEnd Function
Function 按顏色計(jì)數(shù)(i As Range, j As Range)'新建一個(gè)自定義函數(shù)，函數(shù)名為 Countc（參數(shù) 1 是一個(gè)區(qū)域 i，參數(shù) 2 也是一個(gè)區(qū)域 j）Dim n As Integer '定義一個(gè)變量 n，變量 n 為數(shù)值Dim k As Range '定義一個(gè)變量 k，變量 k 為區(qū)域For Each k In i '遍歷區(qū)域 i 的所有單元格 If k.Interior.Color = j.Interior.Color Then '如果區(qū)域 i 的第 k 個(gè)單元格顏色與區(qū)域 j 相同 n = n + 1 '用于計(jì)數(shù)的 n 加 1 End IfNext按顏色計(jì)數(shù) = n '將 n 復(fù)制給 Countc，作為這個(gè)函數(shù)的輸出結(jié)果End Function
WPS表格更適合小白，幾乎各種功能都有，機(jī)械性操作就行。而Excel更適合高層次的，更加智能，通過PQ、VBA等實(shí)現(xiàn)很多高難度的問題。
請把「Excel不加班」推薦給你的朋友
|
