代码之家 › 专栏 › 技术社区 › Hightower

Excel VBA确定3X3范围相对于activeCell的位置

vba spreadsheet excel

Hightower · 技术社区 · 9 年前

我试图创建一个函数来找出这个选择,但是对我的基本技能来说有点困难。

根据提供的答案编辑问题

Function relRange(rangeIn As Range, activeCell) As Integer
relRange = 0
If (rangeIn.Rows.Count = 6) And (rangeIn.Columns.Count = 6) Then  ' range has double merged cells
    ' comparison code to determine where the activecell is relative to the 3x3 array

        If rangeIn.Cells(5, 1).Address = activeCell Then relRange = 1 '1
        If rangeIn.Cells(3, 1).Address = activeCell Then relRange = 2 '2
        If rangeIn.Cells(5, 3).Address = activeCell Then relRange = 3 '3
        If rangeIn.Cells(3, 3).Address = activeCell Then relRange = 4 '4
        If rangeIn.Cells(1, 1).Address = activeCell Then relRange = 5 '5
        If rangeIn.Cells(5, 5).Address = activeCell Then relRange = 6 '6
        If rangeIn.Cells(1, 3).Address = activeCell Then relRange = 7 '7
        If rangeIn.Cells(3, 5).Address = activeCell Then relRange = 8 '8
        If rangeIn.Cells(1, 5).Address = activeCell Then relRange = 9 '9

End If
End Function

我现在有了这个功能,很惊讶没有更简单的方法。

1 回复 | 直到 8 年前

K.Dá´á´ Éªs 9 年前

这应该在你的

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim ws As Worksheet:    Set ws = ThisWorkbook.Worksheets(1)
    Dim Matrix(1 To 2) As Range, i As Long
    Set Matrix(1) = ws.Range("A1:C3")
    Set Matrix(2) = ws.Range("F1:H3")

    For i = LBound(Matrix) To UBound(Matrix)
        Set iSect = Application.Intersect(Target, Matrix(i))
        If Not iSect Is Nothing Then
            Exit For
        End If
    Next

    If Not iSect Is Nothing Then
        MsgBox "Target located in Range # " & i & " at: " & Target.Address
    Else
        MsgBox "Does NOT interesect in any of my ranges!"
    End If

    Cancel = True

End Sub

如果 Cancel = True

你可以从 Target 并与之进行比较。

推荐文章

Marko · 谷歌工作表-如果单元格包含列表中的文本。。。显示相应的文本`

4 年前

Questionnaire · Microsoft Excel在相邻列的前一行中获取元素

8 年前

Argyll · 为什么按自定义公式筛选视图不适用于检测列中第一个唯一条目的公式?

8 年前

Prashanna Guru · 如何阻止谷歌电子表格自动拆分数据?

8 年前

jyp95 · 如果单元格包含范围,则计算数字

8 年前

Ephs05msm · 涉及数组的Javascript循环计算(例如:摊销计划)

8 年前

Bruce McGivern · 一场getActiveUser()。getEmail()不返回值

8 年前

Ques · 使用phpexcel创建多个工作表时,会出现额外的工作表

8 年前

30ThreeDegrees · excel中的条件多重应用

8 年前

Liu Kang · 在同一单元格中从多张图纸返回ArrayFormula

8 年前