vba文本框控件中的文字怎样自动选中
各位大哥大姐帮帮忙我现在用excel做个盘点查询器,当用扫描枪向文本框inputText中输入数据后.通过触发_change事件查询数据,但是要怎样设置使文本框中的文字自...
各位大哥大姐帮帮忙
我现在用 excel做个盘点查询器,当用扫描枪向文本框inputText中输入数据后.通过触发_change事件查询数据,但是要怎样设置使文本框中的文字自动选中,这样我可以周而复始的查询呢
当我在Vba文本控件中输入数字时 程序就会查询excel文件并读出第二列的文字对应的声音文件。但现在程序查询一次后,想要查询下一个记录时必须先清除文本框中的文字,要怎样让文本框中的文字自动选中呢?另外这里用_chang事件触发程序好像有点问题,有没有更好的方法,刚开始学vba请帮忙!?
Private Sub FindBox_Change()
Dim findcell As Range
Dim lookcell As Range
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Set findcell = ActiveSheet.Cells.Find(FindBox.Value,...)
If findcell Is Nothing Then
WAVFile = "\无此订单.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Set lookcell = Cells(findcell.Row, "b")
Select Case lookcell.Value
Case "one"
WAVFile = "\1.wav"
......
End Select
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Sub 展开
我现在用 excel做个盘点查询器,当用扫描枪向文本框inputText中输入数据后.通过触发_change事件查询数据,但是要怎样设置使文本框中的文字自动选中,这样我可以周而复始的查询呢
当我在Vba文本控件中输入数字时 程序就会查询excel文件并读出第二列的文字对应的声音文件。但现在程序查询一次后,想要查询下一个记录时必须先清除文本框中的文字,要怎样让文本框中的文字自动选中呢?另外这里用_chang事件触发程序好像有点问题,有没有更好的方法,刚开始学vba请帮忙!?
Private Sub FindBox_Change()
Dim findcell As Range
Dim lookcell As Range
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Set findcell = ActiveSheet.Cells.Find(FindBox.Value,...)
If findcell Is Nothing Then
WAVFile = "\无此订单.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Set lookcell = Cells(findcell.Row, "b")
Select Case lookcell.Value
Case "one"
WAVFile = "\1.wav"
......
End Select
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Sub 展开
展开全部
问:文本框右侧的向下三角按钮是怎样做出来的?
答:使用“复合框”控件即可。
要求:日历在文本框底部显示
实现:在窗体中将日历控件放在复合框控件之下,调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。
功能说明:双击“复合框”显示,再次双击隐藏。在日历上选择日期后,双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。
功能代码:
private
sub
calendar1_dblclick()
me.combobox1.value
=
me.calendar1.value
me.calendar1.visible
=
false
end
sub
private
sub
combobox1_dblclick(byval
cancel
as
msforms.returnboolean)
me.calendar1.visible
=
not
me.calendar1.visible
end
sub
private
sub
userform_initialize()
me.calendar1.visible
=
false
end
sub
注:其中“复合框”的控件名称为combobox1,日历的控件名称为
calendar1.
你可以直接新建窗体,拖入一个复合框和一个日历控件,双击窗体后将以上代码复制粘贴到代码区域即可。
以上可以实现你要的功能。如需示例附件,请发email到atraction@qq.com,我会回复给你。
答:使用“复合框”控件即可。
要求:日历在文本框底部显示
实现:在窗体中将日历控件放在复合框控件之下,调整大小对齐。然后通过日历控件的visible属性实现日历的显示与隐藏。
功能说明:双击“复合框”显示,再次双击隐藏。在日历上选择日期后,双击日历将选择的日期输入复合框。窗体打开后日历控件默认不显示。
功能代码:
private
sub
calendar1_dblclick()
me.combobox1.value
=
me.calendar1.value
me.calendar1.visible
=
false
end
sub
private
sub
combobox1_dblclick(byval
cancel
as
msforms.returnboolean)
me.calendar1.visible
=
not
me.calendar1.visible
end
sub
private
sub
userform_initialize()
me.calendar1.visible
=
false
end
sub
注:其中“复合框”的控件名称为combobox1,日历的控件名称为
calendar1.
你可以直接新建窗体,拖入一个复合框和一个日历控件,双击窗体后将以上代码复制粘贴到代码区域即可。
以上可以实现你要的功能。如需示例附件,请发email到atraction@qq.com,我会回复给你。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |