一個excel工作表，如何判斷哪些師傅設(shè)置了數(shù)據(jù)有效性。除了我們前面文章：《怎樣取消和刪除數(shù)據(jù)有效性的方法》中介紹的定位法以外，還可以使用VBA代碼來判斷是否有數(shù)據(jù)有效性設(shè)置。

第一，判斷選取的單元格區(qū)域是否有數(shù)據(jù)有效性設(shè)置

　　步驟一：選擇需要進行判斷的單元格區(qū)域，比如A1：A5

　　步驟二：按ALT+F11組合鍵，打開VBE編輯器。

　　步驟三：單擊“插入”→“模塊”，在新建模塊中復(fù)制下面的代碼：

Sub 數(shù)據(jù)有效性是否判斷()
On Error GoTo 錯誤
If ActiveCell.Validation.Type > 0 Then MsgBox "選區(qū)存在數(shù)據(jù)有效性": Exit Sub
錯誤: MsgBox "選區(qū)沒有數(shù)據(jù)有效性"
End Sub

　　步驟四，按工具欄中的“運行”按鈕。如果選擇的單元格區(qū)域有數(shù)據(jù)有效性設(shè)置，那么彈出消息框：選區(qū)存在數(shù)據(jù)有效性。反之，消息框顯示：選區(qū)沒有數(shù)據(jù)有效性。

第二，判斷一個單元格是否有數(shù)據(jù)有效性設(shè)置

　　參考上面介紹的方法，將代碼改為：

Sub 數(shù)據(jù)有效性是否判斷()
??? On Error GoTo err
??? VT = Range("A7").Validation.Type
??? MsgBox "此單元格設(shè)置了數(shù)據(jù)有效性"
??? Exit Sub
err:
??? MsgBox "此單元格沒有設(shè)置數(shù)據(jù)有效性"
End Sub

　　代碼解釋：代碼以A7單元格來舉例的。其中用Validation.Type判斷，如果 Validation.Type 發(fā)生錯誤，則沒有設(shè)置，如果返回數(shù)字 1—7，則有設(shè)置數(shù)據(jù)有效性。