请大佬给指点一下 SelectionChange事件 单元格选择的问题

allwg

各位大佬，版主大大，我想做到图上效果（这是贴吧大佬的作品），在论坛一位热心大佬的指点下我初步能用了  但是点单元格输入却不能像图上那样一直选择一直输入某一个数字，比如1，我做的工作簿（附件文件）这个点某个单元格一下可以 ，要是连续点相同的单元格第二下就没反应了 ，再连续点就进入单元格编辑状态了，必须点个别的再返回来才可以 ，还请大佬们 ，版主大大们 给指点下，万分感谢。真是逼到劲了，搜索也没有相似的问题答案。

liulang0808

微调了，看看是否可行

MOY838840554

原理很简单啊，你移走不就可以在同一位置多次点击了

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.EnableEvents = False '关闭事件响应
   
3.     '你的代码
   
4.     Range("E1").Select '移走
   
5.     Application.EnableEvents = True '开启事件响应
   
6. End Sub

复制代码

allwg

liulang0808 发表于 2021-1-27 07:30
微调了，看看是否可行

版主大大威武！！！！

简单一行代码解决问题666

allwg

MOY838840554 发表于 2021-1-27 09:19
原理很简单啊，你移走不就可以在同一位置多次点击了

可以解决问题！！！！。。谢谢大神！！！666，谢谢大佬。