使用 VBA 計算具有特定儲存格色彩的儲存格數目
摘要
在 [Microsoft Excel公式] 索引卷標上，我們知道在 [其他函> 數統計] 類別中，有一個稱為 COUNTIF 的函式會計算符合指定條件之範圍內的儲存格數目。 該函式的準則僅限於文字或數位。 不過，使用 VBA，我們可以建立函式來計算具有其他準則的儲存格數目，例如儲存格色彩。
其他資訊
使用 VBA，可以建立使用者定義函式 (UDF) 並儲存到增益集檔案中，以便在其他活頁簿中使用並傳輸到其他電腦。
如何建立 UDF
以下是建立 UDF 以計算儲存格色彩的步驟：
開啟 Microsoft Excel，然後按 Alt+F11 以顯示 [Visual Basic 編輯器] (VBE) 視窗。
在 [ 插入] 功能表上，選取 [模組 ] 以建立模組。 然後輸入下列腳本：
Function CountCcolor(range_data As range, criteria As range) As Long Dim datax As range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End If Next datax End Function關閉 VBE 視窗以返回 Excel。
若要測試 UDF，請建立範例資料，其中包含各種色彩的儲存格資料行。
在儲存格 D3 中，撰寫 函式：
=CountCcolor(range_data,criteria)
在 「range_data」 引數中，選取儲存格 C2 至 C51。
在 「criteria」 引數中，選取儲存格 F1。
按 Enter。 儲存格 F2 的結果為 6。 這表示以藍色著色的儲存格數目為 6。
您可以使用其他色彩進行測試。 使用 [常用填滿色彩]，以您想要從資料中取得的任何色彩來變更單元> 格 F1中的色彩。
您也可以壓縮 UDF，讓函式可以用在另一個活頁簿或另一部電腦上。 若要這樣做，請遵循下列步驟:
步驟 1：儲存活頁簿
a. 選 取 [檔案]，然後選取 [ 另存新檔]。 (視需要選取 [流覽 ]。)
b. 選 取 [Excel Add-In (.xlam) ] 作為格式，並提供檔案名，例如 CountCcolor。
注意事項
您可以將Add-In檔案儲存在您想要的任何地方。 但是，若要將其列為 Excel 程式內的Add-In，請將它儲存到預設位置。 在 Windows 7 中，任何 Microsoft Excel 版本的預設位置為：C：\Users\RADDINI\AppData\Roaming\Microsoft\AddIns
步驟 2：安裝增益集
a. 在您要安裝增益集的電腦上開啟 Microsoft Excel。
b. 在 [開發人員] 索引標籤上選取 [Excel 2013 及更新版本的Excel 載入宏]，以開啟 [Add-Ins] 對話方塊。 (Excel 2010 上的載入宏。)
c. 在 [ 增益集 ] 對話方塊中，選取 [ 流覽]。
d. 移至儲存Add-In檔案的檔案位置， (例如 USB 磁片磁碟機或雲端式資料夾) 。 選擇檔案，然後選取 [ 開啟]。
e. 在 [Add-Ins] 對話方塊中，確定已取消核取增益集核取方塊。 然後選取 [確定]。
Count 儲存格色彩 UDF 已安裝且可供使用。 您可以隨時存取此函式，方法是將游標放在工作表中的任何儲存格中，然後輸入：
=CountCcolor(range_data,criteria)
Community 解決方案內容免責聲明
MICROSOFT CORPORATION 和/或其各自的供應商不會呈現此處所含資訊及相關圖形的適用性、可靠性或精確度。 所有這類資訊和相關圖形都會以「原狀」提供，而不需要任何種類的擔保。 MICROSOFT 和/或其各自的供應商在這裡免責此資訊和相關圖形的所有瑕疵擔保和條件，包括所有隱含的瑕疵擔保和適售性條件、適合特定用途、工作方式、職稱和非侵權。 您特別同意，在任何情況下，MICROSOFT 和/或其供應商都不應該對任何直接、間接、懲罰性、附帶、特殊、衍生性損害或任何損害負責，包括，不限於使用損失、資料或獲利的損害，這些損害是與使用或無法使用此處所包含的資訊和相關圖形相關連線，所致。 不論是根據合約、侵權、過失、嚴格責任，還是即使 MICROSOFT 或其任何供應商都已建議損害的可能性。