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




 

 

●这一篇是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