| |
▼ごちゃん さん：
こんにちは
>重複したとき書き込めないようにしたいのですが、どうしたらいいのでしょうか？
>書き込んだ時、コピーした時に入力エラーのような表示を出したいのですが・・・
>
>誰か、分かる方教えてください。よろしくお願いします。
詳しい範囲が判りませんがＡ列を対象としています。
該当のシートモジュールに記載してください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
With Target
If .Column <> 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
End With
Application.EnableEvents = False
For Each c In Target
If WorksheetFunction.CountIf(Columns(1), c.Value) > 1 Then
MsgBox "重複してるよ", vbCritical
c.ClearContents
End If
Next
Application.EnableEvents = True
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
