Question

我认为这非常接近，但有些事情并不完全正确。我正在尝试在ColumnD中双击并单元格并选择第二个工作表，然后单击第二个工作表中的单元格，并将值复制/粘贴到我双击的单元格中。问题是，我想这样做几次，所以如果我双击相同的单元格2次，并跳转到第二张表2次，我希望保留第一个单元格中的值。所以，如果我在D3中什么都没有，那么我双击它，我可以在第二张表中选择一个单元格。让我们说它是LQ1;这被复制/粘贴到D3中。然后，我再次单击D3，再次跳转到第二张纸，然后在第二张纸中选择一个单元格。让我们说它是LQ2。我希望D3有LQ1和LQ2（并反复重复）。

这是我到目前为止所拥有的。我尝试了几个想法。问题是，当我点击第二张纸中的单元格时，我不知道如何让它移回第一张纸。

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

    If Target.Column = 4 Then
        CellSelect = ActiveCell.Value
        CellAddress = ActiveCell.Address
        Sheets("Setup Questions").Select
        If Intersect(Target, Range("B2:B38")) Is Nothing Then
            Cancel = True
            Target.Copy
            Sheets("CP (POS) Tasklist").Range(CellAddress).PasteSpecial Paste:=xlPasteValues
        End If
    End If
End Sub

Answer 1

InputBox的想法让我思考。这似乎有效。。。

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

If Target.Column = 4 Then
CellSelect = ActiveCell.Value
CellAddress = ActiveCell.Address

Sheets("Setup Questions").Select
Set rng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)

Sheets("CP (POS) Tasklist").Range(CellAddress).Value = CellSelect & Chr(10) & rng
Sheets("CP (POS) Tasklist").Select

End If

Sheets("CP (POS) Tasklist").Select

End Sub

如何双击单元格并从单个另一个单元格复制值？

1 个答案: