Question

vba文本框控件中的文字怎样自动选中

各位大哥大姐帮帮忙
我现在用 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

Answer 1

问：文本框右侧的向下三角按钮是怎样做出来的？
答：使用“复合框”控件即可。
要求：日历在文本框底部显示
实现：在窗体中将日历控件放在复合框控件之下，调整大小对齐。然后通过日历控件的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，我会回复给你。

Answer 2

最近比较忙，没有常来看，对于你第二个问题我实在没有精力帮你调查了，下面的代码是自动选中的，你参考下吧

With TextBox1
.SelStart = 0
.SelLength = Len(TextBox1.Text)
.SetFocus
End With