本来想用这个语句,但是发现不知道“不等于整数”在VBA中如何表达?
程序能类似下面这样简短就最好了,因为要定义很多个(又不是全部),也不知道有没有一次性定义几个单元格的方法...然后也怕会对Private Sub Worksheet_Change(ByVal Target As range)里面其他的语句有影响
If range("AM4").Value < >integer Then
MsgBox "Sorry, but the input should be a integer"
Sheets(2).range("AM4") = ""
那有什么语句能一次性定义多个单元格么?比如加上OR之类,用下面这段程序的话?
If Target.Address = "$BJ$38" Then
With Target
If Not .Find(".") Is Nothing Then
MsgBox " please input a integer"
Target.Value = ""
Target.Select
End If
End With
End If