主题：光标怎样才能移动到指定单元格？【继续】

在AfterSelChange事件：
Dim kdm As string = Tables("表A").Current("第二列")
          if kdm Is Nothing Then          
               e.Table.Select(e.Table.RowSel, e.Table.Cols("第二列").Index)
          end If
则光标无法移出第二列！除非第二列有字符或数字。这样也就不能编辑其他列了。
诺放在BeforeSelChange事件中，则会自动退出程序！！！
没有人回答？ 或是我6楼和9楼的想法有不妥？

怎样做到不论是按enter键，还是鼠标另选单元格都要回到指定的单元格？(看6、9楼）
这个问题最后再问一下：这是否无法实现？有狐师们能解决吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

哈哈～ 这个只对enter有效，对鼠标的点击动作无效！  做不到的话这样将就也可以～

     您那个问题我研究了一晚上，而且当前行用Select因为回车的原因，Select自动失效，在按钮中的单击事件就可以，所以最后给了您那个文件，至于点击鼠标，就更不可以了，逻辑上也过不去：既然您是鼠标点击，既然点击了某一个单元格，为什么还要他自动移动？与其这样，为什么不直接点击那个单元格达到一键选中即可？
     因为点击鼠标选择是在其他事件之后执行，最后焦点一定在您单击的那个单元格，这也是合理的，您没有必要去研究单击的问题。

程版啊～ 如果要输入的单元格是用项目列选择的一个项目，多半是鼠标完成选项的，这时鼠标再点那个（需自动移到的）单元格时，并不知道条件是否满足呀～，如果不满足条件，就点到下一个单元格即可，如果满足的话一定要跳到指定的某单元格才行啊.

      既然是带列表项目的，当您点击下拉箭头选择后，不点击其它单元格或不回车，不视为编辑完成，焦点不会跳转，您此时面临两种选择，点击其他单元格或这回车如果您选择完毕，直接回车，和您选择完成，点击其他单元格并没有多一个操作动作啊？
       或者您再试试AfterSelChange事件（选择不同的单元格后执行），可能有解！