请教高手:vba 如何选择当前选择的控件(对象)

用控件数组,就只要一个事件了
Private Sub Text1_Change(Index As Integer)
If IsNumeric(Text1(Index)Text) = False And Text1(Index)Text <> "" Then
MsgBox "请输入数值"
Text1(Index)SetFocus
End If
End Sub
或者用这个事件:
Private Sub Text1_LostFocus(Index As Integer)
If IsNumeric(Text1(Index)Text) = False And Text1(Index)Text <> "" Then
MsgBox "请输入数值"
Text1(Index)SetFocus
End If
End Sub
也可以直接控制输入的字符就是数值,用这个事件
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
str1 = "0123456789-"
If KeyAscii = 8 Then Exit Sub
If InStr(str1, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

控件除了有属性以外，也有自己的方法。窗体设计中常用到的方法是:Load方法。加载窗体，但不在屏幕上显示。它和Unload方法相对。Unload方法。卸载窗体，既从屏幕上也从内存中清除窗体。Show方法。加载窗体并在屏幕上显示窗体。它和Hide方法相对。Hide方法从屏幕上隐藏窗体，但是在内存中保存窗体的信息。Move方法。移动窗体，必须有坐标值。Load方法主要用来加载其他窗体。一般说一个程序使用一个窗体基本能满足设计需要，但是有时为了设计更加人性化的界面，需要同时使用多个窗体。这时可以使用Load方法。Load方法和Show方法的主要区别是:在Load方法加载完窗体后，窗体井不显示出来，只是加载于内存中当需要显示窗体时，就要用到Show方法。使用Show方法的前提是窗体已经加载于内存中。如果在使用Show方法之前没有使用Load方法，Show方法会自动首先调用Load方法。例如，以下程序的作用就是在窗体一初始化时，调用窗体一的Load方法加载窗体二，然后调用窗体二的Show方法让窗体二显示出来:Private Sub UserForm Initialize()Load UserForm2UserForm2 ShowEnd Sub

OLEObject 对象
请参阅 属性 方法 事件 特性
Sheets
OLEObjects (OLEObject)
Borders (Border)
Interior
返回工作表中一个 ActiveX 控件或者一个链接式或内嵌 OLE 对象。OLEObject 对象是 OLEObjects 集合的成员。OLEObjects 集合中包含单张工作表中的所有 OLE 对象。
OLEObject 对象的用法
可用 OLEObjects(index) 返回一个 OLEObject 对象，其中 index 为对象名称或编号。下例删除 Sheet1 中的 OLE 对象一。
Worksheets("sheet1")OLEObjects(1)Delete
下例删除名称为“ListBox1”的 OLE 对象。
Worksheets("sheet1")OLEObjects("ListBox1")Delete
说明
工作表上的 ActiveX 控件的 OLEObject 对象的属性和方法是相同的。这样，通过使用控件名称，Visual Basic 代码即可访问这些属性。下例选中复选框控件“MyCheckBox”，将其设为与活动单元格对齐，然后激活此控件。
With MyCheckBox
Value = True
Top = ActiveCellTop
Activate
End With
有关详细信息，请参阅在工作表上使用 ActiveX 控件。

MSCOMM32OCX,此文件在WIN9X中位于Windows/System目录夹内,在WINXP中位于Windows/System32目录夹内你再仔细找找看是否有此控件
需在菜单栏工程(P)下拉菜单中选部件(O),在其属性页中找MICROSOFT COMM CONTROL60,对选钩方框打钩,就能在工具箱中出现电话机样的MSCOMM控件如果上法找不到MICROSOFT COMM CONTROL60,则需从其它相同系统的System或System32目录夹将MSCOMM32OCX复制到你机器系统的相同目录夹内,然后按文件下拉菜单中选部件(O),由浏览(B)去选中MSCOMM32OCX文件,它就在部件(O)属性页中可找到,然后按前法 *** 作,工具箱中就会有MSCOMM控件了

---