英语单词助记器！！！------41楼更新

ctp_119 · 发表于 2012-8-10 15:54

本帖最后由 ctp_119 于 2012-8-21 08:31 编辑

因wyfwym的提问（http://club.excelhome.net/forum.php?mod=viewthread&tid=903786&page=1&extra=#pid6193767）而产生的冲动，才编制的！！！
有些功能还有待改进，也不知道wyfwym看见了之后满不满意，希望他能提供一些好的建议。。。。呵呵
助记器.jpg

也欢迎大家提出宝贵的意见！！！

英语单词助记器.rar (28.14 KB, 下载次数: 323)

结局怎么写？ · 发表于 2012-8-10 16:21

这个做的真不错，home 是一个真正知识开放分享的天堂， I AM BEHIND YOU

羊么么 · 发表于 2012-8-10 16:45

不错，支持一下。

win2009 · 发表于 2012-8-11 22:25

在增加个修改按钮，如何看源代码？

ctp_119 · 发表于 2012-8-12 13:43

win2009 发表于 2012-8-11 22:25
在增加个修改按钮，如何看源代码？

你能说说修改按钮的功能否？至于查看源代码的方法很多，第一可以禁用宏，其二，可以在启用宏的同时按住Shift键打开即可。。。

win2009 · 发表于 2012-8-12 16:36

ctp_119 发表于 2012-8-12 13:43
你能说说修改按钮的功能否？至于查看源代码的方法很多，第一可以禁用宏，其二，可以在启用宏的同时按住Sh ...

修改单词和中文，因为输入的时候也许会有错误。

ctp_119 · 发表于 2012-8-12 16:58

win2009 发表于 2012-8-12 16:36
修改单词和中文，因为输入的时候也许会有错误。

哦，这点还真没有考虑到！！！如果真要修改可以回到工作表中修改，其实还有一个功能我还没有完善，就是添加，如果里面有的，就不用添加了，输入单词时要有个提醒。。。呵呵，，，就是时间少，有时间这些都好办。谢谢关注！！！

win2009 · 发表于 2012-8-12 17:03

本帖最后由 win2009 于 2012-8-12 17:18 编辑

ctp_119 发表于 2012-8-12 16:58
哦，这点还真没有考虑到！！！如果真要修改可以回到工作表中修改，其实还有一个功能我还没有完善，就是添 ...

这个东西完善好了很有用，比如学习vba，把vba单词短句存到里边，不断翻看....

ctp_119 · 发表于 2012-8-12 17:10

win2009 发表于 2012-8-12 17:03
这个东西完善好了很有用，比如学习vba，把vba单词短句存到里边，不断翻看....
但是文本框的宽度要长一 ...

呵呵，你还真想的好，，句子我看没有必要，短语是可以的。。滚动条也没有问题，只是程序的设计应用对象不同，那么功能也就不同，，，谢谢你！！！

ctp_119 · 发表于 2012-8-13 07:32

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rng As Range
Set rng = Worksheets("单词表").Range("b:b").Find(TextBox1.Text, Sheets("单词表").[b65536], xlValues, xlWhole, xlByColumns, , True)
If Not rng Is Nothing Then
MsgBox "此单词已存在，请核实后再添加！！！"
TextBox1.Text = ""
End If
End Sub

复制代码

这里对添加新词做一个修正，使得里面已有的不需要再添加进去，及唯一。

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

[原创] 英语单词助记器！！！------41楼更新

评分