在特殊情況下，公司為解決員工就餐問題，從遠距離的工廠食堂送餐至辦公室。為提前統(tǒng)計用餐人數(shù)、菜品數(shù)量，創(chuàng)建以下表格進行統(tǒng)計，方法可適用于其他工作表格，通過統(tǒng)計指定區(qū)域內(nèi)相同顏色單元格的數(shù)量或數(shù)值求和。結

在特殊情況下，公司為解決員工就餐問題，從遠距離的工廠食堂送餐至辦公室。為提前統(tǒng)計用餐人數(shù)、菜品數(shù)量，創(chuàng)建以下表格進行統(tǒng)計，方法可適用于其他工作表格，通過統(tǒng)計指定區(qū)域內(nèi)相同顏色單元格的數(shù)量或數(shù)值求和。結合VBA代碼和宏實現(xiàn)，根據(jù)單元格背景顏色進行計算，即使位置改變，只需在指定區(qū)域內(nèi)操作。

步驟：

1. 設計好表格，減輕眼睛負擔，避免逐個計數(shù)。

2. 在工作表上右鍵，查看代碼。

3. 在工作表上右鍵，插入模塊。

4. 輸入以下代碼來實現(xiàn)計數(shù)和求和功能：

``` Function CountColor(col As Range, countrange As Range) As Integer Dim cells As Range Application.Volatile For Each cells In countrange If Then CountColor CountColor 1 End If Next cells End Function Function SumColor(col As Range, sumrange As Range) As Integer Dim cells As Range Application.Volatile For Each cells In sumrange If Then SumColor (cells) SumColor End If Next cells End Function ```

5. 保存時會提示“無法在未啟用宏的工作簿中保存以下功能…”，選“否”，保存為“Excel啟用宏的工作簿”。

6. 再次保存為“Excel啟用宏的工作簿”。

7. 出現(xiàn)“隱私問題警告”提示，按照步驟處理后再次保存。

8. 進行各項求和操作，包括有顏色單元格的求和：sumcolor（顏色示例格，求和區(qū)域或列）；countcolor（顏色示例格，求和區(qū)域或列）。

9. 例如，對“中餐”一列中紅色標記的已收款人數(shù)進行求和操作。以A25單元格為顏色示例格，統(tǒng)計B3-B22范圍內(nèi)的紅色單元格數(shù)量。

通過以上步驟，你可以利用Office 2010便捷地實現(xiàn)自動計算指定區(qū)域內(nèi)相同顏色單元格的數(shù)量及求和，提高工作效率。