题库快搜

zopey · 发表于 2019-8-2 16:41

本帖最后由 zopey 于 2019-8-3 09:44 编辑

从标准题库中，用最少的关键字，快速检索可能答案。

题库快搜.rar (87.48 KB, 下载次数: 155)

2.0版本，工作表【A1】change 事件，支持汉字及拼音首字母查询，两者混合不支持。
关键词自动设置颜色。

题库快搜V2.0.rar (84.26 KB, 下载次数: 264)

killq · 发表于 2019-8-2 18:10

我是来挑bug来的，哈哈。试试搜最后一行的“正确答案：B”中的“正””答““案””：“这四个字符

zopey · 发表于 2019-8-2 19:46

killq 发表于 2019-8-2 18:10
我是来挑bug来的，哈哈。试试搜最后一行的“正确答案：B”中的“正””答““案””：“这四个字符

这是不是叫：“天堂有路你不走，地狱无门闯进来”。

killq · 发表于 2019-8-2 19:53

zopey 发表于 2019-8-2 19:46
这是不是叫：“天堂有路你不走，地狱无门闯进来”。

哈哈，看到大佬，自然要闯一闯了，万一闯过了不就可以出名了嘛

小花鹿 · 发表于 2019-8-2 20:00

我也做过一个答案查询的：

2018泰安普法考试题查询32.rar (155.23 KB, 下载次数: 196)

YZC51 · 发表于 2019-8-2 20:48

楼主好棒！！！

题库快搜.rar (90.13 KB, 下载次数: 95)

zopey · 发表于 2019-8-2 21:24

YZC51 发表于 2019-8-2 20:48
楼主好棒！！！

arr =[a1].resize(k0+10 ,1) 就不会越界了，加神秘字符没必要。

killq · 发表于 2019-8-2 21:38

zopey 发表于 2019-8-2 21:24
arr =[a1].resize(k0+10 ,1) 就不会越界了，加神秘字符没必要。

不是吧？你用”正确“试试

我只是简单跟踪了下，加了下面两句：
If i + j2 > k0 Then Exit For
If j > k0 Then Exit For
应该是不越界了

killq · 发表于 2019-8-2 21:46

YZC51 发表于 2019-8-2 20:48
楼主好棒！！！

晕，是加了空格吧？偷偷把那几个单元格清空了后就又报错了，哈哈

zopey · 发表于 2019-8-2 21:49

killq 发表于 2019-8-2 21:38
不是吧？你用”正确“试试

我只是简单跟踪了下，加了下面两句：

正常情况不会输入“正确答案 ABCD”等字词，可以先放放。
核心是提高答题速度，5楼采用的拼音首字母，应可以节省不少时间。

		自动登录	找回密码
密码			免费注册

[原创] 题库快搜