一個excel工作表，如何判斷哪些師傅設置了數據有效性。除了我們前面文章：《怎樣取消和刪除數據有效性的方法》中介紹的定位法以外，還可以使用VBA代碼來判斷是否有數據有效性設置。
第一，判斷選取的單元格區域是否有數據有效性設置
步驟一：選擇需要進行判斷的單元格區域，比如A1：A5
步驟二：按ALT+F11組合鍵，打開VBE編輯器。
步驟三：單擊“插入”→“模塊”，在新建模塊中復制下面的代碼：
Sub 數據有效性是否判斷()
On Error GoTo 錯誤
If ActiveCell.Validation.Type > 0 Then MsgBox "選區存在數據有效性": Exit Sub
錯誤: MsgBox "選區沒有數據有效性"
End Sub
步驟四，按工具欄中的“運行”按鈕。如果選擇的單元格區域有數據有效性設置，那么彈出消息框：選區存在數據有效性。反之，消息框顯示：選區沒有數據有效性。
第二，判斷一個單元格是否有數據有效性設置
參考上面介紹的方法，將代碼改為：
Sub 數據有效性是否判斷()
On Error GoTo err
VT = Range("A7").Validation.Type
MsgBox "此單元格設置了數據有效性"
Exit Sub
err:
MsgBox "此單元格沒有設置數據有效性"
End Sub
代碼解釋：代碼以A7單元格來舉例的。其中用Validation.Type判斷，如果 Validation.Type 發生錯誤，則沒有設置，如果返回數字 1—7，則有設置數據有效性。
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://m.vmgcyvh.cn/
本文標題：判斷單元格是否有數據有效性設置的方法
相關文章
