通過雙擊事件複製/粘貼

Question

我有一個雙擊事件，我希望它保存一定範圍的副本。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Not Intersect(Target, Range("A3:A25, A29:A34, A36:A40, F3:F14, F18:F21, F25:F26, F3:F32, F36:F37, K3:K22, K26:K40, P3:P22")) Is Nothing Then 
     Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 3)).Copy 
    End If 
End Sub 

當我點擊其中一個範圍時，我可以看到副本突出顯示迅速出現並消失。我如何將它保存到剪貼板？理想情況下，我希望能夠在下一個雙擊事件中粘貼此範圍。

Answer 1

試試這個：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Not Intersect(Target, _ 
Range("A3:A25, A29:A34, A36:A40, F3:F14, F18:F21, F25:F26, F3:F32, F36:F37, K3:K22, K26:K40, P3:P22")) Is Nothing Then 
    Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 3)).Select 
End If 
Selection.Copy 
End Sub 

我測試過它和它的作品。 ：d

EDIT1：這也適用

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Cancel = False 
If Not Intersect(Target, _ 
Range("A3:A25, A29:A34, A36:A40, F3:F14, F18:F21, F25:F26, F3:F32, F36:F37, K3:K22, K26:K40, P3:P22")) Is Nothing Then 
    Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 3)).Copy 
Else 
    Application.CutCopyMode = False 
End If 
Cancel = True 
End Sub