Question

excel vba 单元格中输入特定内容后光标跳转问题

大神帮个忙，如图所示，在光标所选单元格中输入内容，双击后会根据所填充的单元格内容光标跳转到同一行的不同列（知道列号），要怎么操作？接下来会重复上一步，继续填写单元格内容，跳转到同一行的不同列。例：第一列中填写男或女，光标会自动跳转到同一行的第二列或第三列身高。

Answer 1

代码如下：（注意代码不能写在标准模块里，详见截图）

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target = "男" Then
   Target.Offset(, 2).Select
ElseIf Target = "女" Then
   Target.Offset(, 1).Select
End If
End Sub

Answer 2

这个要求，标准功能是没有的。
需要用vba写个事件驱动，可以实现。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.column> 1 Then
if target.text="男" then
cells（target.row,2）.activate
else
cells（target.row,3）.activate
end if
End If

End Sub
注：该代码未做调试，有问题请自行解决