在Excel中選中復選框時，如何更改指定的單元格值或顏色？

本文討論的是通過複選框更改指定單元格的值或顏色。 例如，當選中某個複選框時，指定單元格的值或背景顏色將自動更改。 請按照以下方法逐步進行處理。

使用公式選中復選框時更改指定的單元格值
使用VBA代碼選中復選框時更改指定的單元格值
使用VBA代碼選中復選框時更改指定的單元格顏色

---

使用公式選中復選框時更改指定的單元格值

假設您在選中復選框1時需要用值“ test”填充單元格A1。 並取消選中該複選框時將其空白。 請執行以下操作。

您需要首先將復選框鏈接到某個單元格，然後應用公式來實現。

1.要將復選框鏈接到某個單元格，請選中它，然後在“公式欄”中輸入=單元格引用並按Enter鍵。 在這裡，我通過輸入將復選框1鏈接到單元格C2 = C2 選中復選框後，進入編輯欄。

對於ActiveX控件複選框，請右鍵單擊它並選擇 氟化鈉性能 從右鍵單擊菜單中。 而在 氟化鈉性能 對話框中，將鏈接的單元格輸入到 鏈接單元 字段，然後關閉對話框。 看截圖：

2.選擇您需要更改其值的單元格（此處選擇A1），然後輸入公式 = IF（C2，“ Test”，“”） 進入公式欄，然後按 Enter 鍵。 看截圖：

備註：在公式中，C2是複選框1的鏈接單元格，“測試”是選中該複選框後需要在單元格A1中顯示的值。

選中或取消選中相應的複選框後，您可以看到如下屏幕截圖所示的結果。

---

使用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

備註：在代碼中， 方塊1 是的名字 複選框（ActiveX控件）。 您可以根據需要進行更改。

3。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

4.根據複選框選擇要更改其值的空白單元格（A1），然後在工作表中選中checkbox1。 現在一個 Excel的Kutools 對話框彈出，請在選定的空白單元格中輸入要填充的值，然後單擊 OK 按鈕。 看截圖：

然後，指定的值立即顯示在所選單元格中。 並且取消選中該複選框時，該單元格將為空白。

備註：此代碼將提醒您每次選中復選框時循環輸入文本值。

---

使用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

備註：在代碼中， 方塊1 是的名字 複選框（ActiveX控件）。 您可以根據需要進行更改。

3.選擇一個需要更改其背景顏色的單元格，然後選中該複選框。 您可以看到所選單元格的填充顏色變為紅色。 取消選中該複選框後，所選單元格將不填充背景色。 查看屏幕截圖：

---

相關文章:

• 如何在Excel中使用複選框突出顯示單元格或行？
• 如果在Excel中選中復選框，如何在單元格中插入日期戳？
• 如何根據Excel中的單元格值選中復選框？
• 如何基於Excel中的複選框過濾數據？
• 在Excel中隱藏行時如何隱藏複選框？
• 如何在Excel中創建帶有多個複選框的下拉列表？