如何將復選框鏈接到Excel中的多個單元格？

將復選框鏈接到多個相對單元格可以幫助您快速輕鬆地進行一些計算，而您只需要對選中或未選中的單元格進行求和，計數或平均。 但是，您是否曾經嘗試在工作表中一次將復選框鏈接到多個單元格？

一對一地將復選框鏈接到多個單元格

使用VBA代碼一次將復選框鏈接到多個單元

一對一地將復選框鏈接到多個單元格

實際上，要將復選框鏈接到特定的單元格，您可以應用一個簡單的公式來手動鏈接它們。

1。 在工作表中插入複選框後，要選擇該複選框，請按 按Ctrl 鍵，然後單擊要鏈接到其他單元格的第一個複選框。

2.然後在編輯欄中鍵入等號 =，然後單擊要將復選框鏈接到的一個單元格，例如B2，請參見屏幕截圖：

3。 然後按 Enter 鍵，現在，當您選中此復選框時，將顯示鏈接的單元格 TRUE，如果取消選中它將顯示 假，請參見屏幕截圖：

4。 重複上述步驟，一個接一個地鏈接其他復選框。

使用VBA代碼一次將復選框鏈接到多個單元

如果需要將成千上萬的複選框鏈接到其他單元格，則第一種方法將無法有效工作，要將它們一次鏈接到多個單元格，可以應用以下VBA代碼。 請這樣做：

1。 轉到帶有復選框列表的工作表。

2。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口.

3。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

VBA代碼：一次將復選框鏈接到多個單元

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "B"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

4。 然後按 F5 鍵以運行此代碼，活動工作表中的所有復選框均已鏈接到單元格，當您選中該複選框時，其相對單元格將顯示 TRUE，如果清除複選框，則鏈接的單元格應顯示 假，請參見屏幕截圖：

備註：在上面的代碼中， I = 2， 號碼 2 是複選框的起始行，並且是字母 B 是您需要將復選框鏈接到的列位置。 您可以根據需要更改它們。

相關文章：

如何在Excel中使用單個複選框選擇所有復選框？

如何在Excel中快速插入多個複選框？

如何在Excel中快速刪除多個複選框？