彰化一整天的論壇

 找回密碼
 立即註冊
查看: 130|回復: 0

【轉貼】如何檢查單元格是否包含數據驗證?

[複製鏈接]
發表於 2019-3-12 13:51:51 | 顯示全部樓層 |閱讀模式
  1. rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Dim r As Range
  3. Application.EnableEvents = False
  4. On Error Resume Next
  5. Set r = Cells.SpecialCells(xlCellTypeAllValidation)
  6. On Error GoTo 0
  7. If Not r Is Nothing Then
  8. On Error GoTo Whoa
  9. If Not Intersect(Target, r) Is Nothing Then
  10. If Target.Validation.Type = 3 Then
  11. '
  12. '~~> Your code
  13. '
  14. End If
  15. End If
  16. End If
  17. Letscontinue:
  18. Application.EnableEvents = True
  19. Exit Sub
  20. Whoa:
  21. MsgBox Err.Description
  22. Resume Letscontinue
  23. End Sub
複製代碼

文章來源: http://hant.ask.helplib.com/excel/post_4477045
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-8-19 10:19 , Processed in 0.303699 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表