用VBA判断单元格内容是否是A、B、C、D或a、b、c、d!

Question

我有一个表册，表中有相单元格只允许填写A、B、C、D或a、b、c、d，现在想校验表中填写的是不是这些内容，我的代码是：
If Sheets("校舍").Cells(z, 6) <> a Or Sheets("校舍").Cells(z, 6) <> b Or Sheets("校舍").Cells(z, 6) <> c Or Sheets("校舍").Cells(z, 6) <> d Then Worksheets(Sheets.Count).Cells(Worksheets(Sheets.Count).Range("b65536").End(3).Row + 1, 2) = "【校舍】第【" & z & "】行第6列填写有误！"
End If

我就是在表中填a、b、c、d，提示都报错！或是把代码中的a、b、c、d全部换成大写的A、B、C、D，在表中也填写大写的A、B、C、D，仍然报错！
.
这个校验出来始终有问题！请高人指点一下！
我给出的代码没有复制for ……next……循环的！

Answer 1

If Sheets("校舍").Cells(z, 6) <> a Or Sheets("校舍").Cells(z, 6) <> b Or Sheets("校舍").Cells(z, 6) <> c Or Sheets("校舍").Cells(z, 6) <> d Then
a b c d 要加引号~ 变为 "a" "b" "c" "d"

或者简化一下
if Instr(1, "abcdABCD", Sheets("校舍").Cells(z, 6))<>0 then本回答被提问者和网友采纳

Answer 2

报错的原因估计是变量z没有赋值或是0或是字符等。即使不报错，你也无法得到正确结果，因为你的abcd没用引号，就会按变量处理。

Answer 3

单个abcd是变量，你这儿应该弄成字符串"a"等等