Note: The other languages of the website are Google-translated. Back to English

Excel 複選框:在 Excel 中添加、選擇、刪除和使用複選框

複選框是一種交互式工具,用於選擇或取消選擇一個選項,您經常會在 Web 表單或填寫調查時看到它們。 在 Excel 中,您可以通過選中或取消選中使工作表更具動態性和交互性的複選框來添加多種可能性,例如通過複選框創建清單、通過複選框插入動態圖表等。

在本教程中,我將介紹如何插入、選擇、刪除複選框,並將給出一些在 Excel 中使用它們的示例。

目錄:

1. 兩種類型的複選框(Check Box Form 控件 vs. Check Box ActiveX 控件)

2.在Excel中添加一個或多個複選框

3.更改複選框名稱和標題文本

4. 將一個或多個複選框鏈接到單元格

5.選擇一個或多個複選框

6.刪除一個或多個複選框

7. Excel 中的分組複選框

8. 示例:如何在 Excel 中使用複選框


兩種類型的複選框(複選框表單控件與復選框 ActiveX 控件)

要插入複選框,您需要確保“開發人員”選項卡顯示在功能區上。 開發者選項卡默認是不活動的,所以你需要先啟用它。

1. 在 Excel 工作簿中,請單擊 文件 > 選項。 在 Excel選項 對話框,單擊 自訂 色帶,然後檢查 開發人員 選項並單擊 OK 按鈕關閉此對話框。

2。 現在 開發人員 選項卡出現在 Excel 功能區中,如下圖所示。 您可以根據需要從“開發人員”選項卡訪問各種交互式控件。

Microsoft Excel 提供了兩種類型的複選框 -複選框表單控件複選框 ActiveX 控件:

複選框表單控件複選框 ActiveX 控件複選框 ActiveX 控件 在設計上更加靈活,可以作為代碼中的對象使用。 對於我們的日常工作來說,Form Controls 就足夠了,所以我們在大多數情況下都會用到它們。

複選框表單控件與復選框 ActiveX 控件:

  • ActiveX 控件提供更多格式選項,您可以使用它們進行複雜靈活的設計;
  • 表單控件內置在 Excel 中,而 ActiveX 控件是單獨加載的,因此它們可能偶爾會凍結;
  • 某些計算機默認不信任 ActiveX 控件,因此您需要從信任中心手動啟用它們;
  • Check Box ActiveX 控件可以通過 VBA 編輯器以編程方式訪問;
  • ActiveX 僅由 Windows 選項提供,Mac OS 不支持。

備註:我在以下教程中討論的所有復選框都是 複選框表單控件.


在 Excel 中添加一個或多個複選框

要插入一個或多個複選框,本節可能會對您有所幫助。

2.1 插入一個複選框

要插入一個複選框,請執行以下操作:

1。 點擊 開發人員 標籤,然後單擊 插入 來自 控制 組,然後選擇 複選框表單控件. 然後,單擊要插入複選框的單元格,複選框將出現在該單元格附近,請參見屏幕截圖:

2. 然後,將光標放在復選框的選擇框邊緣。 當它變為移動指針時,您可以單擊並將復選框拖動到您需要的單元格中,請參見屏幕截圖:


2.2 插入多個複選框

如果您的工作表中需要多個複選框,這裡將為您討論一些快速方法。

 使用填充句柄選項插入多個複選框

要快速插入多個複選框,如上所述添加一個複選框,然後使用填充句柄選項將復選框填充到其他單元格。

1. 單擊以選中復選框所在的單元格。

2. 向下拖動填充手柄以填充複選框,如下圖所示:


 使用VBA代碼插入多個複選框

以下 VBA 代碼還可以幫助您快速輕鬆地插入複選框列表。 請這樣做:

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

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

VBA代碼:將多個複選框插入到單元格列表中

Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

3。 然後,按 F5 運行此代碼的關鍵。 將彈出一個提示框,提醒您選擇一系列單元格以插入複選框。 看截圖:

4。 然後,點擊 OK 按鈕,複選框被整齊地插入到單元格中,看截圖:


 使用方便的功能插入多個複選框

如果你有 Kutools for Excel,其 批量插入複選框 功能,您可以立即將復選框插入空白單元格或帶有數據的單元格。

