双击复制一个单元格并自动粘贴到另一个 Sheet 上的不同单元格

Question

我真的需要你的帮助。

基本上我有 2 个 sheet 我真的很关心我的项目，如下图所示。

MUFG 客户端
MUFG 匹配

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

在 MUFG 客户端上双击范围 (B3:B300) 内的单元格 Sheet。
双击时，它将获取我双击的单元格的内容（可以是上述范围内的任何单元格）并将 text/value 粘贴到 MUFG Matched [=41 上的不同单元格中=]（单元格 D4）自动。

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

谢谢

人地

Answer 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 的 工作表代码区域 ，因为这是您双击的地方.

Answer 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

双击复制一个单元格并自动粘贴到另一个 Sheet 上的不同单元格

Copy A Cell On Double Click And Paste to A Different Cell on Another Sheet Automatically

excel

worksheet

double-click

hyperlink