VBA - 离开当前单元格

Question

我有一些对双击有反应的代码。这个 Action 很好，我的问题虽然..填写由于双击 Action 弹出的表单后，表单被卸载，这里没问题，但用户在他双击的单元格内处于编辑模式。

现在通常在 Excel 中，您可以按 CTRL-Enter 并且单元格将被简单地选择并且您退出编辑模式。我如何在 VBA 中实现这一点？

我所能做的似乎就是将单元格向上移动一个，但实际上只是希望用户退出编辑模式并停留在当前单元格上，即他双击的那个单元格。

Private Sub Cancel_Click()
Cells(ActiveCell.Column, ActiveCell.Row - 1).Activate
Cells(ActiveCell.Column, ActiveCell.Row).Activate
Unload Term
End Sub

有什么建议么 ？

Answer 1

使用 BeforeDoubleClick的Cancel参数，它...取消单击单元格:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
UserForm1.Show
End Sub