Мне интересно, есть ли способ xlValidateAnyValue
? Я сделал пользовательскую форму для ввода комментария в поле проверки. Так что в основном мне не нужна какая-то определенная проверка, а просто комментарий. Я знаю, как создать комментарий, но я хотел бы сделать это способом проверки.
Private Sub CommandButton25_Click()
With ActiveCell.Validation
.Add Type:=xlValidateWholeNumber
.InputTitle = Me.TextBox1.Value
.InputMessage = Me.TextBox2.Value
End With
Unload InputForm
End Sub