主题：KeyPressEdit事件实现不了数值加减，是什么原因？

设置KeyPressEdit事件，实现快捷输入：每按一次“w”当前单元格的值就加1。字符型的列可以实现，但整型或小数型的列却没反应，数值不会增加。这是什么原因呢？

代码片段如下：

Select Case e.keyChar

    Case "w"

        e.Cancel = True

        e.Text = e.text + 1

End Select