[[20180827132826]]　『別のシートの数字を参照して、そこにない数字が入』（エクセルむずかしい）　ページの最後に飛ぶ

『別のシートの数字を参照して、そこにない数字が入力されたら、エラーのメッセージボックスを表示する』（エクセルむずかしい）

シートAのA列に商品コード、B列に商品名がずらっと入力されてあって、別のシートで商品コードを入力すると隣のセルに商品名が出てくるようにエクセルの式を入力してあるエクセルブックがあります。シートAに載っていない商品コードを別のシートに入力したときに「エラーです」とメッセージボックスが出るようにしたいのですが、どうしたらいいのかさっぱり分かりません。ご教示いただけますと幸いです。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 商品コードの入力欄をデータの入力規則のリストにして元の値をシートAのA列にしてはどうか？
（ねむねむ） 2018/08/27(月) 13:38

メッセージボックスを出すならVBAですね、、

    Private Sub Worksheet_Change(ByVal Target As Range)
        'シート2のA列に入力するとして
        Dim Ws1 As Worksheet, Ws2 As Worksheet
        Set Ws1 = ThisWorkbook.Sheets("Sheet1")
        Set Ws2 = ThisWorkbook.Sheets("Sheet2")

        If Target.Column = 1 And Target.Value <> "" Then
            If Ws1.Range("A:A").Find(Target.Value, LookAt:=xlWhole) Is Nothing Then
                MsgBox "エラーです"
            End If
        End If
    End Sub

ですが、私もねむねむさんの言うとおり、
最初から入力できないようにした方がいいと思います。。
（TAKA） 2018/08/27(月) 13:49

 一応、入力規則の場合でも設定のダイアログでドロップダウンリストから選択するのチェックを外すと、ドロップダウンを
 行わず手入力でリストにないデータの場合にエラーダイアログを出すという運用にもできる。
（ねむねむ） 2018/08/27(月) 14:06

ねむねむさん、TAKAさんありがとうございます！入力規則のリストにして元の値をシートAのA列にするので、十分でした！
（エクセルむずかしい） 2018/08/27(月) 15:46

保存後、エクセルを開いてみると、入力規則が保存されてなく、何回やってもBookを閉じると入力規則が消えてしまいます。自分のエクセルは2013なのですが、編集しようとしている商品コードの載ったエクセルBookは97－2003の形式でした。97-2003のブック形式だと、別のシートを参照する入力規則は保存されないのですよね？？
ということはやっぱりVBAでしょうか？？
（エクセルむずかしい） 2018/08/28(火) 13:50

 シートAのA列に数式-名前の定義で名前を付けて(例えばリスト)、元の値に「=リスト」と名前の定義で付けた名前を指定してみてくれ。
（ねむねむ） 2018/08/28(火) 13:59

数式－名前の定義で名前をつけるときに範囲がブックとか、シート名いろいろが選択肢に出てくるのは何を選択したらいいのでしょうか？
（エクセルむずかしい） 2018/08/28(火) 14:19

 これはブックを選択してくれ。
（ねむねむ） 2018/08/28(火) 14:25

名前の定義でブックを選んで、シートAのA列を選んで名前をつけたものを入力規則の元の値で「=定義した名前」で入れたのですが、エラーのメッセージが出てきません。。
（エクセルむずかしい） 2018/08/28(火) 14:37

 どうも名前を使っている場合、名前の範囲内に空白セルがある場合は入力規則のダイアログで
 空白を無視するのチェックを外さないときちんとチェックが行われないようだ。
 (名前範囲にすべて値が入っている場合は空白を無視するにチェックが入っていてもOK）
（ねむねむ） 2018/08/28(火) 14:49

名前をつけて、入力規則で空白を無視するのチェックを外し、保存して閉じた後、どきどきしながら開いたら、ちゃんと保存されてました！ありがとうございます！！
（エクセルむずかしい） 2018/08/28(火) 15:18

コメント返信：

[ 一覧(最新更新順) ]

[[20180827132826]] 『別のシートの数字を参照して、そこにない数字が入』（エクセルむずかしい） ページの最後に飛ぶ

[[20180827132826]]　『別のシートの数字を参照して、そこにない数字が入』（エクセルむずかしい）　ページの最後に飛ぶ