一個(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