谜语竞猜（去密码）&词语解释（无密码）

Cqy131 · 发表于 2014-6-22 22:05

本帖最后由 Cqy131 于 2014-6-24 23:05 编辑

谜语竞猜.rar (19.53 KB, 下载次数: 110)

谜语竞猜（去密码）.rar (21.87 KB, 下载次数: 194)

词语解释（无密码）.rar (25.36 KB, 下载次数: 138)

词语解释（修正）.rar (25.65 KB, 下载次数: 159)
谜语竞猜.gif

Cqy131 · 发表于 2014-6-23 20:28

个人感觉这两份还可以啊，谜语竞猜是几个月前做的，词语解释是帮论坛里的一位朋友做的

Cqy131 · 发表于 2014-6-24 17:29

提示代码忘了改了，应该是
Private Sub 提示_Click()
[A2] = "=VLOOKUP(R[-1]C[5],词语!Print_Area,3,0)"
[A2] = [A2].Text
End Sub

Cqy131 · 发表于 2014-6-24 17:30

本帖最后由 Cqy131 于 2014-6-24 17:38 编辑

词语解释（修正）.rar (25.55 KB, 下载次数: 27)
词语解释.gif

Cqy131 · 发表于 2014-6-24 17:42

词语解释.rar (25.65 KB, 下载次数: 38)
重新开始的代码也有点问题

jiangyangjiatai · 发表于 2014-6-25 11:11

挺有意思的，不过数量太少。我们可以自己增加吗？

Cqy131 · 发表于 2014-6-25 12:11

jiangyangjiatai 发表于 2014-6-25 11:11
挺有意思的，不过数量太少。我们可以自己增加吗？

可以啊，谜语竞猜在谜语大全里面添加，词语解释在词语里面添加。

282185277 · 发表于 2014-6-25 15:01

不错啊挺有意思的

定敏 · 发表于 2014-6-25 15:12

词语解释是帮我做的(因为我想仿<中国成语大会>出题的样子出题,所以有了这个思路),在这里再次向楼主表示感谢了.

Cqy131 · 发表于 2014-6-25 17:13

282185277 发表于 2014-6-25 15:01
不错啊挺有意思的

谢谢你的支持

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