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

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

步驟：

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

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

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

4. 輸入以下代碼來實現計數和求和功能：

``` 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. 出現“隱私問題警告”提示，按照步驟處理后再次保存。

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

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

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