通过相对位置将单元格范围值更改为双击单元格的内容

Question

我正在尝试将一系列单元格（“下拉列表”）的值更改为双击单元格的内容，即“ PASS”，“ FAIL”或一个破折号（-）。

当我指定下拉列表单元格的确切范围时，我可以使它正常工作，但是由于我想在电子表格中多次使用此相同功能，因此我希望能够进行更改相对于双击单元格位置而不是特定单元格位置的下拉列表。

这是我目前的代码。任何指向正确方向的指针都将非常有帮助！

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    On Error GoTo M
    If Not Intersect(Target, Range("V:V,W:W,X:X")) Is Nothing Then
        If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        Range("E33:T33").Value = Target.Value
    End If
    Exit Sub
M:
    MsgBox "Error"
End Sub

Answer 1

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

    Cancel = True
    On Error GoTo M
    If Not Intersect(Target, Me.Range("V:X")) Is Nothing Then
        If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        Target.EntireRow.Cells(5).Resize(1, 16).Value = Target.Value
    End If
    Exit Sub
    M:
    MsgBox "Error"

End Sub