如何解决使用对勾标记为单元格添加值
im试图创建一个宏以将文本添加到字段中 我想要当我单击复选标记为案件添加特定文本时 我有8个复选框,每个复选框将在相同的情况下添加不同的文本 现在我的代码看起来像这样
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Range("A56").Value = "Test"
Else
Range("A56").Value = " "
End If
End Sub
问题是如果我选中2选中标记,它总是替换文本,并且我希望它添加文本而不替换它。而且当我取消选中选中标记时,它会删除所有情况下的
我之所以需要它是为了节省时间,而不必每次都手动编写
我对excel编码非常陌生,我非常感谢你们能给我的任何帮助 非常感谢您的时间
解决方法
第一部分:
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," Testing")
Dim element As Variant
.Cells(56,1).Value = ""
For Each element In splitarr
.Cells(56,1).Value & element
Next element
End If
End If
End With
End Sub
您可能希望将输入或删除的字符串作为变量,以便更容易更改。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。