双击复制一个单元格并自动粘贴到另一个工作表上的不同单元格答案

【问题标题】：Copy A Cell On Double Click And Paste to A Different Cell on Another Sheet Automatically双击复制一个单元格并自动粘贴到另一个工作表上的不同单元格
【发布时间】：2020-10-26 07:39:21
【问题描述】：

我真的需要你的帮助。

基本上我有两张我真正关心我的项目的工作表，如下图所示。

MUFG 客户端
MUFG 匹配

我正在寻找允许我执行以下操作的 VBA 代码：

在 MUFG 客户表上的范围 (B3:B300) 内双击一个单元格。
双击时，它将获取我双击的单元格的内容（可以是上述范围内的任何单元格）并将文本/值自动粘贴到 MUFG 匹配表（单元格 D4）上的不同单元格中。

任何帮助将不胜感激。我已经尝试了一些方法，例如对范围内的内容进行超链接，但它仍然根本不起作用并且失败了太多次。

谢谢

仁迪

【问题讨论】：

标签： excel hyperlink worksheet double-click

【解决方案1】：

以下 VBA 代码应如您所描述的那样工作：

Option Explicit
Function InRange(Range1 As Range, Range2 As Range) As Boolean
' returns True if Range1 is within Range2
Dim InterSectRange As Range
    Set InterSectRange = Application.Intersect(Range1, Range2)
    InRange = Not InterSectRange Is Nothing
    Set InterSectRange = Nothing
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If InRange(ActiveCell, Worksheets("MUFG Client").Range("B3:B300")) Then
        Selection.Copy Worksheets("MUFG Matched").Range("d4")
    End If
End Sub

确保将此代码放入 MUFG Client 的工作表代码区域，因为您将在此处双击。

【讨论】：

嘿，这就是我要找的答案。非常感谢你的帮助。已经检查并投票您的答案。没有你就无法做到这一点：D
我还想知道，如果我双击范围内的单元格，如果您可以在您提供给我的当前 VBA 代码中添加一些内容，它将自动移动到 MUFG 匹配表而无需手动单击首先是 MUFG 匹配表。有可能吗？
当然！如果您在Selection.Copy Worksheets("MUFG Matched").Range("d4") 之后添加代码行Worksheets("MUFG Matched").Activate，它将自动将您的视图切换到MUFG Matched。乐于助人！
哇它好用！是的，再次感谢您的帮助:)

【解决方案2】：

您需要一个 Worksheet_BeforedoubleClick 事件 - 如果您之前没有遇到过工作表事件，请查找它们。
那么它会是这样的;

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

'Check if it's in the range:
If Target.Column = 2 And Target.Row <300 And Target.Row >3 Then
    'Copy to relevant location
    Target.Copy Worksheets("MUFG Matched").Range("D4")
End If

End Sub

【讨论】：

我知道如果Target 范围大于单个单元格，这在技术上可能会变得迷幻，但是如果不是不可能的话，双击更大的范围是非常困难的，所以这应该是足够安全。
非常感谢您的回答。是的，你是对的，我们需要 BeforeDoubleClick 事件来完成这项工作:)