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