EXCEL教えてください

質問

EXCEL初心者です
EXCEL2007（12.0.6654 5503)SP2を使用しております
もしわかりましたら教えてください

A列には1から連続する数字がはいっています
ただし任意で途中で1からまた始ります
B列には任意の4ケタの数字がはいっています
C列には100か101がはいっています

B列とC列に数字を入力していくとき
A列の1から連続した数字までの間で
B列かつC列に入力した数字が重複してる場合
「すでに入力済みです！」とメッセージを表示させたいです

たとえば以下の場合
一行目と7行目がB列：1000　C列：100でダブってますが
A列をみると1から連続した数字までの間ではないのでこういうときにはメッセージは表示させず
一行目と3行目は「A列が1から連続した数字までの間で」かつ「B列かつC列に入力した数字が重複してる」
のでこういうときにエラーメッセージを表示させたいです

　 　A 　B 　C
1 　1 1000 100
2 　2 4001　101　
3 　3 1000　100
4　　1 2002　100
5　　2 4000　100
6　　3 6001　101
7　　4 1000　100

説明がわかりずらかったらすみません
補足しますのでその旨記載お願いします

回答No.2

keithin · ベストアンサー

前提：
グループを確定するために，Ｂ・Ｃ列に記入するより前にＡ列の番号を記入する
Ａ列番号はどこで１に戻っても構わないが，１に戻った後は間違い無く２，３，４…と順序よく続ける

手順：
Ｂ：Ｃ列を列選択してから，データタブの入力規則を開始する
種類をユーザー設定に変え，下の空欄に
=($A1<>"")*(SUMPRODUCT((OFFSET($B1,1-$A1,0,$A1,1)=$B1)*(OFFSET($C1,1-$A1,0,$A1,1)=$C1))=1)
と記入し，「空白を無視する」のチェックを外してＯＫする。

お礼

「数式はエラーと判断されます。続けますか？」というメッセージがでても
むりやりすすめていったらできました！
ありがとうございました。

補足

回答ありがとうございます。
A列は先に記入するようにして
データの入力規則で数式をいれてみたのですが
「数式はエラーと判断されます。続けますか？」というメッセージがでてきてしまいました＞＜
どうすればいいでしょうか？

回答No.4

imogasi

#1のご回答にのように作業列に「１塊ごと」に連番を関数で振り
２００７ではCOUNTIFSが使えるので、２条件のCOUNTIFSを取り、＞１かどうかでエラー文字列を出すかどうかの式を新たな列に入れてはどうだろう。
本件ではSUMPRODUCTを使った
例データ
A-D列
1 100 1
2 200 1 0
3 300 1 0
4 300 1 1
1 200 2 0
2 400 2 0
3 200 2 1
1 500 3 0
3 200 4 0
4 500 4 0
5 200 4 1
C列は作業列
C列C2は１、C３の式は　=IF(A3=A2+1,C2,MAX($C$2:C2)+1)
下方向に式を複写。
D列はD3に　=SUMPRODUCT(($B$2:B2=B3)*(C$2:C2=C3))
下方向に式を複写。
結果
上記D列。この１の行が質問該当なので、I
F関数をかぶせて
=IF(SUMPRODUCT(($B$2:B2=B3)*(C$2:C2=C3))>>=1,"入力済み","")
A列で不連続例を挙げてみたが、質問には有無を明記してないが、それをするのがよく気が利く人。

回答No.3

tom04

こんばんは！
VBAでの一例です。

↓の画像のように1行目はタイトル行で、データは2行目以降に入力するとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range(Columns(2), Columns(3))) Is Nothing Or _
Selection.Count <> 1 Then Exit Sub
Dim i, j, k As Long
Application.ScreenUpdating = False
For j = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If WorksheetFunction.CountA(Range(Cells(j, 2), Cells(j, 3))) = 2 Then
Cells(j, 4) = Cells(j, 2) & "_" & Cells(j, 3)
End If
Next j
i = Target.Row
If Cells(i, 1) > 1 Then
k = i - Cells(i, 1) + 1
Else
k = i
End If
If WorksheetFunction.CountIf(Range(Cells(k, 4), Cells(i, 4)), _
Cells(i, 2) & "_" & Cells(i, 3)) > 1 Then
MsgBox "すでに入力済みです。"
Target = ""
Target.Select
End If
Application.ScreenUpdating = True
End Sub 'この行まで

※　D列を作業用の列として使用していますので、D列にはデータがないという前提です。
※　D列が目障りであれば「非表示」にしておいてください。
※　メッセージ表示後、もう一度入力セルを空白・選択するようにしています。
（すなわち、重複データは入力できません）
※　入力　→　確定　の時点でマクロが走りますので、すでにデータが入っている場合はメッセージは表示されません。

ご希望の方法でなかったらごめんなさいね。m(_ _)m

回答No.1

mt2008

エラーメッセージではないですが、セルを赤くして重複を警告するのはいかがでしょう。

D列を作業列として使います。
D1：=IF(A1="","",1)
D2以下には：=IF(A2="","",IF(A2<A1,D1+1,D1))
と、入れます、これで連番の塊ごとに番号が振られます。

次に、B：C列を選択して条件付き書式で、
「数式が」
=(1<SUMPRODUCT((B$1:B1=B1)*($D$1:$D1=$D1)))*($A1<>"")
と、設定して条件が真の時の書式を赤く設定します。