Question

我希望能够双击一个单元格并将单元格值/文本返回到另一个单元格中。

到目前为止我的代码是：

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("E:P")) Is Nothing Then
 Else
    ActiveCell.Copy Destination:=Sheets("Sheet1").Range("S13")
 End If
End Sub

此代码的问题在于我需要实际的单元格内容，而不一定是数字值。

例如，在单元格E12中，我有文本＆＃34;已完成＆＃34;但是当我双击E12时，＆＃34; 0＆＃34;在单元格S13中返回，而不是文本＆＃34;已完成＆＃34;。

Answer 1

我同意A.S.H“你的原始单元格包含一个公式”。

$user = user::find($userID);
// No Exception!
$user->appUser->column = $value;
$user->appUser->save();

Answer 2

这有用吗？

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E:P")) Is Nothing Then
        Cancel = True
        Target.Copy Destination:=Sheets("Sheet1").Range("S13")
    End If
End Sub

双击单元格将单元格内容返回到另一个单元格（VBA）

2 个答案: