excel textbox 控件

excel textbox 控件

实现代码如下：
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

开发工具 —— 插入——下面有两组控件，上面一组是表单控件，里面有textbox，下面一组是activex控件，里面也有textbox。如果需要在窗体上使用控件，一般使用下面的acitvex控件。 如果找不到开发工具选项卡，则需要到选项-自定义里面将其显示出来。

要想写一个判断语句并不难，只要把居中的语句写成一个函数就可以了： 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 ……等多个控件的用法同上。