说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

无论如何,就是只能输入数字-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
无论如何,就是只能输入数字-VB资料

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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