Board logo

標題: [發問] 重覆值提醒 [打印本頁]
作者: samwang    時間: 2013-10-17 13:22     標題: 重覆值提醒

請問如何在同一個欄位裡，輸入重複的數值時就出現警告
作者: Hsieh    時間: 2013-10-17 14:50

回復 1# samwang
=COUNTIF($A:$A,A1)=1
[attach]16357[/attach]
作者: samwang    時間: 2013-10-17 17:26

謝謝您的迅速的解題問題已解決
請問該如何結案?
作者: genes    時間: 2013-10-18 00:53

回復 1# samwang

這個也可以
  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
複製代碼
作者: samwang    時間: 2013-10-18 07:21

回復 4# genes


  謝謝大大的另解，真的可以且好用
作者: p212    時間: 2013-10-21 08:44

本帖最後由 p212 於 2013-10-21 08:46 編輯

相關性主題連結 (「資料驗證」之設定「自訂公式」)，供有興趣者參考！
http://forum.twbts.com/thread-10603-1-1.html



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