2004921さんのされたいことを例えると次のようなことで宜しいでしょうか。
今、シート1に次のようなデータが入力済として
............ A B C
1 時間 場所 仕事内容
2 10:00 東京 仕事1
3 10:30 東京 仕事2
4 11:00 東京 仕事3
以下の例のように、(1)新たな行へのデータの追加あるいは(2)既に入力した行のデータの変更などの際、時間と場所の両データとも同じになる行ができることを避けたいというでしょうか。
(1)新たな行へのデータの追加の例
............. A B C
1 時間 場所 仕事内容
2 10:00 東京 仕事1
3 10:30 東京 仕事2
4 11:00 東京 仕事3
5 10:00 東京 仕事N ← 2行目のデータとダブルブッキングのため警告を出す
(2)既に入力した行のデータの変更の例
............. A B C
1 時間 場所 仕事内容
2 10:00 東京 仕事1
3 10:30 東京 仕事2
4 10:00 東京 仕事3 ← 2行目のデータとダブルブッキングのため警告を出す
もし、そのようなことでしたら入力直後に警告表示のメッセージを出すことは以下のVBAをシート1のコードにコピペすれば可能です。お試し下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr As Integer
Dim r As Integer
Dim ret As Integer
tr = Target.Row
For r = 2 To Range("A65536").End(xlUp).Row
If r <> tr And Cells(r, 1) = Cells(tr, 1) And Cells(r, 2) = Cells(tr, 2) Then
ret = MsgBox(prompt:=r & "行に同時刻・同場所のデータがあります", Buttons:=vbOKOnly + vbExclamation, Title:="ダブルブッキング")
End If
Next r
End Sub
お礼
お礼がすっかり遅くなり申し訳ありません。 プログラムは難しくて・・・。 でも,これから少しずつ勉強して行きたいと思います。 ありがとうございました。