如何在Excel中將真假值轉換為複選框？

有時，當我們在Excel中擁有真或假值時，您可能需要將它們更改為複選框以進行更好更準確的分析。我們可以使用VBA應用程式解決此任務，因為它無法直接在Excel中完成。閱讀本教程以瞭解如何將Excel中的真假值轉換為複選框。換句話說，如果值為真，則複選框將被選中；如果值為假，則複選框將不被選中。

將Excel中的真假值轉換為複選框

在這裡，我們將首先建立一個VBA模組，然後執行它來完成我們的任務。讓我們來看一個簡單的過程，使用vba應用程式將Excel中的真假值轉換為複選框。

步驟1

讓我們考慮一個Excel表格，其中表格中的資料類似於下圖所示的資料。

現在右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟VBA應用程式，然後單擊“插入”並選擇“模組”。

右鍵單擊 > 檢視程式碼 > 插入 > 模組

步驟2

在下圖所示的文字框中鍵入以下程式程式碼：

程式

Sub ConvertTrueFalseToCheckbox()
'Updated By Nirmal
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub