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

Posted 2021-04-03

我正在尝试将一系列单元格（下拉列表）的值更改为双击单元格的内容，该单元格表示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

答案

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