Excel,通过单击“单元格”,焦点将移动到另一个单元格

时间:2010-12-07 11:21:28

标签: excel vba

在Excel中,我希望有一个单元格(B10),单击它时,焦点将更改为另一个单元格(C12)。

该另一个细胞在另一个细胞(A2)中定义。

任何想法?

GorovDude

2 个答案:

答案 0 :(得分:2)

使用worksheet_selectChange。从本质上讲,代码将如下所示:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("B10").Address Then
        Dim rng As Range
        Set rng = Range("A2")
        Range(rng.Value).Select
    End If
End Sub

为了清晰起见,我对范围地址进行了硬编码。

答案 1 :(得分:2)

只要用户点击B列,该代码就会选择范围(A2):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Range("B:B"), Target) Is Nothing Then
 Range("A2").Select
 End If
End Sub