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

[­ì³Ð] ¥HÅçÃÒ¬ö¿ý±z¥H«e¦b¦¹®æ¿é¤J¹L¤°»ò(¾ú¥v¬ö¿ý)

[­ì³Ð] ¥HÅçÃÒ¬ö¿ý±z¥H«e¦b¦¹®æ¿é¤J¹L¤°»ò(¾ú¥v¬ö¿ý)

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2015-3-1 22:59 ½s¿è

©«²¾Âà

¿é¤JÀx¦s®æ«á¦Û°ÊÅܬ°ÅçÃÒ²M³æ.
¦b¦P¤@®æ¿é¦h¦¸·|¦³¦h¦¸ÅçÃÒ²M³æ.¦³¿é¤J¬ö¿ý
¨ì§OªºÀx¦s®æ.¦³¦Û¤vªºÅçÃÒ²M³æ
¥HÅçÃÒ¬ö¿ý±z¥H«e¦b¦¹®æ¿é¤J¹L¤°»ò(¾ú¥v¬ö¿ý)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target.Validation
If .formula1 = "" Then
.Add Type:=xlValidateList, formula1:=Target.Text
.InCellDropdown = True
.ShowInput = False
.ShowError = False
ElseIf InStr(.formula1, Target.Text) = 0 Then
.Modify , , , .formula1 & "," & Target.Text
End If
End With
End Sub

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD