使用复选标记为单元格添加值

Question

我正在尝试创建一个用于向字段中添加文本的宏我想在单击复选标记时将特定文本添加到案例中我有 8 个复选框，每个复选框都会向同一个案例添加不同的文本现在我的代码看起来像这样

Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
    Range("A56").Value = "Test"
    
Else
    Range("A56").Value = " "
    End If
End Sub

问题是，如果我选中 2 个复选标记，它总是替换文本，我希望它添加文本而不是替换它。而且当我取消选中复选标记时，它会删除 case

中的所有内容

我需要它的原因是为了节省时间而不必每次都手动编写它们

我是 excel 编码的新手我很感激你们能给我的任何帮助非常感谢你的时间

Answer 1

所以第一部分：

Range("A56").value = Range("A56").value & " Text"

第二部分我假设真实条目比“测试”更重要，否则你可能会得到一些误报，但这应该工作得很好：


Private Sub CheckBox1_Click()
    With Sheet1 'Change this to the proper sheet codename
        If Me.CheckBox1.Value = True Then
            .Cells(56, 1).Value = .Cells(56, 1).Value & " Testing"
        Else
            If InStr(1, .Cells(56, 1).Value, " Testing") Then
                Dim splitarr As Variant
                splitarr = Split(.Cells(56, 1).Value, " Testing")
                Dim element As Variant
                .Cells(56, 1).Value = ""
                For Each element In splitarr
                    .Cells(56, 1).Value = .Cells(56, 1).Value & element
                Next element
            End If
        End If
    End With
End Sub

您可能希望将输入或删除的字符串设为变量，以便于更改。

使用复选标记为单元格添加值

Using a checkmark to add value to a cell

excel

vba

text

add

checkmark