標題: [分享] 一個資料驗證,全頁通行 [打印本頁]

---

作者: mhl9mhl9    時間: 2013-7-15 22:12     標題: 一個資料驗證,全頁通行

一張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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)