104.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

无论如何，就是只能输入数字

●这一篇是Excel＂事件＂的运用成果之一，各位可以在这里看到Excel工作表的Change事件的运用方法。
●甲设我们要制做一个只能输入数字的功能，由于Excel没有KeyPress事件，这个就只能靠Sheet的Change事件来做事后诸葛了。我们把滑鼠游标移到Sheet最下方标示＂Sheet1＂处，然后按一下滑鼠右键。

●按下滑鼠右键蹦出跳出式功能表，选择＂检视程式码＂，之后就会自动呼叫VisualBASIC编辑器。

●VisualBASIC编辑器会自动出现程式码编辑对话框，仔细看右图的左上角，它显示的物件自动变成WorkSheet，而右上角，我们选择Change事件(Cell内的文字被改变会引发的事件)。



●写入程式码： 

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
If IsNumeric(Target.Text) = False And Target.Text <> "" Then 
'假如被变更的Cell内的资料不是数字并且不为空白 
If Left(Target.Cells.Address, 2) = "$B" Then 
'假如Cell位置是B拦位 
MsgBox "B栏位整行都只能输入数字", 64 
Range(Target.Address).Select 
'则工作表上的输入游标自动回到刚才变更的Cell里 
SendKeys "{F2}" 
'送出F2，让使用者无法争脱直到输入数字为止 
End If 
End If 
End Sub