安裝後 Kutools for Excel,請這樣做:

1. 選擇要插入複選框的單元格範圍。

2。 然後,點擊 庫工具 > 插入 > 批量插入複選框,請參見屏幕截圖:

3. 然後,選定的單元格將填充有復選框,如下圖所示:

 將復選框插入空白單元格  將復選框插入數據單元格
   

更改複選框名稱和標題文本

在 Excel 中使用複選框時,應區分複選框名稱和標題名稱。 標題名稱是您在復選框旁邊看到的文本,複選框名稱是您在選中復選框時在名稱框中看到的名稱,如下圖所示:

 複選框名稱  字幕名稱
   

要更改字幕名稱,請右鍵單擊複選框,然後選擇 編輯文字 從上下文菜單中,輸入您想要的新名稱,查看屏幕截圖:

要更改複選框名稱,您應該選中復選框,然後在 名稱框 如下圖所示:


將一個或多個複選框鏈接到單元格

使用複選框時,您通常需要將復選框鏈接到單元格。 如果選中該框,則單元格顯示 TRUE,如果未選中,則單元格顯示 FALSE 或為空。 本節將介紹如何將一個或多個複選框鏈接到 Excel 中的單元格。

4.1 將一個複選框鏈接到具有格式控制功能的單元格

要將復選框與某個單元格關聯,請執行以下操作:

1. 右鍵單擊複選框,然後選擇 格式控制 從上下文菜單中,查看屏幕截圖:

2。 在 格式化對象 對話框中的 控制 選項卡,單擊以選擇要鏈接到復選框的單元格 單元鏈接 框,或手動鍵入單元格引用,請參見屏幕截圖:

3。 點擊 OK 關閉對話框,現在,複選框鏈接到特定單元格。 如果選中它,會顯示一個 TRUE,取消選中它,會出現一個 FALSE,如下示例所示:


4.2 使用 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 = "C"
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

備註: 在這段代碼中, I = 2, 號碼 2 是複選框的起始行,並且 xCChar = "C",這封信 C 是您要將復選框鏈接到的列。 您可以根據需要更改它們。

4。 然後,按 F5 運行此代碼的關鍵,活動工作表中的所有復選框立即鏈接到指定的單元格。 選中復選框時,其相關單元格將顯示 TRUE,取消選中復選框,鏈接單元格將顯示 FALSE,見截圖:


選擇一個或多個複選框

要復製或刪除工作表中的複選框,您應該先選中復選框。 要選擇一個或多個複選框,請執行以下操作:

選擇一個複選框:(兩種方式)

  • 右鍵單擊複選框,然後單擊其中的任意位置。
  • OR
  • 按Ctrl 鍵,然後單擊複選框。

選擇多個複選框:

按住 按Ctrl 鍵,然後單擊要一一選擇的複選框。


刪除一個或多個複選框

刪除一個複選框對我們來說很容易,您只需選擇它,然後按鍵盤上的 Delete 鍵。 當涉及到多個複選框時,你怎麼能在 Excel 中做到這一點?

6.1 用VBA代碼刪除多個複選框

要刪除工作表中的所有復選框,您可以應用以下 VBA 代碼。

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

2。 然後,點擊 Insert> 模塊,然後將以下代碼粘貼到 模塊窗口.

VBA代碼:刪除當前工作表中的所有復選框

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3。 然後按 F5 鍵來執行代碼。 將立即刪除特定工作表中的所有復選框。


6.2 用一個簡單的特性刪除多個複選框

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, Kutools for Excel 批量刪除複選框 功能,您只需單擊幾下即可根據需要從一系列選擇或整個工作表中刪除複選框。

安裝後 Kutools for Excel,請這樣做:

1. 選擇包含要刪除的複選框的單元格範圍或整個工作表。

2。 然後,點擊 庫工具 > 刪除 > 批量刪除複選框,請參見屏幕截圖:

3. 然後,所有復選框都會立即從選擇中刪除。


Excel 中的分組複選框

當您想同時移動多個複選框或調整其大小時,將復選框分組可能有助於一次控制所有復選框。 本節將討論如何在 Excel 工作表中對多個複選框進行分組。

7.1 使用 Group 功能對複選框進行分組

