Question

Excel Vba中 如何判断活动单元格是否在指定区域？如指定Range(A1:B2)，activ

Excel Vba中 如何判断活动单元格是否在指定区域？如指定Range(A1:B2)，activecell为A2时返回TRUE，activecell为A5则返回FALSE

请问用什么函数判断？

Answer 1

这个其实很简单。用activecell.address方法取得活动单元格的地址，然后判断地址是否在这个区域中就好。

给你代码：

Sub aa()
    Set Rng = Range("A1:B2")
    Dim Addr As String
    For Each c In Rng.Cells
        Addr = Addr & c.Address & ","
    Next
    If InStr(Addr, ActiveCell.Address) > 0 Then
        MsgBox "活动单元格在单元格区域" & Rng.Address & "内！"
    Else
        MsgBox "活动单元格不在单元格区域" & Rng.Address & "内！"
    End If
End Sub

追问

你这个方法也很巧妙。我后来是用intersect函数判断两者是否存在交集实现的

追答

intersect也很好。呵呵，比我的办法要好一些。因为是内置的。
还有一种方法，是判断当前单元格的列号与行号是否在区域的列号行号内。