✔ 最佳答案
每次我地輸入資料去一張 worksheet 既時候, 佢都會引發 worksheet_change 事件, 所以你要寫個 macro 在 你的 worksheet
Private Sub Worksheet_Change(ByVal Target As Range)
.... check 下新輸入既資料同之前果 d 同唔同,
.... 如果有相同就將個 active cell 改返去上一格
End Sub
2007-12-27 20:30:44 補充:
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row > 1 And Target.Column = 1 Then a = Target.Value Set b = Range("A1:A" & Target.Row - 1).find(What:=a) If Not b Is Nothing Then Target.Activate End IfEnd IfEnd Sub
2007-12-27 20:33:25 補充:
上面根據你的假設, 只使用 Col A, 每當你在 Col A 增加一筆資料, 佢會 check 下同前面有無重覆, 如果有, 佢會跳返去之前果格, 如果無, 就會跳落下一格例如, 而家在 A11 輸入一個新的 barcode, 佢會 check 下 A1:A10 有無重覆, 如果有, 佢會跳返去 A11, 如果無, 佢就會落左 A12, 如此類推另外, 為免你在其他 col 入野出問題, 所以佢 limit 左只 check Col A 的 cells 的