[µo°Ý] ­«ÂЭȴ£¿ô

samwang

½Ð°Ý¦p¦ó¦b¦P¤@­ÓÄæ¦ì¸Ì¡A¿é¤J­«½Æªº¼Æ­È®É´N¥X²{ĵ§i

Hsieh

¦^´_ 1# samwang
=COUNTIF($A:$A,A1)=1

¤U¸ü (35.09 KB)

2013-10-17 14:50

samwang

ÁÂÁ±zªº¨³³tªº¸ÑÃD°ÝÃD¤w¸Ñ¨M
½Ð°Ý¸Ó¦p¦óµ²®×?

genes

¦^´_ 1# samwang

³o­Ó¤]¥i¥H

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.count > 1 Then Exit Sub
   
3. If Application.WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(Target.Row, Target.Column)), Target) > 1 Then
   
4.      Alert = MsgBox(Cells(1, Target.Column) & " Already Exist - Click Yes do delete", vbYesNo)
   
5.      If Alert = vbYes Then
   
6.      Application.Undo
   
7.      Else
   
8.      Target.Interior.ColorIndex = 6
   
9.      Exit Sub
   
10.      End If
    
11. End If
    
12. End Sub

½Æ»s¥N½X

samwang

¦^´_ 4# genes


  ÁÂÁ¤j¤jªº¥t¸Ñ¡A¯uªº¥i¥H¥B¦n¥Î

p212

¬ÛÃö©Ê¥DÃD³sµ² (¡u¸ê®ÆÅçÃÒ¡v¤§³]©w¡u¦Û­q¤½¦¡¡v)¡A¨Ñ¦³¿³½ìªÌ°Ñ¦Ò¡I
http://forum.twbts.com/thread-10603-1-1.html