在Excel中, 功能可以幫助對多個複選框進行分組,請這樣做:

1。 持有 按Ctrl 鍵,然後單擊以選中要分組的複選框,請參見屏幕截圖:

2. 然後,右鍵單擊並選擇 > 從上下文菜單中,查看屏幕截圖:

3. 並且所有選中的複選框都被分組,您可以一次移動、複製它們。


7.2 使用 Group Box 命令對複選框進行分組

此外,您還可以使用 組合箱 將多個複選框組合在一起。 請執行以下步驟:

1。 去的 開發人員 選項卡,然後單擊 插入 > 組框(表單控件),請參見屏幕截圖:

2. 然後,拖動鼠標繪製一個分組框,並根據需要更改分組框標題名稱:

3. 現在,您可以在組框中插入複選框,單擊 開發人員 > 插入 > 複選框(表單控件),請參見屏幕截圖:

4. 然後拖動鼠標繪製一個複選框,並根據需要修改標題名稱,見截圖

5. 同樣,將其他復選框插入組框,您將獲得如下截圖所示的結果:


示例:如何在 Excel 中使用複選框

通過以上信息,我們了解了複選框的一些基本知識。 在本節中,我將介紹如何在 Excel 中使用複選框進行一些交互式和動態操作。

 示例 1:創建帶有復選框的待辦事項列表

待辦事項列表對我們標記日常工作中已完成的任務很有用。 在典型的待辦事項列表中,選中的已完成任務具有刪除線格式,如下圖所示。 借助複選框,您可以快速創建交互式待辦事項列表。

要創建帶有復選框的待辦事項列表,請執行以下步驟:

1. 請將復選框插入您要使用的單元格列表中,請參見屏幕截圖:(點擊了解如何插入多個複選框)

2. 插入複選框後,您應該將每個複選框鏈接到單獨的單元格。

保養竅門:要將復選框鏈接到單元格,您可以使用 格式控制 功能將它們一一鏈接到單元格,或應用 VBA代碼 一次將它們鏈接到單元格。

3. 將復選框鏈接到單元格後,如果選中復選框,則顯示 TRUE,如果未選中,則顯示 FALSE,請參見截圖:

4. 然後,您應該應用 條件格式 功能來實現以下操作。 選擇要創建待辦事項列表的單元格區域 A2:C8,然後單擊 首頁 > 條件格式 > 新規則新格式規則 對話框。

5。 在 新格式規則 對話框中單擊 使用公式來確定要格式化的單元格選擇規則類型 列錶框,然後輸入此公式 = C2 =真格式化此公式為真的值 文本框,請參見屏幕截圖:

備註: C2 是一個鏈接到復選框的單元格..

6. 然後,繼續點擊 格式 按鈕去 單元格格式 對話框。 在下面 字體 選項卡,檢查 刪除線 來自 影響 部分,並根據需要為已完成的待辦事項列表項指定顏色,請參見屏幕截圖:

7。 然後,點擊 OK > OK 要關閉對話框,現在,當您選中復選框時,其對應的項目將被格式化為刪除線,如下例所示:


 示例 2:創建帶有復選框的動態圖表

有時,您可能需要在一張圖表中顯示大量數據和信息,而圖表會亂七八糟。 在這種情況下,您可以使用複選框在工作表中創建動態圖表。 勾選複選框時,會顯示對應的數據線,不勾選則隱藏數據線,如下圖所示:

本節將討論在 Excel 中創建此類圖表的兩個快速技巧。

 在 Excel 中創建帶有復選框的交互式圖表

通常,在 Excel 中,您可以通過以下步驟使用複選框來創建動態圖表:

1. 插入一些複選框並重命名它們。 在這種情況下,我將插入三個複選框並將它們重命名為 Apple、Orange 和 Peach,見截圖:

2. 然後,您應該將這些複選框鏈接到單元格,請單擊以選中第一個複選框,然後右鍵單擊,然後選擇 格式控制格式化對象 對話框中的 控制 標籤,從 單元鏈接 框,選擇與復選框鏈接的單元格,請參見屏幕截圖:

3. 重複上述步驟,將其他兩個複選框鏈接到其他單元格。 現在,如果您選中復選框,將顯示 TRUE,否則將顯示 FALSE,如下示例所示:

4. 插入並鏈接複選框後,現在您應該準備數據。 將原始數據行和列標題複製到另一個地方,看截圖:

5. 然後應用以下公式:

  • 在單元格中 B13: = IF($ B $ 6,B2,NA()),並拖動填充柄將行從 B13 填充到 G13;
  • 在單元格中 B14: = IF($ B $ 7,B3,NA()),並拖動填充柄將行從B14填充到G14;
  • 在單元格中 B15: = IF($ B $ 8,B4,NA()),然後拖動填充手柄以填充從 B15 到 G15 的行。
  • 如果選中該產品的複選框,這些公式將返回原始數據中的值,如果未選中,則返回 #N/A。 看截圖:

6. 然後,請選擇新的數據范圍從 A12 到 G15,然後,單擊 插入 > 插入折線圖或面積圖 > Line 插入折線圖。

7. 現在,當您選中產品複選框時,它的數據線會出現,當取消選中時,它將消失,如下示例所示:

8. 創建圖表後,您可以將復選框放在圖表上以使其看起來整潔。 單擊選擇繪圖區域,然後拖動以縮小它,見截圖:

9。 然後,按 按Ctrl 鍵選中三個複選框,將它們拖到圖表上,然後右鍵選擇 向前走 > 向前走,請參見屏幕截圖:

10. 複選框顯示在圖表上,繼續按 按Ctrl 鍵一一選中復選框和圖表,右鍵選中 > ,請參見屏幕截圖:

11. 現在,複選框與折線圖鏈接。 當您移動圖表時,複選框也會相應移動。


 使用簡單的功能創建帶有復選框的交互式圖表

上面的方法對你來說可能有些困難,在這裡,我將介紹一個簡單的方法來解決這個任務。 和 Kutools for Excel複選框折線圖 功能,您可以輕鬆創建帶有復選框的動態圖表。

安裝後 Kutools for Excel,請這樣做:

1. 選擇要創建圖表的數據范圍,然後單擊 庫工具 > 圖表 > 類別比較 > 複選框折線圖,請參見屏幕截圖:

2。 然後, 複選框折線圖 彈出對話框,您選擇的數據會自動填充到各自的文本框中,見截圖:

3。 然後,點擊 OK 按鈕,並彈出提示框提醒您將創建一個帶有一些中間數據的隱藏表,請單擊 按鈕,請參見屏幕截圖:

4. 一個帶有復選框的折線圖將被成功創建,見截圖:


 示例 3:創建帶有復選框的下拉列表

對於我們大多數人來說,從下拉列表中選擇多個項目可能是一項常見任務。 一些用戶嘗試創建一個帶有復選框的下拉列表來選擇多項選擇,如下面的演示所示。 遺憾的是,無法在 Excel 中創建帶有復選框的此類下拉列表。 但是,在這裡,我將介紹 Excel 中的兩種類型的多複選框選擇。 一個是帶有復選框的列錶框,另一個是帶有復選框的下拉列表。

 使用列錶框創建帶有復選框的下拉列表

您可以使用列錶框而不是下拉列表來添加複選框以進行多選。 這個過程有點複雜,請按照以下步驟逐步進行:

1. 首先,請插入一個列錶框,點擊 開發人員 > 插入 > 列錶框(ActiveX控件)。 看截圖:

2. 拖動鼠標繪製一個列錶框,然後右鍵單擊它,選擇 氟化鈉性能 從上下文菜單中,查看屏幕截圖:

3。 在 氟化鈉性能 窗格中,請設置如下操作:

  • 列表填充範圍 框,輸入要在列錶框中顯示的數據范圍;
  • 列表樣式 框中選擇 1-fmList StyleOption 從下拉列表中
  • 多選 框中選擇 1 – fmMultiSelectMulti 從下拉列表中
  • 最後,單擊關閉按鈕將其關閉。

4. 然後,單擊要輸出多個選定項目的單元格,並為其指定範圍名稱。 請輸入範圍名稱“輸出項目“ 進入 名稱框 並按下 Enter 鍵,請參見屏幕截圖:

5。 然後,單擊 插入 > 形狀 > 長方形, 拖動鼠標在列錶框上方畫一個矩形,看截圖:

