与目标相交

Question

我不知道如何使下面的代码工作。每次调用都会导致 Intersection = Nothing 并且选择了 ELSE 语句，并且 yes rngIntersect 是有效且非空的，并且交集不是空的，因此问题出在目标部分。

当我调试代码并询问时？目标结果是 zilch。然而，target.column、target.row 和 target.address 分别都是正确的 3,9 和 $C$9）。

这一定是一些基本的东西，但毕竟在不同的网站上环顾四周，我还没有想出一个解决方案。

我可以使用 target.column 和 target.row 找到目标是否在范围内，但我无法让下面更优雅的代码工作。无论出于何种原因，目标似乎“有点但不是完全空的”。

为了强调，在调试窗口中？目标返回空但是？ target.address 返回 $C$9，因为这是用户选择的单元格，并且 rngIntersect = $C$9:$N$9，因此 Intersect = $C$9 肯定 没有。

我试过了吗？范围（目标）和？ target.range 但会产生错误。

本质上，我如何让目标返回它应该的范围，毕竟它被定义为一个以正确开头的范围？

Sub OnSelectionChange(ByVal target As Range, wksChange As Worksheet)

On Error GoTo ErrorHandler

Dim rngIntersect As Range, rngTarget As Range

Set rngIntersect = wksChange.Range("RNGINTERSECT")
Set rngTarget = target

    If Not Application.Intersect(rngTarget, rngIntersect) Is Nothing Then
        Call WorksheetSelectionChange(target.Column, wksChange)
    Else
        Call MAIN.ZoomAdjust(wksChange, False)
    End If

ErrorExit:
    Exit Sub

ErrorHandler:
    Call LogError(Err.Number, Err.Description, C_MODULE, "OnSelectionChange")
    Resume ErrorExit

End Sub

Answer 1

我认为您的问题不是来自您的代码，而是来自您的期望，即? Target 应该打印一些东西。 Target 是一个范围，当您不指定要打印的属性时，将打印默认属性.Value。单元格可能为空这一事实并不能说明它作为范围对象的存在。

Target 是一个范围对象。因此，您不需要将其转换为范围对象，如 rngTarget。作为一个范围对象，它的一个属性是.Worksheet，因此，您不需要将其作为附加参数传递。请记住，Application.Intersect 也返回一个范围对象。

下面是工作代码。我已经删除了任何可能让你感到困惑的东西，特别是你的错误处理程序。如果这种代码产生了错误，您想立即知道它，而不是在 3 小时徒劳的搜索之后才知道。

Option Explicit

Private Sub TestIntersect()
    OnSelectionChange Range("C9")
    OnSelectionChange Range("C3")
End Sub

Sub OnSelectionChange(ByVal Target As Range)

    Dim WksChange As Worksheet
    Dim RngIntersect As Range

    Set WksChange = Target.Worksheet
'    Set RngIntersect = WksChange.Range("RNGINTERSECT")
    Set RngIntersect = WksChange.Range("C9:N9")

    If Not Application.Intersect(Target, RngIntersect) Is Nothing Then
        WorksheetSelectionChange Target.Column, WksChange
    Else
        MAINZoomAdjust WksChange, False
    End If
End Sub

Private Sub WorksheetSelectionChange(ByVal C As Long, _
                                     Ws As Worksheet)
    MsgBox "Here is WorksheetSelectionChange" & vbCr & _
           "Column " & C
End Sub

Private Sub MAINZoomAdjust(Ws As Worksheet, _
                           ByVal TooBig As Boolean)
    MsgBox "Here is MAINZoomAdjust" & vbCr & _
           "TooBig = " & TooBig
End Sub

Answer 2

我确实发现了问题。正确的代码应该是 如果不是 Application.Intersect(target, wksChange.Range(wksChange.Range("RNGINTERSECT"))) 则什么都没有

而不是 如果不是 Application.Intersect(target, wksChange.Range("RNGINTERSECT")) 则什么都没有

原因是 wksChange.Range("RNGINTERSECT") 返回感兴趣范围的字符串值，而不是范围本身