Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/26.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel中,通过单击单元格,焦点将移动到另一个单元格_Excel_Vba - Fatal编程技术网

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

Excel中,通过单击单元格,焦点将移动到另一个单元格,excel,vba,Excel,Vba,在Excel中,我希望有一个单元格(B10),单击它时,焦点将更改为另一个单元格(C12) 另一个单元格在另一个单元格(A2)中定义 有什么想法吗 GorovDude使用工作表\u选择更改。本质上,代码如下所示: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("B10").Address Then Dim rng As Range

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

另一个单元格在另一个单元格(A2)中定义

有什么想法吗


GorovDude

使用工作表\u选择更改。本质上,代码如下所示:

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
为了清晰起见,我对范围地址进行了硬编码。

每当用户单击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

很好,但我如何才能使此代码适用于完整列?如果您想检查用户是否单击了特定列,请检查目标范围与列的交集是否“不是空”,而不是比较地址。