作者:乔山办公网日期:
返回目录:excel表格制作
由于worksheet不支持键盘e799bee5baa6e79fa5e98193e4b893e5b19e330事件,所以只能添加窗体实现。运行宏的时候显示这个窗体(窗体有一个TextBox1)。
写一个TextBox1的KeyPress事件,如下面代码
If KeyAscii.Value >= 48 And KeyAscii.Value <= 57 Then
Selection.Value = Chr(KeyAscii.Value)
Selection.Next.Select
TextBox1.Text = ""
End If
其中Selection.Next.Select也就是下一个单元格自己实现吧
http://cache.baidu.com/c?m=9f65cb4a8c8507ed4fece763105e8d3d4f07dd743ca080462482d45f93130a1c187ba0fc7063565f8e99616704ad4d5ce8fb326537747af1c4969c0f80fbc42778c276632e0b863005a51cb8bd4032b12487299db81897ad804284dea2c4de2444ba59120e83&p=8b2a9540978516c308e296235257&user=baidu