作者:乔山办公网日期:
返回目录:excel表格制作
Public i As Integer
Private Sub UserForm_Initialize()
tishi.Visible = False
buhui.Visible = False
看一眼.Visible = False
TextBox1.EnterKeyBehavior = True
TextBox1.MultiLine = True
End Sub
Private Sub kaishi_click()
If kaishi.Caption = "开始" Then
Label1.Caption = Range("b2")
Label2.Caption = Range("c2")
Label3.Caption = Range("d2")
kaishi.Caption = "认识"
tishi.Visible = True
buhui.Visible = True
看一眼.Visible = True
Label1.Visible = False
i = 2
Else
i = i + 1
Label1.Visible = False
Label1.Caption = Range("b" & i)
Label2.Caption = Range("c" & i)
Label3.Caption = Range("d" & i)
End If
End Sub
Private Sub tishi_Click()
Label1.Caption = Left(Range("b" & i), 1)
Label1.Visible = True
If TextBox1.Text = "" Then
TextBox1.Text = Range("b" & i)
Else
TextBox1.Text = TextBox1.Text + Chr(10) + Range("b" & i)
End If
End Sub
Private Sub buhui_Click()
If TextBox1.Text = "" Then
TextBox1.Text = Range("b" & i)
Else
TextBox1.Text = TextBox1.Text + Chr(10) + Range("b" & i)
End If
kaishi_click
End Sub
Private Sub 看一眼_Click()
Label1.Visible = True
End Sub
按你的要求是完成了,但是有几个问题:
1、点“提示”后提示第一个字母,多久后跳转下一个单词?还是不跳转。
2、点了认识后,不需要显示单词进行对比吗?
3、“看一眼”之后进行什么操作?需要自己点击"认识"或者e799bee5baa6e79fa5e98193e78988e69d83332"不会"
单词记不住?我来告诉你
1,标记单词。标上就1,再点变成空的。然后筛选什百么的Excel自带的功能都很方便。
2,发音。这个功能只要点单词就可以了。里面我使用度到的内东西,根据微软的msdn的说明,应该是要2010之后的版本的excel才能使用。开始我还以为这个会需要声音文件库,会很复杂,结容果微软自带TTS。。。
推荐使用英语高手小软件,支持词库导入。