Question

我正在做数据输入表格以进行样品分析。

对于1个测试，有几个条件。因此，我打算为从文本框中键入的信息创建弹出验证消息。

最初它可以工作，但过一会儿会弹出错误消息1004，并且所选单元格中没有弹出验证消息。

If Userform.CheckBox2.Value = True Then
ActiveCell.Offset(J, 19).Interior.Color = vbYellow
With ActiveCell.Offset(J, 19).Validation
 .Add Type:=xlValidateInputOnly
 .InputTitle = "additional info"
 .InputMessage = Userform.TextBox9.Text
End With
End If

最初，当此代码起作用时，当我在文本框9中键入数据时，活动单元格突出显示，并且在选择该单元格时弹出验证消息。

现在，活动单元格仍然突出显示，但是没有弹出验证消息以获取其他信息。

不确定为什么最后一次可以使用，但是现在不行了。

Answer 1

当您尝试对已经具有验证的单元格进行验证时，会出现此错误。

只需在设置之前删除现有验证（使用方法.Delete），即可防止1004错误：

With ActiveCell.Offset(J, 19).Validation
    .Delete
    .Add Type:=xlValidateInputOnly
    .InputTitle = "additional info"
    .InputMessage = Userform.TextBox9.Text
End With

如何在用户窗体的文本框中的单元格中输入验证消息？

1 个答案: