如何在 Excel 中勾選核取方塊時更改指定儲存格的值或顏色？

本文將介紹如何通過核取方塊更改指定儲存格的值或顏色。例如，當某個核取方塊被勾選時，指定儲存格的值或背景色將自動更改。請按照以下步驟逐步操作來處理它。

使用公式在核取方塊被勾選時更改指定儲存格的值
使用 VBA 程式碼在核取方塊被勾選時更改指定儲存格的值
使用 VBA 程式碼在核取方塊被勾選時更改指定儲存格的顏色

使用公式在核取方塊被勾選時更改指定儲存格的值

假設您需要在核取方塊 1 被勾選時，讓儲存格 A1 填入“test”這個值。而取消勾選時則清空該儲存格。請按照以下步驟操作。

首先，您需要將核取方塊連結到某個儲存格，然後應用公式來實現這一功能。

1. 若要將核取方塊連結到某個儲存格，請選擇它，然後在編輯欄(F)中輸入=儲存格引用並按下 Enter 鍵。這裡我通過在選擇核取方塊後於編輯欄(F)中輸入 =C2 將核取方塊 1 連結到儲存格 C2。

對於 ActiveX 控制項核取方塊，請右鍵單擊它並從右鍵菜單中選擇「屬性」。在屬性對話框中，將連結的儲存格輸入到LinkedCell欄位中，然後關閉對話框。參見截圖：

2. 選擇需要更改其值的儲存格（這裡我選擇 A1），然後在編輯欄(F)中輸入公式 =IF(C2,"Test","")，並按下 Enter 鍵。參見截圖：

備註：在公式中，C2 是核取方塊 1 的連結儲存格，“Test”是核取方塊被勾選時需要在儲存格 A1 中顯示的值。

您可以根據以下截圖所示，在勾選或取消勾選相應核取方塊後看到結果。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用 VBA 程式碼在核取方塊被勾選時更改指定儲存格的值

您也可以使用 VBA 程式碼在核取方塊被勾選時更改指定儲存格的值。請按照以下步驟操作。

1. 右鍵單擊包含需要根據核取方塊更改的儲存格值的工作表標籤，然後從右鍵菜單中選擇檢視程式碼。

2. 在 Microsoft Visual Basic for Applications 視窗中，請將以下 VBA 程式碼複製並粘貼到 程式碼 視窗中。

VBA 程式碼：在核取方塊被勾選時更改指定儲存格的值

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value：", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

備註：在程式碼中，ChekBox1 是核取方塊（ActiveX 控制項）的名稱。您可以根據需要進行更改。

3. 同時按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 視窗。

4. 選擇一個空白儲存格（A1），您希望根據核取方塊更改其值，然後在工作表中勾選核取方塊 1。此時會彈出一個 Kutools for Excel 對話框，請輸入您希望填入所選空白儲存格的值，然後點擊確定按鈕。參見截圖：

然後，指定的值會立即顯示在所選儲存格中。而當取消勾選核取方塊時，該儲存格將變為空白。

備註：此程式碼將在每次勾選核取方塊時提醒您循環輸入文字值。

使用 VBA 程式碼在核取方塊被勾選時更改指定儲存格的顏色

本節將向您展示如何使用 VBA 程式碼在核取方塊被勾選時更改指定儲存格的顏色。

1. 右鍵單擊包含需要根據核取方塊更改的儲存格顏色的工作表標籤，然後從右鍵菜單中選擇檢視程式碼。

2. 在 Microsoft Visual Basic for Applications 視窗中，請將以下 VBA 程式碼複製並粘貼到程式碼視窗中。

VBA 程式碼：在核取方塊被勾選時更改指定儲存格的顏色

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

備註：在程式碼中，ChekBox1 是核取方塊（ActiveX 控制項）的名稱。您可以根據需要進行更改。

3. 選擇需要更改其背景色的儲存格，然後勾選核取方塊。您可以看到所選儲存格的填充顏色已更改為紅色。而在取消勾選核取方塊後，所選儲存格將填充無背景色。參見截圖：

相關文章：

• 如何在 Excel 中使用核取方塊高亮顯示儲存格或整行？
• 如何在 Excel 中勾選核取方塊時插入日期戳記到儲存格中？
• 如何根據 Excel 中的儲存格值使核取方塊被勾選？
• 如何在 Excel 中根據核取方塊篩選數據？
• 如何在 Excel 中隱藏行時隱藏核取方塊？
• 如何在 Excel 中創建帶有多個核取方塊的下拉列表？