6. 然後右鍵單擊矩形並選擇 分配宏 從上下文菜單中。 看截圖:

7。 在 分配宏 對話框中單擊 全新 按鈕,請參見屏幕截圖:

8. 在開 Microsoft Visual Basic for Applications 窗口,將模塊窗口中的原始代碼替換為以下 VBA 代碼:

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

備註:在上面的代碼中, 矩形1 是形狀名稱, ListBox1 是列錶框的名稱,而 輸出項目 是輸出單元格的範圍名稱。 您可以根據需要進行更改。

9. 然後,關閉代碼窗口。 現在,單擊矩形按鈕將隱藏或顯示列錶框。 顯示列錶框後,選中列錶框中的項目,再次點擊矩形按鈕,將選中的項目輸出到指定單元格中,見下例:


 使用具有驚人功能的複選框創建下拉列表

要將復選框添加到真正的下拉列表中,您可以使用強大的工具 - Kutools for Excel,其 帶有復選框的下拉列表 功能,您可以快速輕鬆地創建帶有多個複選框的下拉列表。

安裝後 Kutools for Excel,請這樣做:

1. 首先,請在選中的單元格中插入正常的下拉列表,看截圖:

2。 然後,點擊 庫工具 > 下拉列表 > 帶有復選框的下拉列表 > 設定。 看截圖:

3。 在 帶有復選框設置的下拉列表 對話框,請進行以下配置。

  • 適用於 部分,指定您將為下拉列表單元格創建複選框的應用範圍。 您可以根據需要指定某個範圍、當前工作表、當前工作簿或所有打開的工作簿;
  • 模式 部分中,選擇 修改 選項;
  • 分離器 框,鍵入分隔符以分隔所選項目;
  • 在 T分機方向 部分,根據您的需要選擇文本方向;
  • 最後,點擊 OK 按鈕。

4。 完成設置後,單擊 庫工具 > 下拉列表 > 帶有復選框的下拉列表 > 啟用複選框的下拉列表 激活此功能。 看截圖:

5. 從現在開始,當您單擊帶有下拉列表的單元格時,將彈出帶有復選框的列表,然後通過選中復選框來選擇項目以將項目輸出到單元格中,如下例所示:

單擊以了解此功能的更多詳細信息...


 示例 4:選中復選框以更改行顏色

您是否曾嘗試根據選中的複選框更改行顏色? 這意味著如果您選中如下圖所示的複選框,相關行的顏色將發生變化,本節將討論在 Excel 中解決此任務的一些技巧。

 選中復選框以使用條件格式更改單元格顏色

要通過選中或取消選中復選框來更改行顏色, 條件格式 Excel 中的功能可以幫您一個忙。 請這樣做:

1. 首先,根據需要將復選框插入單元格列表中,請參見屏幕截圖:

2. 接下來,您應該將這些複選框分別鏈接到每個複選框旁邊的單元格,請參見屏幕截圖:

保養竅門:要將復選框鏈接到單元格,您可以使用 格式控制 功能將它們一一鏈接到單元格,或應用 VBA代碼 一次將它們鏈接到單元格。

3. 然後,選擇要更改行顏色的數據范圍,然後單擊 首頁 > 條件格式 > 新規則,請參見屏幕截圖:

4。 在 新格式規則 對話框中,進行以下操作:

  • 點擊 使用公式來確定要格式化的單元格 在選項 選擇規則類型 框;
  • 輸入此公式 =IF($F2=真,真,假) 格式化此公式為真的值 框;
  • 點擊 格式 按鈕為行指定您喜歡的顏色。

備註: 在公式, $F2 是複選框的第一個鏈接單元格..

5. 選擇顏色後,點擊 OK > OK 關閉對話框,現在,當您選中一個複選框時,相應的行將自動突出顯示,如下面的演示所示:


  選中復選框以使用 VBA 代碼更改行顏色

以下 VBA 代碼還可以幫助您根據選中的複選框更改行顏色,請使用以下代碼:

1. 在要通過複選框突出顯示行的工作表中,右鍵單擊工作表選項卡並選擇 查看代碼 從右鍵單擊菜單中。 看截圖:

