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

页面导航:首页 > 软件编程 > vb.net > 无论如何,就是只能输入数字

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

来源: 作者: 时间:2016-02-05 12:32 【

●这一篇是Excel"事件"的运用成果之一,各位可以在这里看到Excel工作表的Change事件的运用方法。●甲设我们要制做一个只能输入数字的功能,由于Excel没有KeyPress事件,这个就只能靠

 

 

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

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <