ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¤@±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
lmh

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD