147.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 27 行

无论如何，就是只能输入数字
--------------------------------------------------------------------------------
●这一篇是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