excel textbox 控件

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:38:56
excel控件中有 textbox1,textbox2,textbox3,textbox4,textbox5 ……等多个控件,怎样做来实现当鼠标移到控件上时该控件内的内容自动选中

如果回答的好再加分！！
1楼的回答其实我已经知道的了。我之所以还要提问，我是想找一个比较简单点的方法，可以写一个判断语句，把几个控件的事件写在一起，望有高人赐教，
提高悬赏了

实现代码如下：

  1. Private Sub CommandButton1_Click()

    MsgBox Worksheets("sheet1").TextBox1.Text
    End Sub    

  2. Private Sub TextBox1_Change()

    Sheet3.Cells(3, 4).Value = TextBox1.Text

    End Sub

    Private Sub UserForm_Initialize()

    TextBox1.Text = Sheet1.Cells(3, 4).Value

    End Sub    

要想写一个判断语句并不难，只要把居中的语句写成一个函数就可以了：

Sub TxtCenter(TextBoxName As TextBox)
TextBoxName.SelStart = 0
TextBoxName.SelLength = Len(TextBoxName.Text)
End Sub

上述函数调用举例：
Private Sub TextBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
TxtCenter TextBox1 '只要一条语句
End Sub

其他的控件textbox2,textbox3,textbox4,textbox5 ……等多个控件的用法同上。

答案补充：如果需要批处理的话就得用控件数组，可是VBA并没有提供控件数组，如果非得使用的话还得牵扯类模块有关问题，相当麻烦。所以还是这样一个一个写吧。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub TextBox1_MouseMove(ByVal Button As