Excel的数据有用性验证是一个有用的工具，但会需要我们向使用数据单元格提前设定有用性验证规则。这样一来使数据的有用性验证功能不能使用在VBA编程中。下面介绍如安在工作表中使用Change事件来创建数据有用性验证过程。监视单元格区域验证数据输入的有用性，利用Excel数据有用性验证功能，保证用户在粘贴数据时，进行数据有用性验证，实例如下
Private Sub WkshtChg (ByVal Target As Range)
Dim VT As Long
＇Do all cells in the validation range
＇still have validation?
On Error Resume Next
VT=Range ("InputRange").Validation.Type
If Err. Number <>0 ThenApplication. UndoMsgBox "Your last operation was canceled. "&-
＂It would have deleted data validation rules. ", vbCritical
End If
End Sub这个事件过程检查应当包含数据有用性验证规则的单元格区域（名为InputRange)内的验证范例。假如VT变量包含一个错误，这意味着InputRange中的一个或多个单元格不再包含数据有用性验证。换言之，工作表的改变大概是由于数据被复制到包含数据有用性验证的单元格区域中引的。假如是这样，那么代码会执行Application 对象的Undo方法，撤消用户的行为。
留意：仅当验证单元格区域的所有单元格包含相同的数据验证范例时，该过程才能正确工作。留意：使用该过程的另一个好处是Undo堆栈不会被销毁。
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。 |
