6:BeforeKeyPress
在单元格的KeyPress事件之前发生。可在此事件中针对不同Column进行数据的Check。
如第1列只允许输入Double型数据,则可以通过xlSpreadsheet.ActiveCell.Column获取当前编辑的列。然后判断KeyAscii的范围进行相应处理。
|
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And _
KeyAscii <> vbKeyBack And KeyAscii <> Asc(".") Then
Cancel.Value = 1
End If
|