[[20141219105020]]　『重複入力できないようにする』（KISS）　ページの最後に飛ぶ

『重複入力できないようにする』（KISS）

いつも大変お世話になっております

大変お手数と思いますがよろしくお願いいたします

重複入力を禁止するいいアイデアが有れば教えて頂けないでしょうか

Ｄ＆E＆Ｆのセルの値が入力時重複エラーを出すような感じです
=D&E&F

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 たとえば上記の場合、エラーを出すのは4行目だけですか？
（se_9） 2014/12/19(金) 11:06

se_9様
説明不足ですいません

　　　　Ｄ　　　E　　　Ｆ
１　　　１　　　２　　　３
２　　　１　　　３　　　５
３　　　２　　　４　　　７
４　　　１　　　２　　　３

上記の場合4の時にエラーにしたいのですが
よろしくお願いいたします　

（KISS） 2014/12/19(金) 12:21

 DEF列を選択してデータ-データツール-データの入力規則を開き、「入力値の種類」に「ユーザー定義」、「数式」に
 =COUNTIFS($D:$D,$D1,$E:$E,$E1,$F:$F,$F1)=1
 と設定してはどうか？

 なお、エラーメッセージを指定したい場合は入力規則のダイアログの「エラーメッセージ」タブで設定してくれ。
（ねむねむ） 2014/12/19(金) 13:11

マクロで実現する例。重複行の背景色を変えて、注意を促す。

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long
    Dim j As Long

    If Target.Column < 4 Or 6 < Target.Column Then Exit Sub
    Target.CurrentRegion.Interior.ColorIndex = 0

    For i = Target.CurrentRegion.Row To Target.CurrentRegion.Row + Target.CurrentRegion.Rows.Count - 1
        If i <> Target.Row Then
            If Cells(Target.Row, 4).Value = Cells(i, 4).Value And _
               Cells(Target.Row, 5).Value = Cells(i, 5).Value And _
               Cells(Target.Row, 6).Value = Cells(i, 6).Value Then
                Range(Cells(i, 4), Cells(i, 6)).Interior.ColorIndex = 6
                Range(Cells(Target.Row, 4), Cells(Target.Row, 6)).Interior.ColorIndex = 6
                Exit Sub
            End If
        End If
    Next i
 End Sub
（???） 2014/12/19(金) 13:23

ねむねむ様　???様

ご指導有難うございました

助かりました
（KISS） 2014/12/19(金) 16:53

コメント返信：

[ 一覧(最新更新順) ]

[[20141219105020]] 『重複入力できないようにする』（KISS） ページの最後に飛ぶ

[[20141219105020]]　『重複入力できないようにする』（KISS）　ページの最後に飛ぶ