[分享] 一個資料驗證,全頁通行

mhl9mhl9

一張sheet只安排一個下拉式清單,但在任何位置,都可以出現你想要的清單
下例讓你select"A欄",下拉式清單是"dataA"
下例讓你select"B欄",下拉式清單是"dataB"
下例讓你select"C欄",下拉式清單是"dataC"......
當然,你先要設定dataA,dataB,dataC

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      
      ActiveSheet.UsedRange.Validation.Delete
      Application.EnableEvents = False
      
      Select Case Target.Column
      Case 1
          Target.Cells(1).Validation.Add Type:=xlValidateList, Formula1:="=dataA"
      Case 2
          Target.Cells(1).Validation.Add Type:=xlValidateList, Formula1:="=dataB"
      Case 3
          Target.Cells(1).Validation.Add Type:=xlValidateList, Formula1:="=dataC"
      End Select
      
      Application.EnableEvents = True

End Sub