[¤À¨É] ¤@­Ó¸ê®ÆÅçÃÒ,¥þ­¶³q¦æ

mhl9mhl9

¤@±isheet¥u¦w±Æ¤@­Ó¤U©Ô¦¡²M³æ,¦ý¦b¥ô¦ó¦ì¸m,³£¥i¥H¥X²{§A·Q­nªº²M³æ
¤U¨ÒÅý§Aselect"AÄæ",¤U©Ô¦¡²M³æ¬O"dataA"
¤U¨ÒÅý§Aselect"BÄæ",¤U©Ô¦¡²M³æ¬O"dataB"
¤U¨ÒÅý§Aselect"CÄæ",¤U©Ô¦¡²M³æ¬O"dataC"......
·íµM,§A¥ý­n³]©wdataA,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