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