英语单词助记器（修订版）----------更新在13楼

Vicel · 发表于 2015-3-7 22:37

本帖最后由 Vicel 于 2015-3-14 09:36 编辑

借用ctp_119版主http://club.excelhome.net/thread-904584-1-1.html帖附件修改而成，欢迎指正

英语单词助记器.zip (47.49 KB, 下载次数: 58)

图1.jpg

Vicel · 发表于 2015-3-8 00:02

走过，路过的朋友，都发表下见解呗

发现了小个问题，刚上传的附件在添加新词窗口修改单词词义后，主界面翻页显示时会出错

请下载新附件测试

英语单词助记器（修订版）.zip (47.92 KB, 下载次数: 73)

VBA万岁 · 发表于 2015-3-8 10:25

Vicel 发表于 2015-3-8 00:02
走过，路过的朋友，都发表下见解呗

发现了小个问题，刚上传的附件在添加新词窗口修改单词词义后，主界面 ...

先收藏一下代码，有空再看看。
多谢分享！

代码.zip (48.42 KB, 下载次数: 29)

ctp_119 · 发表于 2015-3-8 12:53

Private Sub TextBox1_Change()
With Me.TextBox1
If VBA.Trim(.Text = "") Then
.Text = ""
Me.TextBox2.Text = ""
Else
For i = 1 To Len(.Text) '遍历文本框中输入的每一个字符
Str = VBA.Mid(.Text, i, 1)
Select Case Str
Case "a" To "z", "A" To "Z", " ", "-" '列出允许输入的字符
Case Else
Beep
.Text = Replace(.Text, Str, "") '如果输入的不是允许的字符，则使用Replace函数替换成空白
End Select
Next i
Set rng = Sheets("单词表").Range("B:B").Find(.Text, , , 1)
If Not rng Is Nothing Then
cr = rng.Offset(0, -1).Resize(1, 3)
Me.TextBox2.Text = cr(1, 3)
Me.CommandButton1.Enabled = True
Me.CommandButton1.Caption = "修改"
Else
Me.TextBox2.Text = ""
Me.CommandButton1.Enabled = True
Me.CommandButton1.Caption = "新增"
End If
End If
End With
End Sub

复制代码

Vicel · 发表于 2015-3-8 16:52

ctp_119 发表于 2015-3-8 12:53

看到不同之处了，代码的20和24行加了Me.CommandButton1.Enabled = True

我原来代码的意思是，发现单词表里存在的记录，只有当词义修改不同后才允许点击修改。因为如果没变化的话，点修改也是多此一举。

鉴于这只是修改词义部分，有一个想法是增加一个删除功能，如果发现英文单词有误，直接删除该序号行记录，然后把最大序号更改为该序号（除非删除的就是最大序号行记录）

Vicel · 发表于 2015-3-8 20:52

Vicel 发表于 2015-3-8 16:52
看到不同之处了，代码的20和24行加了Me.CommandButton1.Enabled = True

我原来代码的意思是，发现单词 ...

增加词条删除功能

英语单词助记器（修订版）.zip (41.56 KB, 下载次数: 67)

yyfy98 · 发表于 2015-3-9 08:48

很了不起，在我电脑上一切正常

Vicel · 发表于 2015-3-9 09:26

yyfy98 发表于 2015-3-9 08:48
很了不起，在我电脑上一切正常

过奖了
希望能指出不足之处以改进

yyfy98 · 发表于 2015-3-9 11:22

Vicel 发表于 2015-3-9 09:26
过奖了
希望能指出不足之处以改进

如果能加入声音哪就是大型软件了

Vicel · 发表于 2015-3-9 14:25

yyfy98 发表于 2015-3-9 11:22
如果能加入声音哪就是大型软件了

谢谢您提的意见！
但这个本人无法实现

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

[讨论] 英语单词助记器（修订版）----------更新在13楼

评分

评分