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

【问题标题】：how to input validation message in a cell from text box in userform?如何从用户窗体的文本框中在单元格中输入验证消息？
【发布时间】：2019-06-19 16:08:57
【问题描述】：

我正在做一个样本分析的数据输入表。

对于 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 中键入数据时，活动单元格会突出显示，并且当您选择该单元格时会弹出一条验证消息。

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

不知道为什么上次可以，但现在不行了。

【问题讨论】：

不看更多代码就说不出话来。什么是J？

标签： excel vba

【解决方案1】：

当您尝试将验证设置到已具有验证的单元格时，您将收到此错误。

在设置之前简单地删除现有的验证（使用方法.Delete）将防止1004错误：

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

【讨论】：