一個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ù)有效性。
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標題：判斷單元格是否有數(shù)據(jù)有效性設(shè)置的方法
本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213976.html
相關(guān)文章
