我有一个excel工作表，要从中提取出我需要的数据。其中有上海分店，广州分店，成都分店等。前面的代码如下
Sub 提取数据()
Dim aimsheet As Worksheet
Dim r As String
r = InputBox("请输入要查询的分店名，如成都分店", "查询分店")
。。。。
如何添加代码判断当r不等于“成都分店”，“上海分店”，"广州分店"的时候，自动结束整个程序。对了，当出现inputbox的对话框，我点击取消时，为什么程序会报错？点击取消时不会自动结束程序吗？新手，求指点
第1个回答 2013-08-30
On error goto error1 ‘用出错处理程序，这样你就不会收到出错报告了
r = InputBox("请输入要查询的分店名，如成都分店", "查询分店")
select case r
case ”成都分店" :
……'编写你的读取方式
case "查询分店" :
……
……
end select
error1:
'一般出错不执行任何操作，结束程序，这是惯用的方式本回答被网友采纳
r = InputBox("请输入要查询的分店名，如成都分店", "查询分店")
select case r
case ”成都分店" :
……'编写你的读取方式
case "查询分店" :
……
……
end select
error1:
'一般出错不执行任何操作，结束程序，这是惯用的方式本回答被网友采纳
第2个回答 2013-08-30
冒号哪里些下面的代码:
if not r is nothing thenexit sub
end if
if instr("成都分店@上海分店@广州分店",r&"@")=0 then
exit sub
end if本回答被提问者采纳
第3个回答 2013-08-30
生成列表变量，或者将列表保存到一个辅助表里，查询的时候可以先确定是否存在。
没文件不好说
没文件不好说
