いろいろな方法はあると思うのですが、参考までにWorksheet_Changeイベントを使った例です。
書き込んだセルの上に同じ単語があればメッセージが出ます。
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long If Target.Row = 1 Then Exit Sub If Target.Value = "" Then Exit Sub For i = 1 To Target.Row - 1 If Cells(i, Target.Column).Value = Target.Value Then MsgBox "その単語は既に登録されています。" Exit For End If Next i End Sub
VBAを使わない方法ですが、COUNTIF関数と入力規則を使った方法が次のサイトで紹介されています。
http://www.relief.jp/itnote/archives/000666.php
http://arena.nikkeibp.co.jp/article/tec/excel2/20061121/119814/
VBAのなかでも WorksheetFunction.CountIf で同じように使えますが、今回の場合はCountif関数と入力規則を使った方が簡単で反応が早いと思います。
それができない要因があるなら説明いただければ、答えられる範囲で何かいい方法がないかコメント等で補足します。
なるほど。こういう方法もあるんですね。参考になります。ありがとうございます!
回答者 | 回答 | 受取 | ベストアンサー | 回答時間 | |
---|---|---|---|---|---|
1 | ![]() |
587回 | 476回 | 4回 | 2007-10-26 01:15:49 |
ありがとうございます!