|
こんにちは
>Private Sub Worksheet_Change(ByVal Target As Range)
>
>Dim MyR As Range
>Dim セル As Range
>
> Set MyR = Columns("A:A").SpecialCells(xlCellTypeConstants, 23)
> For Each セル In MyR
> If (Target.Column = 1) And (Target.Value = セル.Value) And _
> (Target.Row <> セル.Row) Then
> Cells(Target.Row, Target.Column).Select
> MsgBox Target.Value & "は、入力済みです"
> Target.Value = ""
> Exit For
> End If
> Next
>
> Set MyR = Nothing
> Set セル = Nothing
>
>End Sub
>
上記の太字の部分の、(Target.Column = 1) を外せばいいんじゃないでしょうか?
違うかな〜?
|
|