2. 將以下代碼複製並粘貼到打開的 Microsoft Visual Basic for Applications 窗口:

VBA代碼:通過選中復選框突出顯示行

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
        Next
    End If
    With xRng
     .Rows.RowHeight = 16
    End With
    xRng.ColumnWidth = 5#
    xRng.Cells(1, 1).Offset(0, 1).Select
    For Each xChk In ActiveSheet.CheckBoxes
      xChk.OnAction = "Sheet2.InsertBgColor"
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
  xName = Right(xChk.Name, Len(xChk.Name) - 10)
  If (xName = Range(xChk.LinkedCell).Row) Then
   If (Range(xChk.LinkedCell) = "True") Then
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
   Else
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
   End If
  End If
Next
End Sub

備註: 在上面的代碼中,在這個腳本中 xChk.OnAction = "Sheet2.InsertBgColor", 您應該更改工作表名稱-Sheet2 對你自己(Sheet2 是工作表的真實名稱,您可以從左側代碼窗口窗格中獲取它)。 看截圖:

3. 然後,將光標放在代碼的第一部分,然後按 F5 鍵來運行代碼。 在彈出 Kutools for Excel 對話框,請選擇要插入複選框的範圍,見截圖:

4。 然後,點擊 OK 按鈕,複選框被插入到選定的單元格中,如下圖所示:

5. 從現在開始,如果您選中一個複選框,相關行將自動著色,如下圖所示:


 示例 5:如果選中復選框,則對單元格值進行計數或求和

如果您有一個帶有復選框列表的數據范圍,現在,您想計算選中復選框的數量或根據選中的複選框對相應的值求和,如下圖所示。 你怎麼能在 Excel 中解決這個任務?

要解決此任務,重要的步驟是將復選框鏈接到數據旁邊的相關單元格。 選中的複選框將在鏈接單元格中顯示 TRUE,否則將顯示 FALSE,然後,您可以使用 count 或 sum 函數根據 TRUE 或 FALSE 值獲取結果。

1. 首先,您應該將復選框單獨鏈接到單元格,如果選中復選框,則顯示 TRUE,如果未選中,則顯示 FALSE,見截圖:

保養竅門:要將復選框鏈接到單元格,您可以使用 格式控制 功能將它們一一鏈接到單元格,或應用 VBA代碼 一次將它們鏈接到單元格。

2. 然後,根據選中的複選框應用以下公式對值進行計數或求和:

通過選中的複選框計算值:

= COUNTIF(D2:D10,TRUE)

備註:在此公式中, D2:D10 是您為複選框設置的鏈接單元格的範圍。

通過選中的複選框對值求和:

= SUMPRODUCT(($ D $ 2:$ D $ 10 = TRUE)* $ C $ 2:$ C $ 10)

備註:在此公式中, D2:D10 是您為複選框設置的鏈接單元格的範圍,並且 C2:C10 是要求和的單元格列表。


 示例 6:如果選中復選框,則返回特定值

如果你有一個複選框,當選中它時,一個特定的值應該出現在一個單元格中,當取消選中它時,會顯示一個空白單元格,如下所示:

要完成這項工作,請這樣做:

1. 首先,您應該將此復選框鏈接到一個單元格。 右鍵單擊複選框,然後選擇 格式控制,在彈出 格式化對象 對話框中的 控制 選項卡,單擊以選擇要與復選框鏈接的單元格 單元鏈接 框,請參見屏幕截圖:

2。 然後,點擊 OK 按鈕關閉對話框。 現在,輸入這個公式: =IF(A5=真,"Extendoffice","") 進入要輸出結果的單元格,然後按 Enter 鍵。

備註:在此公式中, A5 是鏈接到復選框的單元格,“Extendoffice” 是具體的文字,您可以根據需要更改它們。

3. 現在,當您選中復選框時,將顯示特定文本,當取消選中它時,將顯示一個空白單元格,請參見下面的演示:



  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 和保存數據; 拆分單元格內容; 合併重複的行和總和/平均值...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 收藏并快速插入公式,範圍,圖表和圖片; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 數據透視表分組依據 週號,週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
kte選項卡201905
  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 每天將您的工作效率提高50%,並減少數百次鼠標單擊!
officetab底部
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點