セルをダブルクリックして別のセル（VBA）にセルの内容を返します

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では「Completed」というテキストが表示されますが、E12をダブルクリックすると、セルS13では「0」が返され、「Completed」というテキストは返されません。

Answer 1

私はA.S.Hに「本来のセルには数式が含まれています」と同意します。

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

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