|
>学生ですさん、こんばんわ。
BOTTA さんのをマクロにするとこんなかんじ。
>重複禁止なら、入力規則。
>VBAではありませんが、
>[#3699]を参照してみて下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then
'MsgBox .Address, vbExclamation, "複数セルは対象外"
ElseIf Target.Value = "" Then
'MsgBox .Address, vbExclamation, "セルクリアも対象外"
Else
Application.EnableEvents = False
If Application.WorksheetFunction. _
CountIf(Columns("A"), Target.Value) > 1 Then
MsgBox Target.Value, vbInformation, "重複"
.Select
.ClearContents
End If
Application.EnableEvents = True
End If
End With
End Sub
解決後のようですが。
|
|