Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
mcol = Target.Row
If Target = "男" Then
Cells(mcol, 2).Select
ElseIf Target = "女" Then
Cells(mcol, 3).Select
End If
End If
If Target.Column = 5 Then
mcol = Target.Row
If Target = "男" Then
Cells(mcol, 8).Select
ElseIf Target = "女" Then
Cells(mcol, 9).Select
End If
End If
End Sub
Excel根据当前值自动跳转单元格,VB函数
最新推荐文章于 2023-12-06 16:57:30 发布