[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『重複入力できないようにする』(KISS)
いつも大変お世話になっております
大変お手数と思いますがよろしくお願いいたします
重複入力を禁止するいいアイデアが有れば教えて頂けないでしょうか
D&E&Fのセルの値が入力時重複エラーを出すような感じです
=D&E&F
< 使用 Excel:Excel2010、使用 OS:Windows7 >
D E F 1 1 2 3 2 1 1 2 3 2 1 1 4 1 1 1
たとえば上記の場合、エラーを出すのは4行目だけですか? (se_9) 2014/12/19(金) 11:06
D E F
1 1 2 3
2 1 3 5
3 2 4 7
4 1 2 3
上記の場合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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.